Routine: GMRGUT3

Information

GMRGUT3 ;CISC/RM-UTILITIES ROUTINE FOR GMRG FILES (CONT.) ;5/28/92

Source file <GMRGUT3.m>

Package	Total	Call Graph
General Medical Record - Generator	1	STAT^GMRGRUT0

Package	Total	Caller Graph
General Medical Record - Generator	1	GMRGUT2

Name	Comments	DBIA/ICR reference
Q3
Q2
RECUR	;
SET5	;SET LOGIC
CWR	;
WRTID	;
EN5	; ENTRY FROM THE C XREF OF THE .01 FIELD OF THE 124.2 FILE KILL LOGIC
EN1	; ENTRY FROM IDENTIFIER NODE FOR PARENT
EN2	; ENTRY FROM THE INPUT TRANSFORMS ON THE ADDITIONAL TEXT (#1) AND ; ASSOCIATED LEAD FRAME DATA (#2) FIELDS OF THE SELECTION MULTIPLE (#1) ; OF THE GMR TEXT (#124.3) FILE. TRANSFORM DISALLOWS ENTRY OF A ; SELECTION IF ITS PARENT IS FLAGGED AS DELETED.
EOP	;
DEL5	;KILL LOGIC
EN3	; ENTRY FROM THE INPUT TRANSFORM ON THE MODIFICATION FIELD (#1) OF THE ; AUDIT TRAIL MULTIPLE (#3) OF THE SELECTION SUBFIELD (#1) OF THE GMR ; TEXT (#124.3) FILE. TRANSFORMS DISALLOWS ENTRY OF AND AUDIT IF ITS ; SELECTION'S PARENT HAS BEEN FLAGGED AS DELETED.
EN2A
EN4	; ENTRY FROM THE C XREF OF THE .01 FIELD OF THE 124.2 FILE SET LOGIC
UPCS	;
RECUR1	;
E2	;

Name	Field # of Occurrence
STAT^GMRGRUT0	EN2A

Name	Line Occurrences
Function Call: WRITE	Prompt: @("$E("_DIC_"Y,0),0)") Line Location: EN1+3
Function Call: WRITE	Prompt: !?GMR("SPC")," ",$S($P(GMR("DATA"),U,2)="":"",$P(GMR("DATA"),U,2)=2:"FRAME",1:"TERM") Line Location: RECUR1+1
Function Call: WRITE	Prompt: ?(GMR("SPC")+8)," ",$P(GMR("DATA"),U,3) Line Location: RECUR1+2
Function Call: WRITE	Prompt: ?(GMR("SPC")+16)," ",$S($D(^GMRD(124.25,+$P(GMR("DATA"),U,4),0)):$P(^(0),"^"),1:"") Line Location: RECUR1+3
Function Call: READ	Timeout: DTIME Variable: GMR("^") Line Location: EOP+1
Function Call: WRITE	Prompt: ?(GMR("SPC")+11),$P(^GMRD(124.2,GMR(GMR("LEVEL")),0),U) Condition for execution: $D(^GMRD(124.2,GMR(GMR("LEVEL")),0)) Line Location: WRTID+1
Function Call: WRITE	Prompt: $C(7),!!,"PARENT PREVIOUSLY DELETED. PLEASE RE-CREATE PARENT ENTRY FIRST. " Line Location: EN2A+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	EN1+2, EOP+1
^DD(124.21	DEL5+1, SET5+2
^GMR(124.3 - [#124.3]	EN2+4, EN2A, EN3+4
^GMRD(124.2 - [#124.2]	RECUR1+1, E2+1, CWR+1, WRTID+1, EN2A, EN2A+1, DEL5+2, SET5+1, EN4+2*, EN5+2!
^GMRD(124.25 - [#124.25]	RECUR1+3

Name	Field # of Occurrence
>> DA	EN2+4, DEL5+2, SET5+1, EN4+2, EN5+2
>> DA(1	EN2+4, EN3+4, DEL5+2, SET5+1
>> DA(2	EN3+4
>> DIC	EN1+3
DTIME	EOP+1
>> DX	EN1+1, EN1+2, EN1+3, EOP+1*
>> DY	EN1+1, EN1+2, EN1+3, EOP+1*
>> DZ	EN1+2
GMR	EN1+3!
GMR(	E2+1*, CWR+1, WRTID+1, RECUR+1
GMR("%"	EN1+1, EN1+2, RECUR1+4, EOP+1, WRTID+2
GMR("DATA"	RECUR1+1*, RECUR1+2, RECUR1+3
GMR("DX"	EN1+1*, EN1+3
GMR("DY"	EN1+1*, EN1+3
GMR("FL"	WRTID+1*, RECUR+3!
GMR("L"	CWR+1*
GMR("LEVEL"	EN1+1, E2+1, CWR+1, WRTID+1, RECUR+1, RECUR+3*
GMR("OUT"	EN1+1, EN1+2, RECUR1+4, RECUR1+5, EOP+1, E2+1, WRTID+2, WRTID+3
GMR("RECURSION"	RECUR+1*, RECUR+3!
GMR("SPC"	EN1+1, RECUR1+1, RECUR1+2, RECUR1+3, RECUR1+5, WRTID+1, RECUR+2*
GMR("X"	RECUR+1*
GMR("Y"	RECUR+1*, RECUR+3
GMR("^"	EOP+1*
>> GMRG(1	DEL5+1, SET5+2
>> GMRG(3	DEL5+1, DEL5+2, SET5+1, SET5+2
GMRGND	Q2!
GMRGND(0	EN2+4, EN2A, EN2A+1, EN3+4
GMRGND(1	EN2+4, EN2A, EN3+4
GMRGND(3	EN2A*
GMRGND(4	EN2+4, EN2A+1, EN3+4
>> GMRGST	EN2A*
>> GMRGST(1	EN2A*
GMRGSTAT	EN2A*, EN2A+1, Q2!
GMRGUPX	EN4+2, EN4+3!, EN5+2, UPCS+1*
GMRGUPX(0	UPCS+1*
GMRUPX	EN5+3!
IOSL	EN1+1
U	RECUR1+1, RECUR1+2, RECUR1+3, WRTID+1, EN2+4, EN3+4
X	EN2A+2!, SET5+1, UPCS+1
>> Y	RECUR1+1, E2+1, CWR+1, RECUR+1, RECUR+3