Routine: GMRGRUT2

Information

GMRGRUT2 ;CISC/RM,RTK-GMRG ROUTINE UTILITIES ;8/23/93

Name	Comments	DBIA/ICR reference
EN1	;TO PRINT/CALCULTE AGGY TEXT FOR A PATIENT (DFN) AND GMR TEXT ENTRY ; (GMRGPDA) INCLUDES THE INTERNAL AND APPENDED TEXT
Q1
REMOVE	;
BRACK	;
SBR	;
HION	;
HIOF	;
DEMPAT	; PRINT PATIENTS DEMOGRAPHIC DATA
PATDAT	; GIVEN GMRGPAT(X) AS "ALIST" ENTRIES FOR A PARTICULAR AGGY TERM ; AND GMRGND=TO AGGY TERM WHICH WE ARE LOOKING FOR IN "ALIST", ; AND GMRGPDA = THE ENTRY IN THE 124.3 FILE IN WHICH WE ARE LOOKING ; THIS FUNCTION RETURNS GMRGPRT=0 (NOT IN ARRAY),1 (IN ARRAY) ; AND GMRGPRT(0)=0TH NODE OF ENTRY IN 124.3, FILE

Name	Line Occurrences
Function Call: WRITE	Prompt: ?($P(GMRGXPRT(1),"^")) Line Location: EN1+33
Function Call: WRITE	Prompt: GMRGPLN(0) Line Location: EN1+33
Function Call: WRITE	Prompt: !,?($P(GMRGXPRT(1),"^")) Line Location: EN1+34
Function Call: WRITE	Prompt: GMRGPLN(0) Line Location: EN1+34
Function Call: WRITE	Prompt: !!,GMRGLIN("*"),! Line Location: DEMPAT+1
Function Call: WRITE	Prompt: "NAME: ",$E(GMRGVNAM,1,30),?39,"SSN: ",GMRGVSSN,?58,"DOB: ",GMRGVDOB Line Location: DEMPAT+2
Function Call: WRITE	Prompt: !,"ADMISSION DATE: ",GMRGVADT,?39,"WARD: ",GMRGVWRD Line Location: DEMPAT+3
Function Call: READ	Prompt: "Press return to continue " Variable: X Timeout: DTIME Line Location: DEMPAT+4