Routine: PSGWDUP

Information

PSGWDUP ;BHAM ISC/KKA-Report for Duplicate entries in ITEM subfile ; 27 Aug 93 / 8:04 AM

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

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

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

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	Timeout: DTIME Variable: CONT 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	Prompt: "Press RETURN to continue: " Formatting: !! Timeout: DTIME Variable: AUTO 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	%ZIS Line Location: SLCT+3
Routine Call	DIR Line Location: SLCT+1
Routine Call	%ZIS Line Location: SLCT+2

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!

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

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*