Routine: VPRDPXRM

Package	Total	Call Graph
Clinical Reminders	1	(MHVC,PREMLIST)^PXRMMHV
Virtual Patient Record	1	($$ESC,$$FAC)^VPRD

Entry Points

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,IFN)	; -- find patient's reminders ; [BEG,END,IFN not currently used]
ENQ
EN1(ID,REM)	; -- return a reminder in REM("attribute")=value
XML(REM)	; -- Return patient reminder as XML in @VPR@(I)
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; Add a line @VPR@(n)=X

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PXRMMHVC"	EN+12, EN+13, ENQ!, EN1+6, EN1+11, EN1+12
^TMP("PXRMMHVL"	ENQ!, EN1+3

Name	Field # of Occurrence
ATT	XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+9, XML+10
BEG	EN~
DFN	EN~, EN+9*, EN+11
END	EN~
I	EN1+1~, XML+1~, XML+6*
ID	EN1~, EN1+2*, EN1+3, EN1+4, EN1+6, EN1+11, EN1+12
IFN	EN~, EN+6
J	EN1+1~
MAX	EN~, EN+10*, EN+12
NAMES	XML+1~, XML+10*, LOOP+2
P	LOOP+1~, LOOP+2*
REM	EN1~, EN1+1!, XML~
REM(	XML+3, XML+6, XML+8
REM("class"	EN1+5*
REM("detail"	EN1+11*
REM("due"	EN1+8*
REM("facility"	EN1+10*
REM("id"	EN1+4*
REM("lastDone"	EN1+9*
REM("name"	EN1+4*
REM("status"	EN1+7*
REM("summary"	EN1+12*
STR	LOOP+1~, LOOP+2, LOOP+3
TAG	LOOP+1~, LOOP+2*
U	EN+13, EN1+3, EN1+4, EN1+5, EN1+7, EN1+8, EN1+9, LOOP+2
>> VPR	ADD+2
VPRCNT	EN+2~, EN+10, EN+12, EN+15
>> VPRI	ADD+1*, ADD+2
VPRITM	EN+2~, EN+6, EN+14!, EN+15
VPRM	EN1+1~, EN1+3*, EN1+4
VPRN	EN+2~, EN+12*, EN+13, EN+14
VPRPROB	EN+2~
>> VPRTOTL	XML+2*
X	EN+2~, EN+13, EN1+1~, EN1+4, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9, XML+1~ , XML+6, XML+8*, XML+9, XML+10, LOOP+2, ADD~, ADD+2
Y	XML+1~, XML+3, XML+4, XML+5, XML+6, XML+8, XML+9, XML+10