Routine: PSGWAIO

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!! Line Location: EDT+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: WRITE	Prompt: !?5,"NO INVENTORIES LISTED FOR SELECTED DATES." Line Location: PRINT+1
Function Call: WRITE	Prompt: !?5,Y Line Location: WKDT+0
Function Call: WRITE	Prompt: ?39,$J(ID,6) Line Location: WKDT+1
Function Call: WRITE	Prompt: ?51,$P(^VA(200,IDUZ,0),"^") Line Location: DUZ+0
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !,"PHARMACY AREA OF USE INVENTORY LIST FROM " Line Location: HDR+1
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+1
Function Call: WRITE	Prompt: Y," TO " Line Location: HDR+1
Function Call: WRITE	Prompt: ?70,"PAGE ",PGCT Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"==> AREA OF USE",!?5,"INVENTORY DATE/TIME",?27,"DAY/WEEK",?39,"INV. ID#",?51,"RESPONSIBLE PERSON",!?22,"TYPES INVENTORIED",! Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"==> AREA OF USE",!?5,"INVENTORY DATE/TIME",?27,"DAY/WEEK",?39,"INV. ID#",?51,"RESPONSIBLE PERSON",!?22,"TYPES INVENTORIED",! Line Location: HDR+2
Function Call: WRITE	Prompt: !?22,$S($D(^PSI(58.16,($P(LOC,",",P)),0)):$P(^(0),"^"),1:"TYPE NAME HAS BEEN DELETED IN FILE 58.16") Line Location: WRTYPE+0
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: PRTCHK+1
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WKDT, HDR+1
^PSI(58.1 - [#58.1]	AOU
^PSI(58.16 - [#58.16]	WRTYPE
^PSI(58.19 - [#58.19]	DTLP, INVLP, BUILD+1, AOULP, TYPLP
^TMP("PSGWIO"	ENQ+1!, PRINT+1, AOU, WKDT+1, DUZ, END!, SETGL*
^VA(200 - [#200]	DUZ

Name	Line Occurrences
AOULP	TYPLP
BUILD	INVLP
DONE	DEV+2, PRINT+1, AOU
DTLP	INVLP
DUZ	WKDT+1
END	BDT, EDT, DEV
HDR	PRINT+1, PRTCHK+2
PRINT	DTLP
PRTCHK	AOU, WKDT, DUZ
SETGL	TYPLP
TYPLP	TYPLP
WKDT	AOU
WRTYPE	DUZ

Name	Field # of Occurrence
^(	DUZ
^(0	BUILD+1, WRTYPE

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	BDT!, EDT!
%DT("A"	BDT, EDT
%DT(0	EDT*
%H	END!
%I	END!
%ZIS	DEV!*
%ZIS("B"	DEV*
ANS	END!, PRTCHK+1*
AOU	PRINT+1, AOU, WKDT+1, DUZ, END!, BUILD+1, AOULP, TYPLP, SETGL
BDT	BDT*, EDT, ENQ+1, END!, HDR+1
DTIME	PRTCHK+1
EDT	EDT*, DTLP, END!, HDR+1
G	DEV+1*, END!
ID	WKDT+1*, DUZ, END!
IDUZ	WKDT+1, DUZ, END!
INVDA	DTLP, INVLP, END!, BUILD+1, AOULP, TYPLP, SETGL
INVDT	ENQ+1, DTLP, INVLP, AOU*, WKDT, WKDT+1, DUZ, END!, SETGL
INVDUZ	END!, BUILD+1*, SETGL
IO	DEV+3
IO("Q"	DEV+1!, END!
IOF	DONE, HDR+1
IOP	DEV!
IOSL	AOU, WKDT, DUZ
IOST	DONE, DONE+1, PRTCHK+1
J	INVLP, AOU, END!, HDR+2*
K	AOU*, END!
L	WKDT+1*, END!
LOC	DUZ*, END!, WRTYPE
M	WKDT+1*, END!
N	DUZ*, END!
P	DUZ*, END!, WRTYPE
PCL	DUZ*, END!
PGCT	PRINT+1, END!, HDR+2
>> POP	DEV
QFLG	DEV+2, PRINT+1, AOU, WKDT, WKDT+1, DUZ, DONE+1, END!, PRTCHK+1*
TYP	END!, AOULP, TYPLP
TYPSTR	END!, AOULP, TYPLP, SETGL
WD	AOU, WKDT+1, DUZ, END!
WKD	END!, BUILD+1*, SETGL
Y	BDT, EDT, WKDT, END!, HDR+1
>> ZTDESC	DEV+1*
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
>> ZTRTN	DEV+1*
>> ZTSAVE(	DEV+1*
ZTSK	DEV+2!, END!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWAIO

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END
HDR	;PRINT REPORT MAIN HEADER
TYPLP
ENQ	;ENTRY POINT WHEN QUEUED
AOULP
WRTYPE
PRINT	;PRINT AOU INVENTORY OUTLINE
DUZ
DEV
INVLP
BDT
AOU
DONE
BUILD	;STORE INVENTORY DATA FOR DATE RANGE
EDT
DTLP
PRTCHK	;
WKDT
SETGL