Routine: GMRAPU

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN
Adverse Reaction Tracking	2	(CLOSE,DEV)^GMRAUTL ($$PRDTST,$$STPCK,VAD)^GMRAUTL1
VA Fileman	1	^DIR

Package

Total

Call Graph

^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN

(CLOSE,DEV)^GMRAUTL ($$PRDTST,$$STPCK,VAD)^GMRAUTL1

^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRA PRINT A/AR NV GMRA TASK A/AR NV

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
HEAD	; Print header information
PRINTER	;Select printer
REPORT	; Print out the report
EN1	; This routine will loop through the GMRA patient allergy file (120.8) ; to find all patients with unverified reactions
EXIT	; Exit of program kill cleanup
PRINT	;Queue point for report
FIND	; This subroutines will build the data for the report.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRINTER+1
Function Call: WRITE	Prompt: !,"PLEASE TRY LATER" Line Location: PRINTER+1
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.") Line Location: PRINTER+5
Function Call: WRITE	Prompt: !,?20,"NO DATA FOR THIS REPORT" Line Location: REPORT+3
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+9
Function Call: WRITE	Prompt: "Report Date: ",$P($$FMTE^XLFDT(GMRADATE),"@"),?70,"Page: ",GMRAPG Line Location: HEAD+10
Function Call: WRITE	Prompt: !,?19,"List of Unverified Reactions by Ward Location" Line Location: HEAD+11
Function Call: WRITE	Prompt: !,?30,"Ward Location: ",GMALOC Line Location: HEAD+12
Function Call: WRITE	Prompt: !,?3,"Origination Date/Time",?30,"Originator",?55,"Reaction" Line Location: HEAD+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: HEAD+14
Routine Call	DIR Line Location: HEAD+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	FIND+8
^GMR(120.8 - [#120.8]	REPORT+11, FIND+3, FIND+11, FIND+13
^TMP($J	EXIT+2!, PRINT+1!, REPORT+3, REPORT+4, REPORT+5, REPORT+6, REPORT+10, FIND+15*
^VA(200 - [#200]	REPORT+14

Name	Field # of Occurrence
DIR	HEAD+4~
DIR(0	HEAD+4*
GMADFN	REPORT+6, REPORT+8, REPORT+10, FIND+1~, FIND+2, FIND+3*, FIND+6, FIND+7, FIND+11, FIND+15
GMADT	REPORT+10, REPORT+13, FIND+12~, FIND+14, FIND+15
GMALOC	REPORT+2, REPORT+4, REPORT+5, REPORT+6, REPORT+10, HEAD+12, FIND+4~, FIND+7, FIND+8, FIND+9 , FIND+15
>> GMRADATE	REPORT+2*, HEAD+10
GMRALOC	FIND+4~, FIND+5*, FIND+7, FIND+8
GMRANAM	REPORT+5, REPORT+6, REPORT+9, REPORT+10, FIND+4~, FIND+5, FIND+7, FIND+15
>> GMRAOUT	EN1+3, PRINTER+1, REPORT+1, REPORT+4, REPORT+5, REPORT+6, REPORT+10, HEAD+1, HEAD+3, HEAD+4 , HEAD+8, HEAD+16*
GMRAPA	REPORT+10, REPORT+11, FIND+4~, FIND+10, FIND+11*, FIND+13, FIND+15
GMRAPA(0	REPORT+11, REPORT+12, REPORT+14, REPORT+15, FIND+13, FIND+14
>> GMRAPG	REPORT+2, HEAD+2, HEAD+3, HEAD+9, HEAD+10, HEAD+15
>> GMRARB	REPORT+7*, REPORT+8, REPORT+9
>> GMRASSN	REPORT+7*, REPORT+8, REPORT+9
GMRAZIS	PRINTER+1!
IO	PRINTER+7
IO("Q"	PRINTER+2
IO(0	PRINTER+7
IOF	HEAD+2, HEAD+9
IOSL	REPORT+16
IOST	HEAD+1
>> POP	PRINTER+1
U	REPORT+14, REPORT+15, FIND+8, FIND+14
Y	HEAD+4, HEAD+5!
>> ZTDESC	PRINTER+4*
>> ZTQUEUED	HEAD+16
>> ZTRTN	PRINTER+3*
>> ZTSAVE("GMRAOUT"	PRINTER+3*
>> ZTSK	PRINTER+5

Information