Routine: GMRGRUT2

Information

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

Source file <GMRGRUT2.m>

Package	Total	Call Graph
General Medical Record - Generator	2	PARST^GMRGRUT0 FITLINE^GMRGRUT1
Kernel	1	ENDR^%ZISS

Package	Total	Caller Graph
Nursing Service	13	NURCAS1 NURCCPU0 NURCCPU1 NURCCPU2 NURCCPU3 NURCES1 NURCEVE0 NURCEVE1 NURCEVP0 NURCPP1 NURCPP2 NURCPP9 NURCPPS2
General Medical Record - Generator	9	GMRGED1 GMRGED4 GMRGED5 GMRGED6 GMRGED8 GMRGEDB GMRGPUT0 GMRGRUT1 GMRGRUT4

Name	Comments	DBIA/ICR reference
Q1
SBR	;
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
REMOVE	;
EN1	;TO PRINT/CALCULTE AGGY TEXT FOR A PATIENT (DFN) AND GMR TEXT ENTRY ; (GMRGPDA) INCLUDES THE INTERNAL AND APPENDED TEXT
BRACK	;
HIOF	;
DEMPAT	; PRINT PATIENTS DEMOGRAPHIC DATA
HION	;

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 " Timeout: DTIME Variable: X Line Location: DEMPAT+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	HION+1, HIOF+1
^GMR(124.3 - [#124.3]	PATDAT+6, PATDAT+7

Name	Field # of Occurrence
^(0	PATDAT+7

Name	Field # of Occurrence
DTIME	DEMPAT+4
DX	Q1+2!, HION+1, HIOF+1
DY	Q1+2!, HION+1, HIOF+1
GMRG0	PATDAT+6*, PATDAT+8!
>> GMRG11	PATDAT+5*
>> GMRGIO("RVOF"	EN1+21, EN1+22
>> GMRGIO("RVON"	EN1+21, EN1+22
>> GMRGLEN	EN1+32, EN1+34
>> GMRGLIN("*"	DEMPAT+1, DEMPAT+4
GMRGND	PATDAT+5, PATDAT+6*, PATDAT+7, PATDAT+8!
GMRGND(0	PATDAT+6, PATDAT+7
GMRGND(1	PATDAT+6*
>> GMRGOUT	DEMPAT+4*
>> GMRGPAT(	PATDAT+5
>> GMRGPDA	PATDAT+6, PATDAT+7
GMRGPLN	EN1+31, EN1+34, Q1, Q1+2!
GMRGPLN(0	EN1+33, EN1+34
GMRGPLN(1	EN1+34
GMRGPRT	PATDAT+5!, PATDAT+6, PATDAT+7
GMRGPRT(0	PATDAT+5, PATDAT+7
>> GMRGTERM	PATDAT+6
>> GMRGVADT	DEMPAT+3
>> GMRGVAMV	DEMPAT+3
>> GMRGVDOB	DEMPAT+2
>> GMRGVNAM	DEMPAT+2
>> GMRGVSSN	DEMPAT+2
>> GMRGVWRD	DEMPAT+3
GMRGXPRT	EN1+20, EN1+24, EN1+26, EN1+28, Q1!, Q1+1!, BRACK+1, BRACK+2, SBR+1, SBR+2
GMRGXPRT("X"	EN1+25, EN1+31, REMOVE+1, REMOVE+2*
GMRGXPRT("Y"	REMOVE+1*, REMOVE+2
GMRGXPRT(0	EN1+20, EN1+30, SBR+1
GMRGXPRT(1	EN1+20*, EN1+21, EN1+22, EN1+23, EN1+32, EN1+33, EN1+34, Q1, SBR+1, SBR+2 , HION+1, HIOF+1
GMRGXPRT(2	EN1+24, EN1+25, EN1+26, EN1+28, EN1+30, EN1+31, REMOVE+1, REMOVE+2, BRACK+1, SBR+1 , SBR+2*
GMRGXPRT(3	EN1+34, BRACK+2, SBR+1, SBR+2
GMRGXPRT(4	EN1+22*, HION+1
GMRGXPRT(5	EN1+22*, HIOF+1
IOM	EN1+20
IORVOFF	EN1+22!
IORVON	EN1+22!
>> X	EN1+21, DEMPAT+4