Routine: PSGWPAW

Information

PSGWPAW ;BHAM ISC/PTD,CML-Print AMIS Data Worksheet for All Drugs in All AOUs ; 19 Mar 93 / 8:32 AM

Source file <PSGWPAW.m>

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	2	NOW^%DTC ^DIK
Auto Replenishment Ward Stock	1	(END,PRINT)^PSGWPAW1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW PRINT AMIS WORKSHEET

Name	Comments	DBIA/ICR reference
XREF
DEV
ENQ	;ENTRY POINT WHEN QUEUED
AOU
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
BUILD
SETGL

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Right margin for this report is 80 columns.",!,"You may queue the report to print at a later time.",!! Line Location: PSGWPAW+2
Function Call: WRITE	Prompt: !,"You MUST create AOUs before running this report!" Line Location: PSGWPAW+3
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	SETGL, SETGL+1
^PSI(58.1 - [#58.1]	PSGWPAW+3, AOU, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3
^TMP("PSGWPAW"	AOU!, BUILD+3, SETGL+1, PRTQUE+2!

Name	Field # of Occurrence
^(0	BUILD*, BUILD+1, SETGL+1

Name	Field # of Occurrence
%ZIS	DEV!*
%ZIS("B"	DEV*
DA	SETGL*!
DA(1	SETGL*
DIK	SETGL*!
IO	DEV+3
IO("Q"	DEV+1!
ION	DEV+1
IOP	DEV!
>> K	BUILD+2, BUILD+3, SETGL+1
>> POP	DEV
>> PSGWAOU	AOU*, XREF, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL
>> PSGWDR	XREF*, SETGL, SETGL+1
>> PSGWDT	PSGWPAW+2*, BUILD+1
>> PSGWIO	DEV+1*, PRTQUE+1
>> PSGWITM	XREF*, BUILD, BUILD+1, BUILD+2, BUILD+3, SETGL
>> PSGWNM	BUILD+3, SETGL+1*
>> PSGWTY	BUILD+3*
>> X	PSGWPAW+2
>> ZTDESC	DEV+1, PRTQUE+1
ZTDTH	DEV+1!, PRTQUE+1*
ZTIO	DEV+1, PRTQUE+1!
>> ZTQUEUED	AOU
>> ZTRTN	DEV+1, PRTQUE+1
ZTSAVE	DEV+1!, PRTQUE+1!
ZTSAVE("PSGWDT"	DEV+1*
ZTSAVE("PSGWIO"	DEV+1*
ZTSAVE("^TMP(""PSGWPAW"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, DEV+2!