Routine: GMRAPST7

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

Package

Total

Call Graph

Adverse Reaction Tracking

DT^GMRAPL $$HRCN^GMRAPST6 (CLOSE,DEV)^GMRAUTL ($$PRDTST,$$STPCK)^GMRAUTL1 WORD^GMRAWORD

Kernel

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

VA Fileman

NOW^%DTC ^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRA PRINT ADR REPORT

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRA PRINT ADR REPORT

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

External References

Name	Field # of Occurrence
NOW^%DTC	PRINT+3
^%ZTLOAD	PRINTER+5
^DIR	HEAD+5
DT^GMRAPL	EN1+4
$$HRCN^GMRAPST6	PRINT+15
CLOSE^GMRAUTL	PRINT+61
DEV^GMRAUTL	PRINTER+2
$$PRDTST^GMRAUTL1	PRINT+19
$$STPCK^GMRAUTL1	HEAD+20
WORD^GMRAWORD	PRINT+47
$$FMTE^XLFDT	PRINT+39, HEAD+12, HEAD+14
$$REPEAT^XLFSTR	HEAD+15, HEAD+18
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: !!,"This report required a 132 column printer." Line Location: PRINTER+1
Function Call: WRITE	Prompt: !,"PLEASE TRY LATER" Line Location: PRINTER+2
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.") Line Location: PRINTER+6
Function Call: WRITE	Prompt: !,"NO DATA FOR THIS REPORT..." Line Location: PRINT+24
Function Call: WRITE	Prompt: $P(GMRAPA(0),U,14) Line Location: PRINT+44
Function Call: WRITE	Prompt: $S($P(GMRAPA1(0),U,14)=1:"MILD",$P(GMRAPA1(0),U,14)=2:"MOD.",$P(GMRAPA1(0),U,14)=3:"SVR.",1:"") Line Location: PRINT+45
Function Call: WRITE	Prompt: $G(^TMP($J,"GMRAWORD",GMRACNT)) Line Location: PRINT+48
Function Call: WRITE	Prompt: !,?8,"\|",?38,"\|",?58,"\|",?63,"\|",?68,"\|" Line Location: PRINT+51
Function Call: WRITE	Prompt: !,?8,"\|",?38,"\|",?58,"\|",?63,"\|",?68,"\|" Line Location: PRINT+57
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,"\|" Line Location: SIGN+6
Function Call: WRITE	Prompt: $G(^TMP($J,"GMRAWORD",GMRACNT)) Line Location: SIGN+7
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),"@"),?125,"Page: ",GMRAPG Line Location: HEAD+12
Function Call: WRITE	Prompt: !,?48,"P&T Committee ADR Report" Line Location: HEAD+13
Function Call: WRITE	Prompt: !,?51,"From: ",$$FMTE^XLFDT(GMAST,"2D")," To: ",$$FMTE^XLFDT(GMAEN,"2D") Line Location: HEAD+14
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",130) Line Location: HEAD+15
Function Call: WRITE	Prompt: !,"Obsv.",?8,"\|",?38,"\|",?58,"\|ADR",?63,"\|ADR",?68,"\|" Line Location: HEAD+16
Function Call: WRITE	Prompt: !,"Date",?8,"\|Causative agent-Pat. ID",?38,"\|Sign/Symptoms",?58,"\|Mech",?63,"\|Svr.",?68,"\|Comments" Line Location: HEAD+17
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",130) Line Location: HEAD+18
Routine Call	DIR Line Location: HEAD+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	PRINT+10, PRINT+11, PRINT+36
^GMR(120.85 - [#120.85]	PRINT+5, PRINT+6, PRINT+7, PRINT+34, PRINT+43, PRINT+49, SIGN+2
^GMRD(120.83 - [#120.83]	PRINT+25, SIGN+3
^TMP($J	EXIT+2!, PRINT+2!, PRINT+20*, PRINT+24, PRINT+27, PRINT+29, PRINT+31, PRINT+32, PRINT+47!, PRINT+48 , PRINT+50, PRINT+53, PRINT+55!, SIGN+7

Name	Line Occurrences
EXIT	EN1+4
HEAD	PRINT+24, PRINT+38, PRINT+51, PRINT+57, SIGN+6
PRINT	PRINTER+8
PRINTER	EN1+5
SIGN	PRINT+43, PRINT+49

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	SIGN~, SIGN+4
>> DFN	PRINT+14*, PRINT+15, PRINT+19
DIR	HEAD+5~
DIR(0	HEAD+5*
DUZ(2	PRINT+15
>> GMAEN	PRINT+5, HEAD+14
>> GMAST	PRINT+4, HEAD+14
>> GMRACA	PRINT+12, PRINT+17, PRINT+20, PRINT+28, PRINT+29, PRINT+31, PRINT+32, PRINT+40
>> GMRACNT	PRINT+48, PRINT+50, PRINT+53, SIGN+7*
>> GMRADATE	PRINT+4, PRINT+5, PRINT+6
>> GMRADDT	PRINT+8, PRINT+20, PRINT+26, PRINT+27*, PRINT+29, PRINT+31, PRINT+32, PRINT+39
>> GMRADPDT	PRINT+3*, HEAD+12
>> GMRAOTH	PRINT+25*, SIGN+3
>> GMRAOUT	EN1+2, EN1+4, PRINTER+2, PRINT+23, PRINT+27, PRINT+29, PRINT+31, PRINT+38, PRINT+49, PRINT+50 , PRINT+51, PRINT+52, PRINT+56, PRINT+57, SIGN+6, HEAD+2, HEAD+4, HEAD+5, HEAD+9, HEAD+20
>> GMRAPA	PRINT+9, PRINT+10, PRINT+11, PRINT+20, PRINT+32, PRINT+33, PRINT+36, PRINT+47
>> GMRAPA(0	PRINT+10, PRINT+12, PRINT+14, PRINT+36, PRINT+37, PRINT+44
>> GMRAPA1	PRINT+6, PRINT+7, PRINT+20, PRINT+30, PRINT+31*, PRINT+32, PRINT+34, PRINT+43, PRINT+49, SIGN+2
>> GMRAPA1(0	PRINT+7, PRINT+8, PRINT+9, PRINT+34, PRINT+35, PRINT+45
>> GMRAPG	PRINT+4, HEAD+1, HEAD+3, HEAD+4, HEAD+10, HEAD+12, HEAD+19
GMRAREC	PRINT+42, PRINT+43, PRINT+49*, SIGN~, SIGN+2
GMRAZIS	PRINTER+2!*
>> HRCN	PRINT+15*, PRINT+17
IO	PRINTER+8
IO("Q"	PRINTER+3
IO(0	PRINTER+8
IOF	HEAD+3, HEAD+10
IOSL	HEAD+1
IOST	HEAD+2
NAM	SIGN+1~, SIGN+3*, SIGN+4, SIGN+6
>> POP	PRINTER+2
U	PRINT+8, PRINT+9, PRINT+12, PRINT+14, PRINT+44, PRINT+45, SIGN+3
>> X	PRINT+3
Y	SIGN+1~, SIGN+2*, SIGN+3, HEAD+5, HEAD+6!
Z	HEAD+11~
>> ZTDESC	PRINTER+5*
>> ZTQUEUED	HEAD+20
>> ZTRTN	PRINTER+4*
>> ZTSAVE("GMAEN"	PRINTER+4*
>> ZTSAVE("GMAST"	PRINTER+4*
>> ZTSAVE("GMRAOUT"	PRINTER+4*
>> ZTSK	PRINTER+6

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAPST7

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: