Routine: PSGWBOA

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Auto Replenishment Ward Stock	1	($$PSGWDT,HELP,SS)^PSGWUTL1
VA Fileman	1	^DIK

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Auto Replenishment Ward Stock

($$PSGWDT,HELP,SS)^PSGWUTL1

VA Fileman

^DIK

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW BACKORDER (ALL) PRINT

Package

Total

Caller Graph

Auto Replenishment Ward Stock

PSGW BACKORDER (ALL) PRINT

Name	Comments	DBIA/ICR reference
PRT2
QUIT	;
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
HDR	;
PRTCHK	;
DATA	;
DEV
ENQ	;ENTRY POINT WHEN QUEUED
PRT1	;
DONE
BUILD	;
TOT	;
ASK
INACT
SETGL	;

Name	Field # of Occurrence
^%ZIS	DEV
HOME^%ZIS	DEV+1
^%ZISC	QUIT+2
^%ZTLOAD	DEV+1, PRTQUE+2
^DIK	BUILD+1
$$PSGWDT^PSGWUTL1	PRT1+1
HELP^PSGWUTL1	PRTCHK+1
SS^PSGWUTL1	DONE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print a list of ALL Current Backorders.",! Line Location: PSGWBOA+2
Function Call: READ	Prompt: "Do you want to sort by (A)rea of Use or by (I)tem? " Formatting: ! Timeout: DTIME Variable: SORT Line Location: ASK+0
Function Call: WRITE	Prompt: *7,!?5,"Enter 'A' to sort by Area of Use, 'I' to sort by Item, or '^' to Exit.",! Line Location: ASK+0
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: ASK+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: WRITE	Prompt: !?17,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRT1+2
Function Call: WRITE	Prompt: !!,"=> ",S1 Line Location: PRT1+3
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: !?7,S2 Line Location: DATA+2
Function Call: WRITE	Prompt: ?53,Y,?73,$J(CB,6),!?17,LOC Line Location: DATA+3
Function Call: WRITE	Prompt: ?40,LOC,?54,Y,?73,$J(CB,6) Line Location: DATA+4
Function Call: WRITE	Prompt: !?72,"-------",!?66,"TOTAL:",?72,$J(TOT,7) Line Location: TOT+1
Function Call: WRITE	Prompt: !?25,"PHARMACY BACKORDER LIST BY ITEM",?71,"PAGE: ",PG,!?28,"PRINTED: ",HDT,!!,"=> ","ITEM",?56,"DATE/TIME FOR",?72,"CURRENT",!?12,"AOU",?42,"LOCATION",?58,"BACKORDER",?71,"BACKORDER",!,LN Line Location: HDR+2
Function Call: WRITE	Prompt: !?26,"PHARMACY BACKORDER LIST BY AOU",?71,"PAGE: ",PG,!?28,"PRINTED: ",HDT,!!,"=> ","AOU",!?12,"ITEM",?56,"DATE/TIME FOR",?72,"CURRENT",!?19,"LOCATION",?58,"BACKORDER",?71,"BACKORDER",!,LN Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: INACT+0
Function Call: WRITE	Prompt: "** Indicates an Inactive AOU" Line Location: INACT+1
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRTCHK+1
Routine Call	%ZIS Line Location: DEV+1
Routine Call	%ZIS Line Location: DEV

