Routine: PSGWDUP1

Information

PSGWDUP1 ;BHAM ISC/KKA-Report for Duplicate Entries in ITEM subfile-CONTINUED ; 17 Aug 93 / 10:58 AM

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
VA FileMan	1	Y^DIQ

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	PSGWDUP

Entry Points

Name	Comments	DBIA/ICR reference
ENTRY	; entry point when queued
END
ONE	; display information for one drug
INV	; display inventory data
INVHEAD	; header for inventory data
RET	; display return data
RETHEAD	; header for return data
OD	; display on-demand data
ODHEAD	; header for on-demand data
PAGE	; header for page

External References

Name	Field # of Occurrence
Y^DIQ	RET+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Press RETURN to continue: " Line Location: ENTRY+4
Function Call: WRITE	Prompt: !,@IOF Line Location: END+0
Function Call: WRITE	Prompt: !,"INVENTORIES:",!,?10,"No inventories shown" Line Location: INV+1
Function Call: WRITE	Prompt: !,?CONTLTH,CONT Line Location: INV+4
Function Call: WRITE	Prompt: !,?10,Y,?35,$S($P(PSGWINND,"^",4)=1:"YES",1:"NO"),?47,$P(PSGWINND,"^",5),?62,$P(PSGWINND,"^",6) Line Location: INV+6
Function Call: WRITE	Prompt: !,"INVENTORIES: " Line Location: INVHEAD+1
Function Call: WRITE	Prompt: !!,?10,"DATE/TIME",?33,"COMPILED",?60,!,?13,"FOR",?35,"INTO",?45,"DISPENSE",!,?10,"INVENTORY",?35,"AMIS",?45,"QUANTITY",?60,"ON HAND",! Line Location: INVHEAD+2
Function Call: WRITE	Prompt: ?10 Line Location: INVHEAD+3
Function Call: WRITE	Prompt: "-" Line Location: INVHEAD+3
Function Call: WRITE	Prompt: !,?CONTLTH,CONT Line Location: RET+1
Function Call: WRITE	Prompt: !!,"RETURNS:",!,?10,"No returns shown" Line Location: RET+2
Function Call: WRITE	Prompt: !,?CONTLTH,CONT Line Location: RET+5
Function Call: WRITE	Prompt: !,?10,Y,?27,$P(PSGWRTND,"^",2),?37,$S($P(PSGWRTND,"^",4)=1:"YES",1:"NO") Line Location: RET+7
Function Call: WRITE	Prompt: ?50,Y,! Line Location: RET+8
Function Call: WRITE	Prompt: !!,"RETURNS: " Line Location: RETHEAD+1
Function Call: WRITE	Prompt: !!,?35,"COMPILED",!,?10,"DATE OF",?25,"RETURN",?37,"INTO",?50,"RETURN",!,?10,"RETURN",?25,"QUANTITY",?37,"AMIS",?50,"REASON(S)",! Line Location: RETHEAD+2
Function Call: WRITE	Prompt: ?10 Line Location: RETHEAD+3
Function Call: WRITE	Prompt: "-" Line Location: RETHEAD+3
Function Call: WRITE	Prompt: !,?CONTLTH,CONT Line Location: OD+1
Function Call: WRITE	Prompt: !!,"ON-DEMANDS: ",!,?10,"No on-demands shown" Line Location: OD+2
Function Call: WRITE	Prompt: !,?CONTLTH,CONT Line Location: OD+5
Function Call: WRITE	Prompt: !,?10,Y,?30,$P(PSGWODND,"^",2),?50,$S($P(PSGWODND,"^",3):$P($G(^VA(200,$P(PSGWODND,"^",3),0)),"^"),1:"") Line Location: OD+6
Function Call: WRITE	Prompt: ?72,$S($P(PSGWODND,"^",4)=1:"YES",1:"NO"),?85,$S($P(PSGWODND,"^",5):$P($G(^VA(200,+$P(PSGWODND,"^",5),0)),"^"),1:"") Line Location: OD+7
Function Call: WRITE	Prompt: ?105,Y Line Location: OD+7
Function Call: WRITE	Prompt: !!,"ON-DEMANDS:" Line Location: ODHEAD+1
Function Call: WRITE	Prompt: !!,?70,"COMPILED",!,?10,"DATE/TIME",?30,"QUANTITY",?72,"INTO",?105,"DATE/TIME",!,?10,"FOR ON-DEMAND",?30,"DISPENSED",?50,"ENTERED BY",?72,"AMIS",?85,"EDITED BY",?105,"LAST EDITED" Line Location: ODHEAD+2
Function Call: WRITE	Prompt: !,?10 Line Location: ODHEAD+3
Function Call: WRITE	Prompt: "-" Line Location: ODHEAD+3
Function Call: READ	Variable: CONT Timeout: DTIME Line Location: PAGE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: PAGE+3
Function Call: WRITE	Prompt: !!,?(132-$L(X))/2,X,!!,"DRUG: ",$P($G(^PSDRUG(PSGWDRG,0)),"^"),?115,"PAGE ",PAGE Line Location: PAGE+3
Function Call: WRITE	Prompt: !!!,"AOU: ",$P($G(^PSI(58.1,PSGWAOU,0)),"^"),!,"Internal Entry #: ",PSGWITM,!,"Pointer in file 50: ",PSGWDRG,! Line Location: PAGE+4
Function Call: WRITE	Prompt: "-" Line Location: PAGE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INV+6, RET+7, OD+6, OD+7
^DD(58.152	RET+8
^PSDRUG - [#50]	PAGE+3
^PSI(58.1 - [#58.1]	INV+1, INV+3, INV+5, RET+2, RET+4, RET+6, RET+8, OD+2, OD+4, OD+6 , PAGE+4
^PSI(58.19 - [#58.19]	INV+6
^TMP("PSGW"	ONE+1
^VA(200 - [#200]	OD+6, OD+7

Label References

Name	Line Occurrences
INV	ONE+4
INVHEAD	INV+2, INV+4
OD	ONE+4
ODHEAD	OD+3, OD+5
ONE	ENTRY+3
PAGE	ONE+3, INV+4, RET+1, RET+5, OD+1, OD+5
RET	ONE+4
RETHEAD	RET+3, RET+5

Naked Globals

Name	Field # of Occurrence
^(	ONE+1, RET+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	RET+8*
CNT	ENTRY+3*, END+1!
CNT3	END+1!
CONT	ENTRY+2, ENTRY+4, END+1!, INV+4, RET+1, RET+5, OD+1, OD+5, PAGE+1*
CONTLTH	ENTRY+2*, END+1!, INV+4, RET+1, RET+5, OD+1, OD+5
DTIME	ENTRY+4, PAGE+1
I	END+1!, INVHEAD+3, RETHEAD+3, ODHEAD+3, PAGE+5
IOF	END, PAGE+3
IOSL	INV+4, RET+1, RET+5, OD+1, OD+5
IOST	ENTRY+4, PAGE+1
OUT	ENTRY+1, ENTRY+3, ENTRY+4, END+1!, ONE+1, ONE+4, INV+3, INV+4, RET+1, RET+4 , RET+5, OD+1, OD+4, OD+5, PAGE+1
PAGE	ENTRY+1, END+1!, PAGE+1, PAGE+2, PAGE+3
PSGWAOU	END+1!, ONE+2*, INV+1, INV+3, INV+5, RET+2, RET+4, RET+6, RET+8, OD+2 , OD+4, OD+6, PAGE+4
PSGWDRCT	ENTRY+3*, END+1!, ONE+1
PSGWDRG	END+1!, ONE+2*, PAGE+3, PAGE+4
PSGWDRP	ENTRY+3, END+1!
PSGWINND	END+1!, INV+5*, INV+6
PSGWINV	END+1!, INV+3*, INV+5
PSGWITM	END+1!, ONE+2*, INV+1, INV+3, INV+5, RET+2, RET+4, RET+6, RET+8, OD+2 , OD+4, OD+6, PAGE+4
PSGWND	END+1!, ONE+1*, ONE+2
PSGWNOD	END+1!
PSGWNXT	END+1!, ONE+1*
PSGWOD	END+1!, OD+4*, OD+6
PSGWODND	END+1!, OD+6*, OD+7
PSGWRET	END+1!, RET+4*, RET+6, RET+8
PSGWRR	END+1!, RET+8*
PSGWRTND	END+1!, RET+6*, RET+7
PSGWVAL	END+1!
PSGWY	END+1!
X	END+1!, PAGE+3*
Y	END+1!, INV+6, RET+7, RET+8, OD+6, OD+7*

Customize PDF page

Package: Auto Replenishment Ward Stock