Routine: VPRDGPF

Information

VPRDGPF ;SLC/MKB -- Patient Record Flags ;8/2/11 15:29

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find active flags ; [BEG,END,MAX not currently used]
XML(FLAG)	; -- Return patient data as XML in @VPR@(n) ; as <element code='123' displayName='ABC' />
INACT(ID)	; -- inactivated flag
ADD(X)	; Add a line @VPR@(n)=X

Name	Field # of Occurrence
ATT	XML+2~, XML+4*, XML+5, XML+6, XML+7, XML+8
BEG	EN~
DFN	EN~, EN+2*, EN+4, EN+9
END	EN~
FLAG	XML~
FLAG(	XML+4, XML+5
I	XML+2~
ID	EN~, EN+8, EN+21, XML+2~, INACT~, INACT+1
MAX	EN~
NUM	EN+3~, EN+4*
TEXT	EN+3~, EN+20*
U	EN+8, EN+9, EN+11, EN+12, EN+13, EN+14, EN+16, EN+18, XML+8
>> VPR	ADD+2
VPRF	EN+3~
VPRF(	EN+6, EN+7, EN+10, EN+11, EN+12, EN+13, EN+14, EN+15, EN+17, EN+19 , EN+20
>> VPRI	ADD+1*, ADD+2
VPRITM	EN+3~, EN+6, EN+7!, EN+21
VPRITM("approvedBy"	EN+10*
VPRITM("assigned"	EN+11*
VPRITM("category"	EN+14*
VPRITM("content"	EN+20*
VPRITM("document"	EN+19*
VPRITM("id"	EN+9*
VPRITM("name"	EN+9*
VPRITM("origSite"	EN+16*
VPRITM("ownSite"	EN+18*
VPRITM("reviewDue"	EN+12*
VPRITM("type"	EN+13*
VPRN	EN+3~, EN+6*, EN+7, EN+10, EN+11, EN+12, EN+13, EN+14, EN+15, EN+17 , EN+19, EN+20
>> VPRTOTL	XML+3*
X	EN+3~, EN+7, EN+8, EN+9, EN+15, EN+16, EN+17, EN+18, EN+19, XML+2~ , XML+5*, XML+6, XML+7, XML+8, ADD~, ADD+2
Y	XML+2~, XML+4, XML+5, XML+6, XML+7, XML+8