Routine: VPRDRMIM

Information

VPRDRMIM ;SLC/MKB -- FIM extract ;8/2/11 15:29

Source file <VPRDRMIM.m>

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,IFN)	; -- find patient's FIM cases
ENQ	;done
EN1(ID,FIM)	; -- return a case in FIM("attribute")=value
DATE(X)	; -- Return internal form of date X
TOTAL(NODE,P1,P2)	; -- Return total of scores, or "" if incomplete
XML(FIM)	; -- Return FIM case as XML in @VPR@(I)
VAL(X)	; -- add FIM measurement values
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; Add a line @VPR@(n)=X