Routine: VPRDGMRC

Information

VPRDGMRC ;SLC/MKB -- Consult extract ;8/2/11 15:29

Source file <VPRDGMRC.m>

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,IFN)	; -- find patient's consults
EN1(ID,CONS)	; -- return a consult in CONS("attribute")=value ; Expects DFN, VPRX=^TMP("GMRCR",$J,"CS",VPRN,0) [from EN]
XML(CONS)	; -- Return patient consult as XML ; as <element code='123' displayName='ABC' />
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; Add a line @VPR@(n)=X