Routine: GMRACMR4

Call Graph

Package	Total	Call Graph
Adverse Reaction Tracking	7	EN1^GMRACMR EN1^GMRACMR2 EN1^GMRACMR3 $$IDMARK^GMRACMR5 (NOPAT,PRE)^GMRAPNA (CLOSE,DEV,SITE)^GMRAUTL ($$DATE,$$PRDTST,$$STPCK,VAD)^GMRAUTL1
Kernel	3	^%ZTLOAD $$REPEAT^XLFSTR KILL^XUSCLEAN
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRA PRINT-ID BAND/CHART

Name	Comments	DBIA/ICR reference
HEAD	;HEADER PAGE FOR PRINTOUT
ENTSK
DEV	; *** Select output device, force queuing
EN1	;This is the main entry point for this program
EXIT	;
PRINT	;PRINT THE DATE

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DEV+3
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...") Line Location: DEV+10
Function Call: WRITE	Prompt: $E($P(^DPT(GMRADFN,0),U),1,30) Line Location: PRINT+19
Function Call: WRITE	Prompt: ?30,GMRAPID Line Location: PRINT+19
Function Call: WRITE	Prompt: ?66,$S(('GMRA("C")&'GMRA("I")):"ID BAND/CHART",('GMRA("C")):"CHART",('GMRA("I")):"ID BAND",1:"ERROR") Line Location: PRINT+21
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,GMRAPDT,?22,"PATIENTS WITH UNMARKED ID BAND/CHART",?70,"PAGE ",GMRAPAGE Line Location: HEAD+7
Function Call: WRITE	Prompt: !,?(40-($L(GMRATL)/2)),GMRATL Line Location: HEAD+11
Function Call: WRITE	Prompt: !,?22,"FROM ",$$DATE^GMRAUTL1(GMRAST),?43,"TO ",$$DATE^GMRAUTL1(GMRAED) Line Location: HEAD+12
Function Call: WRITE	Prompt: !!,"PATIENT",?30,"SSN",?45,"ALLERGY",?66,"UNMARKED" Line Location: HEAD+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEAD+14
Routine Call	DIR Line Location: HEAD+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+19
^GMR(120.8 - [#120.8]	PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+20
^GMR(120.86 - [#120.86]	PRINT+10
^GMRD(120.84 - [#120.84]	ENTSK+3
^SC - [#44]	PRINT+5
^TMP($J	PRINT+2, PRINT+3, PRINT+7, EXIT+1!

Name	Field # of Occurrence
^(	PRINT+2

Name	Field # of Occurrence
>> DFN	PRINT+19*
>> DIR(0	HEAD+3*
>> GMRA	PRINT+3*, PRINT+5, PRINT+15, PRINT+16, PRINT+21
>> GMRA("C"	PRINT+13, PRINT+14, PRINT+21, PRINT+22
>> GMRA("I"	PRINT+13, PRINT+16, PRINT+21
>> GMRA("M"	PRINT+13, PRINT+14, PRINT+15, PRINT+16*, PRINT+17
>> GMRACNT	PRINT+6, PRINT+18
>> GMRADATE	PRINT+7*, PRINT+16
>> GMRADFN	PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+16, PRINT+19
>> GMRAED	HEAD+12
>> GMRAFLG	PRINT+7, PRINT+19
>> GMRAHLOC	PRINT+2*
>> GMRAI	PRINT+9*, PRINT+10, PRINT+11, PRINT+12, PRINT+14, PRINT+16, PRINT+20
>> GMRAOUT	EN1+1, DEV+3, PRINT+2, PRINT+4, PRINT+7, PRINT+9, PRINT+23, HEAD+2, HEAD+3, HEAD+15*
>> GMRAPAGE	ENTSK+2, HEAD+1, HEAD+2, HEAD+6, HEAD+7
>> GMRAPDT	ENTSK+2*, HEAD+7
GMRAPID	PRINT+19*!
>> GMRASEL	DEV+2, HEAD+8, HEAD+9, HEAD+10, HEAD+12
>> GMRASITE	ENTSK+3*, PRINT+16
>> GMRAST	HEAD+12
>> GMRATL	HEAD+1, HEAD+8, HEAD+9, HEAD+10, HEAD+11
>> GMRAX	PRINT+2*, PRINT+3, PRINT+5, PRINT+7
>> GMRAZIS	DEV+1, DEV+2
IO	ENTSK
IO("Q"	DEV+4, DEV+5!
IOF	HEAD+1, HEAD+6
IOSL	PRINT+23
IOST	HEAD+1, HEAD+2
>> POP	DEV+3
U	PRINT+5, PRINT+10, PRINT+12, PRINT+16, PRINT+19, PRINT+20
>> X	ENTSK+2*
Y	ENTSK+2, HEAD+3, HEAD+4!
>> ZTDESC	DEV+8*
>> ZTQUEUED	HEAD+15
>> ZTRTN	DEV+6*
>> ZTSAVE("GMRA*"	DEV+7*
>> ZTSAVE("^TMP($J,"	DEV+7*
>> ZTSK	DEV+10