Routine: GMRAPST6

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

Package

Total

Call Graph

Kernel

^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR KILL^XUSCLEAN

Adverse Reaction Tracking

DT^GMRAPL (CLOSE,DEV)^GMRAUTL ($$PRDTST,$$STPCK)^GMRAUTL1

VA Fileman

NOW^%DTC ^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRA PRINT ADR OUTCOME GMRAPST7

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRA PRINT ADR OUTCOME GMRAPST7

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	; Print header information
PRINTER	;Select printer
EN1	; This routine will loop through the ADT entry point to get all ; the entries in that date range.
EXIT	; Exit of program kill cleanup
SIGN(CNT,GMRAREC)	; Print Sign/Symptoms
PRINT	;Queue point for report
HRCN(DFN,SITE)	;EP; IHS/MSC/MGH return chart number

External References

Name	Field # of Occurrence
NOW^%DTC	PRINT+4
^%ZTLOAD	PRINTER+4
^DIR	HEAD+5
DT^GMRAPL	EN1+4
CLOSE^GMRAUTL	PRINT+51
DEV^GMRAUTL	PRINTER+1
$$PRDTST^GMRAUTL1	PRINT+20
$$STPCK^GMRAUTL1	HEAD+19
$$FMTE^XLFDT	PRINT+36, HEAD+11, HEAD+13
$$REPEAT^XLFSTR	HEAD+14, HEAD+17
KILL^XUSCLEAN	EXIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select an Observed date range for this report." Line Location: EN1+3
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: !,"NO DATA FOR THIS REPORT..." Line Location: PRINT+25
Function Call: WRITE	Prompt: !,?8,"\|",?38,"\|",?58,"\|",?63,"\|",?68,"\|",?73,"\|" Line Location: PRINT+47
Function Call: WRITE	Prompt: $E(NAM,1,19) Line Location: SIGN+4
Function Call: WRITE	Prompt: !,?8,"\|",?38,"\|",$E(NAM,1,19),?58,"\|",?63,"\|",?68,"\|",?73,"\|" Line Location: SIGN+5
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+3
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+10
Function Call: WRITE	Prompt: "Report Date: ",$P($$FMTE^XLFDT(GMRADPDT),"@"),?70,"Page: ",GMRAPG Line Location: HEAD+11
Function Call: WRITE	Prompt: !,?22,"P&T Committee ADR Outcome Report" Line Location: HEAD+12
Function Call: WRITE	Prompt: !,?25,"From: ",$$FMTE^XLFDT(GMAST,"2D")," To: ",$$FMTE^XLFDT(GMAEN,"2D") Line Location: HEAD+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEAD+14
Function Call: WRITE	Prompt: !,"Obsv.",?8,"\|",?38,"\|",?58,"\|Req.",?63,"\|Req.",?68,"\|",?73,"\|" Line Location: HEAD+15
Function Call: WRITE	Prompt: !,"Date",?8,"\|Causative agent-Pat. ID",?38,"\|Sign/Symptoms",?58,"\|Tx",?63,"\|Hosp",?68,"\|Dis.",?73,"\|Death" Line Location: HEAD+16
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HEAD+17
Routine Call	DIR Line Location: HEAD+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HRCN+1
^GMR(120.8 - [#120.8]	PRINT+11, PRINT+12
^GMR(120.85 - [#120.85]	PRINT+6, PRINT+7, PRINT+8, PRINT+33, PRINT+40, PRINT+45, SIGN+2
^GMRD(120.83 - [#120.83]	PRINT+26, SIGN+3
^TMP($J	EXIT+2!, PRINT+2!, PRINT+21*, PRINT+25, PRINT+28, PRINT+30, PRINT+32

Name	Line Occurrences
$$HRCN	PRINT+16
EXIT	EN1+4
HEAD	PRINT+25, PRINT+35, PRINT+47, SIGN+5
PRINT	PRINTER+7
PRINTER	EN1+5
SIGN	PRINT+40, PRINT+45

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	SIGN~, SIGN+4
DFN	PRINT+15*, PRINT+16, PRINT+20, HRCN~, HRCN+1
DIR	HEAD+5~
DIR(0	HEAD+5*
DUZ(2	PRINT+16
>> GMAEN	PRINT+6, HEAD+13
>> GMAST	PRINT+5, HEAD+13
>> GMRACA	PRINT+13, PRINT+18, PRINT+21, PRINT+29, PRINT+30, PRINT+32, PRINT+37
>> GMRADATE	PRINT+5, PRINT+6, PRINT+7
>> GMRADDT	PRINT+9, PRINT+21, PRINT+27, PRINT+28*, PRINT+30, PRINT+32, PRINT+36
>> GMRADPDT	PRINT+4*, HEAD+11
>> GMRAOTH	PRINT+26*, SIGN+3
>> GMRAOUT	EN1+2, EN1+4, PRINTER+1, PRINT+24, PRINT+28, PRINT+30, PRINT+32, PRINT+35, PRINT+45, PRINT+46 , PRINT+47, SIGN+5, HEAD+2, HEAD+4, HEAD+5, HEAD+9, HEAD+19
>> GMRAPA	PRINT+10*, PRINT+11, PRINT+12
>> GMRAPA(0	PRINT+11*, PRINT+13, PRINT+15, PRINT+34
>> GMRAPA1	PRINT+7, PRINT+8, PRINT+21, PRINT+31, PRINT+32*, PRINT+33, PRINT+40, PRINT+45, SIGN+2
>> GMRAPA1(0	PRINT+8, PRINT+9, PRINT+10, PRINT+33, PRINT+41, PRINT+42, PRINT+43, PRINT+44
>> GMRAPG	PRINT+5, HEAD+1, HEAD+3, HEAD+4, HEAD+10, HEAD+11, HEAD+18
GMRAREC	PRINT+39, PRINT+40, PRINT+45*, SIGN~, SIGN+2
GMRAZIS	PRINTER+1!
HRCN	PRINT+3~, PRINT+16*, PRINT+18
IO	PRINTER+7
IO("Q"	PRINTER+2
IO(0	PRINTER+7
IOF	HEAD+3, HEAD+10
IOSL	HEAD+1
IOST	HEAD+2
NAM	SIGN+1~, SIGN+3*, SIGN+4, SIGN+5
>> POP	PRINTER+1
SITE	HRCN~, HRCN+1
U	PRINT+9, PRINT+10, PRINT+13, PRINT+15, PRINT+41, PRINT+42, PRINT+43, PRINT+44, SIGN+3, HRCN+1
>> X	PRINT+4
Y	SIGN+1~, SIGN+2*, SIGN+3, HEAD+5, HEAD+6!
>> ZTDESC	PRINTER+4*
>> ZTQUEUED	HEAD+19
>> ZTRTN	PRINTER+3*
>> ZTSAVE("GMAEN"	PRINTER+3*
>> ZTSAVE("GMAST"	PRINTER+3*
>> ZTSAVE("GMRAOUT"	PRINTER+3*
>> ZTSK	PRINTER+5

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAPST6

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: