Routine: PSGWDUP

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	NOW^%DTC ^DIR
Auto Replenishment Ward Stock	1	ENTRY^PSGWDUP1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW DUPLICATE REPORT

Entry Points

Name	Comments	DBIA/ICR reference
DUP	; CHECK FOR DUPLICATE ENTRIES IN ITEM SUBFIELD IN 58.1
SLCT	; select drug(s) which should be printed
END	;
ACHK	;** continue checking for number of active items

External References

Name	Field # of Occurrence
NOW^%DTC	DUP+1
^%ZIS	SLCT+2
HOME^%ZIS	SLCT+3
^%ZISC	END+2
^%ZTLOAD	SLCT+3
^DIR	SLCT+1
ENTRY^PSGWDUP1	SLCT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,"Duplicate Entries Exist in the ITEM subfile (58.11) of the",!,"PHARMACY AOU STOCK file (#58.1) for the Following Drugs:",!! Line Location: DUP+3
Function Call: READ	Variable: CONT Timeout: DTIME Line Location: DUP+8
Function Call: WRITE	Prompt: !!,"Press RETURN to continue or ""^"" to exit: " Line Location: DUP+8
Function Call: WRITE	Prompt: @IOF,"Duplicate Entries (continued)",!! Line Location: DUP+8
Function Call: READ	Formatting: !! Prompt: "Press RETURN to continue: " Variable: AUTO Timeout: DTIME Line Location: DUP+13
Function Call: WRITE	Prompt: !!,?10,"No duplicate entries exist." Line Location: DUP+13
Function Call: WRITE	Prompt: !! Line Location: SLCT+1
Function Call: WRITE	Prompt: !!,"The right margin for this report is 132.",!,"You may queue the report to print at a later time.",!! Line Location: SLCT+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED." Line Location: SLCT+2
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Routine Call	DIR Line Location: SLCT+1
Routine Call	%ZIS Line Location: SLCT+2
Routine Call	%ZIS Line Location: SLCT+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	DUP+10
^PSI(58.1 - [#58.1]	DUP+4, DUP+5, DUP+6, DUP+10, DUP+12, ACHK+1
^TMP("PSGW"	DUP+11, DUP+12, END+1!

Label References

Name	Line Occurrences
ACHK	DUP+6
END	DUP+13, SLCT+1, SLCT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%H	END+1!
%I	END+1!
%ZIS	SLCT+2!*
%ZIS("B"	SLCT+2*
ACNT	DUP+5, DUP+6, DUP+7, END+1!, ACHK+1*
AUTO	DUP+13*, END+1!
CNT	DUP+2, DUP+9, DUP+10, DUP+11, DUP+12, DUP+13, SLCT+1, END+1!
CNT2	DUP+12*, END+1!
CONT	DUP+8*, END+1!
DIR	SLCT+1!
DIR("A"	SLCT+1*
DIR(0	SLCT+1*
DTIME	DUP+8, DUP+13
IDT	DUP+6, END+1!, ACHK+1
IO	SLCT+4
IO("Q"	SLCT+2!, SLCT+3
IOF	DUP+3, DUP+8, END+2
IOP	SLCT+2!
IOSL	DUP+8
OUT	DUP+2, DUP+4, DUP+5, DUP+8, END+1!
POP	SLCT+2, END+1!
PSGWAOU	DUP+4*, DUP+5, DUP+6, DUP+10, DUP+11, DUP+12, END+1!, ACHK+1
PSGWDRG	DUP+5*, DUP+6, DUP+10, DUP+11, DUP+12, END+1!
PSGWDRP	SLCT+1*, END+1!
PSGWDT	DUP+1*, DUP+6, END+1!, ACHK+1
PSGWITM	DUP+5, DUP+6, DUP+11, DUP+12, END+1!
PSGWITMT	DUP+6*, END+1!, ACHK+1
X	DUP+1, END+1!
Y	SLCT+1, END+1!
ZTDESC	SLCT+3*, END+1!
ZTRTN	SLCT+3*, END+1!
>> ZTSAVE("PSGWDRP"	SLCT+3*, END+1!
>> ZTSAVE("^TMP(""PSGW"",$J)"	END+1!
>> ZTSAVE("^TMP(""PSGW"",$J,"	SLCT+3*

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWDUP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: