Routine: VPRDPROC

Package	Total	Call Graph
Virtual Patient Record	4	$$ESC^VPRD EN^VPRDMC EN1^VPRDRA (EN1,ONE)^VPRDSR
Radiology Nuclear Medicine	1	EN1^RAO7PC1
Surgery	1	LIST^SROESTV

Entry Points

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find patient's procedures
SR	; get all surgeries
RA	; get all radiology exams
CP	; get CP procedures
XML(PROC)	; -- Return procedures as XML
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; -- Add a line @VPR@(n)=X

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EN+12!, RA+2!, RA+4, RA+7!

Name	Line Occurrences
$$LOOP	XML+9, XML+18
ADD	XML+2, XML+3, XML+6, XML+10, XML+11, XML+12, XML+13, XML+14, XML+15, XML+19
CP	RA+1
RA	SR+1
XML	EN+8, SR+7, RA+6

Name	Field # of Occurrence
ATT	XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+9, XML+10, XML+14 , XML+15, XML+16, XML+17, XML+18
BEG	EN~, EN+2, EN+10, SR+3, RA+2, CP+1
DFN	EN~, EN+1*, EN+10, EN+13, SR+3, RA+2, RA+4, CP+1
END	EN~, EN+2, EN+10, SR+3, RA+2, CP+1
>> FILTER("category"	EN+5
I	XML+1~, XML+7*, XML+8, XML+10
ID	EN~, EN+8, EN+9, EN+10, EN+11, EN+13
J	XML+1~, XML+13*
MAX	EN~, EN+2*, SR+3, RA+2, RA+4, CP+1
NAMES	XML+1~, XML+4*, LOOP+2
P	LOOP+1~, LOOP+2*
PROC	XML~
PROC(	XML+3, XML+5, XML+7, XML+8, XML+10, XML+16
SHOWADD	SR+2~*
STR	LOOP+1~, LOOP+2, LOOP+3
TAG	LOOP+1~, LOOP+2*
U	LOOP+2
>> VPR	ADD+2
VPRCATG	EN+4~, EN+5*, SR+1, RA+1, CP+1
VPRCNT	EN+4~, RA+3, RA+4, RA+6
>> VPRI	ADD+1*, ADD+2
VPRITM	EN+4~, EN+8, EN+9, EN+11, SR+5!, SR+7, RA+5!, RA+6
VPRN	EN+4~, SR+4, SR+5, RA+3, RA+4*, RA+5
>> VPRTOTL	RA+3, XML+2*
VPRY	EN+4~, SR+3, SR+4, SR+8
X	XML+1~, XML+8, XML+10, XML+13, XML+16*, XML+17, XML+18, LOOP+2, ADD~, ADD+2
Y	XML+1~, XML+3, XML+5, XML+9, XML+10, XML+11, XML+12, XML+13, XML+16, XML+17 , XML+18*