here is an example of what I am looking at as a sample form.
I don't understand where the a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,a1,b1,c1,d1 come from
{fn shouldertest2(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,a1,b1,c1,d1)
{shouldtest=
""
rtestneg=
""
rtestpos=
""
rtestneg=negtest(array(a,
"Neer's'",c,"Impingement test",e,"Drop Arm",g,"Apprehension test anterior",y,"Apprehension test posterior",i,"Hawkin's test",k,"Yergason's test",m,"Lift off test",o,"Relocation test anterior",a1,"Relocation test posterior",q,"Empty can",s,"Speeds",u,"Sulcus",w,"Cross Arm",c1,"O'Brien's test"))
if rtestneg<>
"" then shouldtest=shouldtest+" On the right, "+ rtestneg +if size(getfield(rtestneg,",",""))>1 then "are" else "is" endif+ " negative." else "" endif
rtestpos=postest(array(a,
"Neer's'",c,"Impingement test",e,"Drop Arm",g,"Apprehension test anterior",y,"Apprehension test posterior",i,"Hawkin's test",k,"Yergason's test",m,"Lift off test",o,"Relocation test anterior",a1,"Relocation test posterior",q,"Empty can",s,"Speeds",u,"Sulcus",w,"Cross Arm",c1,"O'Brien's test"))
if rtestpos<>
"" then shouldtest=shouldtest+" On the right, "+ rtestpos +if size(getfield(rtestpos,",",""))>1 then "are" else "is" endif+ " positive." else "" endif
ltestneg=
""
ltestpos=
""
ltestneg=negtest(array(b,
"Neer's'",d,"Impingement test",f,"Drop Arm",h,"Apprehension test anterior",z,"Apprehension test posterior",j,"Hawkin's test",l,"Yergason's test",n,"Lift off test",p,"Relocation test anterior",b1,"Relocation test posterior",r,"Empty can",t,"Speeds",v,"Sulcus",x,"Cross Arm",d1,"O'Brien's test"))
if ltestneg<>
"" then shouldtest=shouldtest+" On the left, "+ ltestneg + if size(getfield(ltestneg,",",""))>1 then " are " else " is " endif+" negative." else "" endif
ltestpos=postest(array(b,
"Neer's'",d,"Impingement test",f,"Drop Arm",h,"Apprehension test anterior",z,"Apprehension test posterior",j,"Hawkin's test",l,"Yergason's test",n,"Lift off test",p,"Relocation test anterior",b1,"Relocation test posterior",r,"Empty can",t,"Speeds",v,"Sulcus",x,"Cross Arm",d1,"O'Brien's test"))
if ltestpos<>
"" then shouldtest=shouldtest+" On the left, "+ ltestpos + if size(getfield(ltestpos,",",""))>1 then " are " else " is " endif+" positive." else "" endif
return shouldtest
}}