Routine: GMRAZNAS

Package	Total	Call Graph
Adverse Reaction Tracking	2	$$NKA^GMRANKA $$INASSESS^GMRAPEM0
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Changes To Pharmacy	1	($$DIR,$$GETIEN,ASKDATES)^APSPUTIL
IHS VA Utilities	1	^XBDBQUE
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Package

Total

Call Graph

Adverse Reaction Tracking

$$NKA^GMRANKA $$INASSESS^GMRAPEM0

VA Fileman

$$GET1^DIQ ^DIR

IHS Changes To Pharmacy

($$DIR,$$GETIEN,ASKDATES)^APSPUTIL

IHS VA Utilities

^XBDBQUE

Kernel

($$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRAZ NO ALLERGY ASSESSMENT

Package

Total

Caller Graph

Adverse Reaction Tracking

GMRAZ NO ALLERGY ASSESSMENT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP
HDR2	;Write delimeted header
PAUS	;pause
HDR1	;Write header
DELIM	;Delimeted output
DEV	;EP
SETDATA(DIV,DFN,IEN)	;Put the data into the temp global
CHKVST(IEN)	;Check to see its an ambulatory visit
REG	;Output to the screen
OUT	;EP Run the report

External References

Name	Field # of Occurrence
$$DIR^APSPUTIL	EN+5, EN+12
$$GETIEN^APSPUTIL	EN+10
ASKDATES^APSPUTIL	EN+3
$$GET1^DIQ	OUT+12, CHKVST+6, CHKVST+8, SETDATA+4, SETDATA+5, SETDATA+7, SETDATA+9, SETDATA+10, SETDATA+12, SETDATA+14
^DIR	PAUS+4
$$NKA^GMRANKA	OUT+15
$$INASSESS^GMRAPEM0	OUT+17
^XBDBQUE	DEV+4
$$FMADD^XLFDT	EN+3
$$FMTE^XLFDT	OUT+5, OUT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Report of patients with no allergy assessment who were seen in the dates selected" Line Location: EN+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+2
Function Call: WRITE	Prompt: !,"Patient with no allergy assessment seen between "_GMRBDF_" and "_GMREDF Line Location: HDR1+3
Function Call: WRITE	Prompt: !,?1,"DIVISION",?22,"PATIENT",?43,"VISIT",?64,"PROVIDER" Line Location: HDR1+4
Function Call: WRITE	Prompt: ! Line Location: HDR1+5
Function Call: WRITE	Prompt: "-" Line Location: HDR1+5
Function Call: WRITE	Prompt: ! Line Location: HDR1+6
Function Call: WRITE	Prompt: !,"Patient with no allergy assessment seen between "_GMRBDF_" and "_GMREDF Line Location: HDR2+1
Function Call: WRITE	Prompt: !,"DIVISION^PATIENT^VISIT^PROVIDER" Line Location: HDR2+2
Routine Call	DIR Line Location: PAUS+4

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVPRV - [#9000010.06]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV("AD"	SETDATA+11
^AUPNVSIT - [#9000010]	CHKVST+3
^AUPNVSIT("B"	OUT+8, OUT+9
^TMP("GMRALG"	OUT+2!, SETDATA+16*, REG+3, REG+4, REG+6, REG+9, DELIM+3, DELIM+4, DELIM+6, DELIM+7

Name	Line Occurrences
$$CHKVST	OUT+10
DELIM	OUT+20
DEV	EN+14
HDR1	REG+2, REG+7
HDR2	DELIM+2
PAUS	REG+7
REG	OUT+21
SETDATA	OUT+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALG	OUT+1~, OUT+14~, OUT+15*, OUT+16
CNT	OUT+1~, OUT+3, SETDATA+3, SETDATA+16, REG+1~, REG+5, REG+6, REG+9, DELIM+1~, DELIM+5* , DELIM+6*, DELIM+7
DFN	OUT+1~, OUT+12, OUT+15, OUT+17, OUT+18, SETDATA~, SETDATA+4, SETDATA+16, REG+1~, REG+4 , REG+6, REG+9, DELIM+1~, DELIM+4*, DELIM+6, DELIM+7
DIR	PAUS+1~
DIR("?"	PAUS+2*
DIR("A"	PAUS+3*
DIR(0	PAUS+3*
DIV	CHKVST+1~, CHKVST+8, CHKVST+9, SETDATA~, SETDATA+6, SETDATA+10, SETDATA+16, REG+1~, REG+3, REG+4 , REG+6, REG+9, DELIM+1~, DELIM+3*, DELIM+4, DELIM+6, DELIM+7
DIVNM	SETDATA+1~, SETDATA+2, SETDATA+9, SETDATA+10*, SETDATA+16
DT	EN+3
DTOUT	PAUS+1~
DUOUT	PAUS+1~, PAUS+5
FILTER	OUT+1~, OUT+4*, CHKVST+3
GMRBD	EN+1~, EN+3, OUT+5, OUT+7, OUT+8, OUT+9
GMRBDF	OUT+1~, OUT+5*, HDR1+3, HDR2+1
GMRDIV	EN+1~, EN+5, EN+7, EN+8, EN+10*, OUT+18, CHKVST+4, CHKVST+9
GMRED	EN+1~, EN+3, OUT+6, OUT+7*, OUT+8
GMREDF	OUT+1~, OUT+6*, HDR1+3, HDR2+1
GMRQ	EN+1~, EN+3, EN+4, EN+5, EN+6, EN+9, EN+10, EN+11, EN+12, EN+13 , REG+3, REG+4, REG+6, REG+7, REG+8, PAUS+5*
GMRTYP	EN+1~, EN+12*, OUT+20, OUT+21
IEN	OUT+1~, OUT+9*, OUT+10, OUT+12, OUT+18, CHKVST~, CHKVST+3, CHKVST+6, SETDATA~, SETDATA+5 , SETDATA+7, SETDATA+11
IOF	HDR1+2
IOSL	REG+7
IOST	REG+7, HDR1+2
LIN	HDR1+1~, HDR1+5*
LOC	CHKVST+1~, CHKVST+6, CHKVST+7, CHKVST+8, SETDATA+7, SETDATA+8, SETDATA+9
NAME	SETDATA+1~, SETDATA+4*, SETDATA+16
OK	OUT+1~, OUT+10*, OUT+13
PNAME	SETDATA+1~, SETDATA+2, SETDATA+14, SETDATA+16
PRI	SETDATA+1~, SETDATA+12*, SETDATA+13
PRV	SETDATA+1~, SETDATA+11*, SETDATA+12, SETDATA+14
QUIT	SETDATA+1~, SETDATA+2, SETDATA+11, SETDATA+15
RET	CHKVST+1~, CHKVST+2, CHKVST+4, CHKVST+9*, CHKVST+10
STRING	REG+1~, REG+9, REG+10, DELIM+1~, DELIM+7, DELIM+8
U	CHKVST+3, SETDATA+16, REG+10, DELIM+8
UN	OUT+1~, OUT+17*, OUT+18
VSTDT	SETDATA+1~, SETDATA+5*, SETDATA+16
XBNS	DEV+1~, DEV+3*
XBRP	DEV+1~, DEV+2*

Customize PDF page

Package: Adverse Reaction Tracking

Routine: GMRAZNAS

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: