Routine: VPRDRMIM

Package	Total	Call Graph
Virtual Patient Record	2	$$ESC^VPRD ($$INFO,$$TEXT)^VPRDTIU
Functional Independence	1	(GC,LC,PRM)^RMIMRP
VA FileMan	1	^%DT

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

Name	Field # of Occurrence
^%DT	DATE+2
GC^RMIMRP	EN1+3
LC^RMIMRP	EN+12
PRM^RMIMRP	EN+2
$$ESC^VPRD	XML+27, XML+30, LOOP+2
$$INFO^VPRDTIU	EN1+12
$$TEXT^VPRDTIU	EN1+14

Name	Line Occurrences
$$DATE	EN+14, EN1+8, EN1+9, EN1+10
$$LOOP	XML+24, XML+31, VAL+3
$$TOTAL	EN1+20, EN1+21
ADD	XML+2, XML+3, XML+5, XML+9, XML+10, XML+11, XML+14, XML+18, XML+19, XML+25 , XML+26, XML+27, XML+28, XML+32, VAL+4
EN1	EN+5, EN+15
ENQ	EN+5
VAL	XML+10
XML	EN+5, EN+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~, DATE+2*
ADM	EN+1~, EN+14*
ATT	XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+10, XML+11, XML+13 , XML+14, XML+15, XML+16, XML+19, XML+21, XML+22, XML+23, XML+24, XML+28, XML+30 , XML+31
BEG	EN~, EN+9*, EN+14
COGNTV	EN1+1~, EN1+21*, EN1+24, EN1+25
DFN	EN~, EN+8*, EN+11
END	EN~, EN+9*, EN+14
FIM	EN1~, EN1+1!, XML~
FIM(	XML+3, XML+6, XML+8, XML+10, XML+15, XML+16, XML+21, XML+23
FIM("admitClass"	EN1+15*
FIM("admitted"	EN1+9*
FIM("assessment"	EN1+22, EN1+23, EN1+24, EN1+25
FIM("care"	EN1+7*
FIM("case"	EN1+6*
FIM("discharged"	EN1+10*
FIM("document"	EN1+13, EN1+14
FIM("facility"	EN1+5*
FIM("id"	EN1+4*
FIM("impairmentGroup"	EN1+7*
FIM("interruption"	EN1+17*
FIM("interruptionCode"	EN1+16*
FIM("name"	EN1+4*
FIM("onset"	EN1+8*
I	EN1+1~, EN1+17, EN1+18, EN1+19, EN1+20, TOTAL+1~, TOTAL+2, XML+1~, XML+6, XML+7 , XML+8, XML+10, XML+15, XML+16, XML+27
ID	EN1~, EN1+2*, EN1+3, EN1+4
IFN	EN~, EN+5
J	XML+1~, XML+7, XML+8
MAX	EN~, EN+9*, EN+13
MOTOR	EN1+1~, EN1+20*, EN1+23, EN1+25
NAMES	XML+1~, XML+23, XML+31, VAL+1~, VAL+2*, LOOP+2
NODE	TOTAL~, TOTAL+2
P	LOOP+1~, LOOP+2*
P1	TOTAL~, TOTAL+2
P2	TOTAL~, TOTAL+2
STR	LOOP+1~, LOOP+2, LOOP+3
SUM	TOTAL+1~, TOTAL+2*, TOTAL+3
TAG	LOOP+1~, LOOP+2*
TEXT	XML+1~, XML+23*, XML+24, XML+25, XML+27
TYPE	EN1+1~, EN1+19*, EN1+22, EN1+23, EN1+24, EN1+25
U	EN+11, EN+14, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, EN1+16 , EN1+17, TOTAL+2, XML+16, XML+17, LOOP+2
>> VPR	ADD+2
VPRCNT	EN+1~, EN+9, EN+13, EN+16
>> VPRI	ADD+1*, ADD+2
VPRITM	EN+1~, EN+5, EN+15!
VPRM	EN1+1~, EN1+3
VPRM(	EN1+18, EN1+20
VPRM(1	EN1+6
VPRM(3	EN1+15
VPRN	EN+1~, EN+11, EN+12, EN+13, EN+14, EN+15
VPRS	EN+1~, EN+10*, EN+11
VPRSITE	EN+1~, EN+2
VPRSITE(	EN+10, EN+11
VPRSITE(1	EN+2, EN1+5
>> VPRTEXT	EN1+14
>> VPRTOTL	XML+2*
VPRY	EN+1~, EN+12
VPRY(	EN+13, EN+14, EN+15
VPRY(1	EN+12
X	EN1+1~, EN1+6, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, EN1+12, EN1+14, EN1+15* , EN1+16, EN1+17, EN1+20, EN1+21, EN1+22, DATE~, DATE+2, TOTAL+1~, TOTAL+2, XML+1~ , XML+10, XML+16, XML+17, XML+21*, XML+30, XML+31, VAL~, LOOP+2, ADD~, ADD+2
Y	EN1+12~, EN1+13, DATE+1~, DATE+2, DATE+3, XML+1~, XML+3, XML+4, XML+7, XML+8* , XML+9, XML+13, XML+16, XML+17, XML+18, XML+21, XML+22, XML+24, XML+25, XML+26* , XML+27, XML+30, XML+31, VAL+1~, VAL+3*, VAL+4

Customize PDF page

Package: Virtual Patient Record

Routine: VPRDRMIM

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Label References

Local Variables

Legend: