Routine: AMER5

Information

AMER5 ; IHS/ANMC/GIS - PRINT PATIENT ED MATERIALS ;

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Emergency Room	1	AMERD

Name	Comments	DBIA/ICR reference
PAUSE	; EP
ZIS	; ; CHOOSE THE NUMBER OF COPIES AND DEVICE
TOPIC
EN1	; EP
EXIT	; EP
PRINT	; EP

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"If you choose to send the output to your slave printer, print 1 copy at a time.",! Line Location: ZIS+6
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Unable to queue job. Request cancelled!") Line Location: ZIS+15
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+8
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+10
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Routine Call	DIC Line Location: TOPIC+2
Routine Call	DIR Line Location: EN1+1 ZIS+4 PAUSE+6
Routine Call	%ZIS Line Location: ZIS+7

FileNo	Call Tags
^AMER(4 - [#9009084]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMER(4 - [#9009084]	PRINT+5, PRINT+6, PRINT+7
^TMP("AMER"	TOPIC

Name	Field # of Occurrence
>> %ZIS	ZIS+5*
>> %ZIS("A"	ZIS+5*
AMER	EXIT+1!
AMERAGE	EN1+2, EN1+4, TOPIC+1, TOPIC+2, PRINT+5, PRINT+6, PRINT+7, EXIT+2!
AMEREN1	ZIS+18!
AMERI	PRINT+2*, EXIT+1!
AMERNUM	ZIS+4*, PRINT+2, EXIT+1!
AMEROPT	EXIT+2!
AMEROUT	EN1+5!, PRINT+5, PRINT+6, PAUSE+1!, PAUSE+5!, PAUSE+7, PAUSE+8, PAUSE+9*
DIC	TOPIC+1*, TOPIC+2!
DIC("A"	TOPIC*
DIC("S"	TOPIC+1*
DIC(0	TOPIC+1*
DIJ	EXIT+2!
DIR	EN1+1!, ZIS+4!, PAUSE+1!, PAUSE+10!
DIR("A"	EN1+1, ZIS+2, PAUSE+4*
DIR("B"	ZIS+3*
DIR(0	EN1+1, ZIS+2, PAUSE+3*
DIROUT	PAUSE+7, PAUSE+10!
DIRUT	EN1+2, ZIS+18!, PAUSE+7, PAUSE+10!
DISYS	EXIT+2!
DIWF	EXIT+2!
DIWI	EXIT+2!
DIWTC	EXIT+2!
DIWX	EXIT+2!
DP	EXIT+2!
DTOUT	EN1+2, ZIS+18!, PAUSE+5!, PAUSE+8, PAUSE+10!
DUOUT	EN1+2, ZIS+18!, PAUSE+5!, PAUSE+7, PAUSE+10!
IO	PRINT+1
IO("Q"	ZIS+9
IOF	PRINT+8, PRINT+9, PRINT+10
ION	ZIS+11
IOSL	PRINT+8
IOST	PRINT+8, PRINT+9, PRINT+10
NODE	PRINT+3, PRINT+5, PRINT+6, PRINT+7, EXIT+1!
P	EXIT+2!
>> POP	ZIS+7
RECORD	PRINT+4, PRINT+6, PRINT+7, EXIT+1!
U	EN1+2, PRINT+7
W	EXIT+2!
X	PAUSE+8, PAUSE+9, EXIT+1!
>> Y	EN1+2, TOPIC+2, ZIS+4
ZTDESC	ZIS+12*, EXIT+1!
ZTDTH	EXIT+1!
ZTIO	ZIS+11*, EXIT+1!
ZTRTN	ZIS+10*, EXIT+1!
ZTSAVE	EXIT+1!
ZTSAVE("*"	ZIS+13*
ZTSK	ZIS+15, EXIT+1!