FileNo	Call Tags
^PSI(58.3 - [#58.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DATA+2
^PSDRUG - [#50]	BUILD+1, BUILD+2
^PSI(58.1 - [#58.1]	SETGL+1, SETGL+2
^PSI(58.3 - [#58.3]	ENQ+1, BUILD+1, BUILD+3
^TMP("PSGWBOA"	ENQ+1!, SETGL+3, SETGL+4, PRTQUE+2!, PRT1+2, PRT1+3, QUIT+2!, PRT2, DATA+1

Name	Line Occurrences
ASK	ASK
BUILD	ENQ+1
DATA	PRT2
DONE	PRT1+2
HDR	PRT1+1, PRTCHK+2
INACT	DONE, PRTCHK+1
PRT1	ENQ+1
PRT2	PRT1+3
PRTCHK	PRT1+3, DATA+1, TOT+1
PRTQUE	ENQ+1
QUIT	ASK, DEV, DEV+1, PRTQUE+2
SETGL	BUILD+3
TOT	PRT2

Name	Field # of Occurrence
^(	BUILD+3, DATA+1
^("I"	SETGL+1
^(0	ENQ+1, BUILD+2, BUILD+3, SETGL+1, SETGL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUIT+1!
%DT	PRT1+1*, QUIT+1!
%H	QUIT+1!
%I	QUIT+1!
%ZIS	DEV!*
%ZIS("B"	DEV*
ANM	SETGL+1*, SETGL+3, SETGL+4, QUIT+2!
ANS	QUIT+1!, PRTCHK+1*
AOU	BUILD+3*, SETGL+1, SETGL+2, QUIT+1!
BO	BUILD+3*, QUIT+1!
BODA	ENQ+1*, BUILD+1, BUILD+3, QUIT+1!
BODT	SETGL+1, SETGL+3, SETGL+4, QUIT+1!, PRT2, DATA+1, DATA+2
CB	SETGL+1, SETGL+3, SETGL+4, QUIT+1!, DATA+1, DATA+3, DATA+4
DA	BUILD+1*!, QUIT+2!
DIC	QUIT+1!
DIK	BUILD+1*!
DNM	BUILD+2*, SETGL+3, SETGL+4, QUIT+2!
DRGDA	ENQ+1*, BUILD+1, BUILD+2, SETGL+2, QUIT+1!
DT	SETGL+1
DTIME	ASK, PRTCHK+1
HDT	PRT1+1*, QUIT+1!, HDR+2, HDR+3
HF	QUIT+2!
INACT	PRT1+3, QUIT+1!, TOT+1, HDR+1*, INACT
IO	DEV+2
IO("Q"	DEV+1!, QUIT+2!
IOF	DONE, HDR+1
ION	DEV+1
IOP	DEV!
IOSL	PRT1+3, DATA+1, TOT+1, INACT
IOST	DONE, DONE+1, PRTCHK+1
ITMDA	SETGL+2*, QUIT+1!
JJ	QUIT+1!
LL	PRT1+3, QUIT+1!, PRT2
LN	PRT1+1*, QUIT+1!, HDR+2, HDR+3
LNS	QUIT+1!, INACT*
LOC	SETGL+2, SETGL+3, SETGL+4, QUIT+1!, DATA+1*, DATA+3, DATA+4
PG	PRT1+1, QUIT+1!, HDR+1, HDR+2, HDR+3
>> POP	DEV
PSGWIO	DEV+1*, PRTQUE+1, QUIT+2!
QFLG	PRT1+1, PRT1+2, PRT1+3, DONE, DONE+1, QUIT+1!, PRT2, DATA+1, TOT+1, PRTCHK+1*
QQ	BUILD+3*, SETGL+1, QUIT+1!
S1	PRT1+1, PRT1+3, QUIT+1!, PRT2, DATA+1
S2	PRT1+1, QUIT+1!, PRT2, DATA+1, DATA+2, TOT+1
SORT	ASK*, SETGL+3, QUIT+1!, PRT2, DATA+3, HDR+2
TOT	PRT1+3, QUIT+1!, DATA+1, TOT+1
X	QUIT+1!
Y	QUIT+1!, DATA+2*, DATA+3, DATA+4
>> ZTDESC	DEV+1, PRTQUE+1
ZTDTH	DEV+1!, PRTQUE+1*
ZTIO	DEV+1, PRTQUE+1!, QUIT+2!
>> ZTQUEUED	ENQ+1, QUIT+3
>> ZTREQ	QUIT+3*
>> ZTRTN	DEV+1, PRTQUE+1
ZTSAVE	DEV+1!, PRTQUE+1!
ZTSAVE("PSGWIO"	DEV+1*
ZTSAVE("SORT"	DEV+1, PRTQUE+1
ZTSAVE("^TMP(""PSGWBOA"",$J,"	PRTQUE+1*
ZTSK	DEV+1!, QUIT+2!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWBOA

Information

Source Information

Call Graph

Call Graph Total: 5

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

Naked Globals

Local Variables

Legend: