Routine: GMRAPNA

Call Graph

Package	Total	Call Graph
Adverse Reaction Tracking	6	EN1^GMRACMR EN1^GMRACMR2 EN1^GMRACMR3 $$DECEASED^GMRAFX (CLOSE,DEV)^GMRAUTL ($$DATE,$$PRDTST,$$STPCK)^GMRAUTL1
Kernel	3	^%ZTLOAD $$REPEAT^XLFSTR KILL^XUSCLEAN
VA Fileman	2	^%DT ^DIR
Registration	1	(1,KVAR)^VADPT

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRA PRINT-PATIENTS NOT ASKED GMRACMR4

Name	Comments	DBIA/ICR reference
PRE	; This will validate the TMP global and fire off Xref
HEAD	;HEADER PAGE FOR PRINTOUT
NOPAT	; If there are no patients print informational message
ENTSK
DEV	; *** Select output device, force queuing
EN1	; Entry for LIST BY LOCATION OF UNDOCUMENTED ALLERGIES option
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: !,?5,"Room/Bed: ",VAIN(5) Line Location: PRINT+15
Function Call: WRITE	Prompt: !,?24,"* No Patients for this ",$S(GMRA="W":"Ward",GMRA="M":"Module",GMRA="C":"Clinic",1:"UNKNOWN")," *" Line Location: NOPAT+2
Function Call: WRITE	Prompt: ! Line Location: NOPAT+3
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+6
Function Call: WRITE	Prompt: !,GMRAPDT,?23,"PATIENTS NOT ASKED ABOUT ALLERGIES",?70,"PAGE ",GMRAPAGE Line Location: HEAD+7
Function Call: WRITE	Prompt: !,?(40-($L(GMRATL)/2)),GMRATL Line Location: HEAD+11
Function Call: WRITE	Prompt: !,?23,"FROM ",$$DATE^GMRAUTL1(GMRAST),?42,"TO ",$$DATE^GMRAUTL1(GMRAED) Line Location: HEAD+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: HEAD+14
Routine Call	DIR Line Location: HEAD+3

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRINT+10, PRINT+14
^GMR(120.86 - [#120.86]	PRINT+8, PRINT+9
^SC - [#44]	PRINT+6, PRE+5, PRE+6
^TMP($J	PRINT+2, PRINT+3, PRINT+7, PRE+2, PRE+3, PRE+4, PRE+8*, EXIT+1!

Name	Field # of Occurrence
^(	PRINT+2

Name	Field # of Occurrence
DFN	PRINT+14*, PRINT+16!
>> DIR(0	HEAD+3*
DT	PRINT+14
>> GMRA	PRINT+3*, PRINT+4, PRINT+6, PRINT+14, NOPAT+2, HEAD+13
>> GMRACNT	PRINT+3, PRINT+13, NOPAT+1
>> GMRADATE	PRINT+7*, PRINT+14
>> GMRADFN	PRINT+7*, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+14
>> GMRAED	PRINT+9, HEAD+12
>> GMRAHLOC	PRINT+2*
>> GMRAOUT	EN1+1, PRINT+2, PRINT+5, PRINT+7, PRINT+17, HEAD+2, HEAD+3, HEAD+15
>> GMRAPAGE	ENTSK+2, HEAD+1, HEAD+2, HEAD+6, HEAD+7
>> GMRAPDT	ENTSK+2*, HEAD+7
>> GMRASEL	DEV+2, HEAD+8, HEAD+9, HEAD+10, HEAD+12
>> GMRAST	HEAD+12
GMRAT1	PRE+1~, PRE+5*, PRE+7
GMRAT2	PRE+1~, PRE+6*, PRE+7
GMRAT3	PRE+1~, PRE+7*, PRE+8
>> GMRATL	HEAD+1, HEAD+8, HEAD+9, HEAD+10, HEAD+11
GMRAX	PRINT+2, PRINT+3, PRINT+6, PRINT+7, PRE+1~, PRE+3, PRE+4, PRE+5, PRE+6, PRE+8
GMRAY	PRE+1~, PRE+4*
>> GMRAZIS	DEV+2*
IO	ENTSK
IO("Q"	DEV+4, DEV+5!
IOF	HEAD+1, HEAD+6
IOSL	PRINT+17
IOST	HEAD+1, HEAD+2
>> POP	DEV+3
U	PRINT+6, PRINT+9, PRINT+14, PRE+5, PRE+6
VA	PRINT+16!
VA("PID"	PRINT+14
>> VAIN(2	PRINT+14
>> VAIN(5	PRINT+15
>> VAINDT	PRINT+14*
>> 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