Routine: PSGWPI2

Package	Total	Caller Graph
Auto Replenishment Ward Stock	3	PSGWPI1 PSGWPL PSGWPL1

Entry Points

Name	Comments	DBIA/ICR reference
BARHDR	;Bar Coded Inventory Header
BARWRT	;Bar Coded data lines
EN1
EN2
EN1A
WRTGRP	;Write name(s) of inventory group on header.

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!,"* Indicates change in stock level." Line Location: EN1+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: EN1+1
Function Call: WRITE	Prompt: !,"WARD STOCK INVENTORY FOR" Line Location: EN1+1
Function Call: WRITE	Prompt: ?26,Y," INVENTORY # ",PSGWIDA,?99,PSGTODAY,?120,"PAGE ",PSGPAGE,!,"GROUP: " Line Location: EN1+1
Function Call: WRITE	Prompt: !,?10,"ITEM",?51,"STOCK",?58,"QUICK",?66,"ON" Line Location: EN1+4
Function Call: WRITE	Prompt: ?74,"REORDER",?83,"MINIMUM QTY",?97,"QUANTITY" Line Location: EN1+5
Function Call: WRITE	Prompt: ?TAB1,"RETURN" Line Location: EN1+6
Function Call: WRITE	Prompt: !,?51,"LEVEL",?58,"CODE",?66,"HAND" Line Location: EN1+7
Function Call: WRITE	Prompt: ?74,"LEVEL",?83,"TO DISPENSE",?97,"DISPENSED" Line Location: EN1+8
Function Call: WRITE	Prompt: ?TAB1,"RETURN",?TAB2,"REASON" Line Location: EN1+9
Function Call: WRITE	Prompt: !!?80,"INVENTORIED/DELIVERED BY __________________________" Line Location: EN1A+0
Function Call: WRITE	Prompt: " * INACTIVE *" Line Location: EN1A+1
Function Call: WRITE	Prompt: " " Line Location: EN1A+2
Function Call: WRITE	Prompt: @PSGWBAR1,X2,@PSGWBAR0 Line Location: EN1A+2
Function Call: WRITE	Prompt: $S($D(^PSI(58.2,PSGWPC,0)):$P(^(0),"^"),1:"") Line Location: WRTGRP+2
Function Call: WRITE	Prompt: ", " Condition for execution: PSGWLP<($L(PSGWGRP,",")-1) Line Location: WRTGRP+2
Function Call: WRITE	Prompt: !?10,"ITEM",?73,"STOCK" Line Location: BARHDR+1
Function Call: WRITE	Prompt: ?80,"REORDER",?89,"MINIMUM QTY",?102,"QUANTITY" Line Location: BARHDR+1
Function Call: WRITE	Prompt: ?80,"ON" Line Location: BARHDR+2
Function Call: WRITE	Prompt: ?TAB1,"RETURN" Line Location: BARHDR+3
Function Call: WRITE	Prompt: !?73,"LEVEL" Line Location: BARHDR+4
Function Call: WRITE	Prompt: ?80,"LEVEL",?89,"TO DISPENSE",?102,"DISPENSED" Line Location: BARHDR+4
Function Call: WRITE	Prompt: ?80,"HAND" Line Location: BARHDR+5
Function Call: WRITE	Prompt: ?TAB1,"RETURN",?TAB2,"REASON" Line Location: BARHDR+6
Function Call: WRITE	Prompt: !?10,PSGDR Line Location: BARWRT+1
Function Call: WRITE	Prompt: ?55 Line Location: BARWRT+1
Function Call: WRITE	Prompt: ?55 Line Location: BARWRT+1
Function Call: WRITE	Prompt: ?14,"Expiration Date: ",Y Line Location: BARWRT+2
Function Call: WRITE	Prompt: ?72,"*" Line Location: BARWRT+3
Function Call: WRITE	Prompt: ?72,"*" Line Location: BARWRT+4
Function Call: WRITE	Prompt: ?80,"_____" Line Location: BARWRT+5
Function Call: WRITE	Prompt: ?80,$S(+$P(LOC,"^",11):$J($P(LOC,"^",11),5),1:""),?91,$S($P(LOC,"^",12):$J($P(LOC,"^",12),5),1:""),?103,"______" Line Location: BARWRT+6
Function Call: WRITE	Prompt: ?TAB1,"______",?TAB2,"E O D C" Line Location: BARWRT+7
Function Call: WRITE	Prompt: !?14,"*Inactivated Item, pull existing stock" Line Location: BARWRT+8
Function Call: WRITE	Prompt: !?10,$S($P(PSGWSITE,"^",5):LN1,1:LN2) Line Location: BARWRT+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN1+1, BARWRT+2
^PSI(58.1 - [#58.1]	EN1A+1, EN1A+2, EN2, EN2+1, EN2+2, BARWRT+2, BARWRT+3, BARWRT+4*
^PSI(58.19 - [#58.19]	EN1+2, WRTGRP+1
^PSI(58.2 - [#58.2]	WRTGRP+2

Label References

Name	Line Occurrences
BARHDR	EN1+3
EN1A	EN1+3
WRTGRP	EN1+2

Naked Globals

Name	Field # of Occurrence
^("EXP"	BARWRT+2
^("I"	EN1A+1
^(0	EN1A+1, WRTGRP+1, WRTGRP+2, EN2+1, EN2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARFLG	EN1+3
>> DRGDA	BARWRT+1
DT	EN1A+1
IOF	EN1+1
>> J	EN2, EN2+1, EN2+2
>> LN	EN1+1*, EN1A+1
>> LN1	EN1+1*, BARWRT+9
>> LN2	EN1+1*, BARWRT+9
>> LNCNT	EN1A, EN1A+2, BARHDR+1, BARWRT+8, BARWRT+9*
>> LOC	BARWRT+3, BARWRT+4, BARWRT+6
>> PSGDA	EN1A+1, EN1A+2, EN2, EN2+1, EN2+2, BARWRT+2, BARWRT+3, BARWRT+4
>> PSGDDA	BARWRT+2, BARWRT+3, BARWRT+4
>> PSGDR	BARWRT+1
PSGINAD	BARWRT+4*, BARWRT+8!
>> PSGPAGE	EN1+1, EN1A, EN1A+1*
>> PSGTODAY	EN1+1
>> PSGWBAR0	EN1A+2, BARWRT+1
>> PSGWBAR1	EN1A+2, BARWRT+1
>> PSGWBARS	EN1A+2, BARWRT+1
>> PSGWDT	BARWRT+4
>> PSGWGRP	WRTGRP+1*, WRTGRP+2
>> PSGWIDA	EN1+1, EN1+2, WRTGRP+1, EN2, EN2+1, EN2+2
>> PSGWIN	EN1+1
>> PSGWLP	WRTGRP+2*
>> PSGWPC	WRTGRP+2*
>> PSGWSITE	EN1+5, EN1+6, EN1+8, EN1+9, BARHDR+1, BARHDR+3, BARHDR+4, BARHDR+6, BARWRT+5, BARWRT+6 , BARWRT+7, BARWRT+9
STKCHG	EN1!, BARWRT+3*
>> STLEV	BARWRT+5
>> TAB1	EN1+6, EN1+9, BARHDR+3, BARHDR+6, BARWRT+7*
>> TAB2	EN1+9, BARHDR+6, BARWRT+7*
>> X	EN1A+2, BARWRT+1
>> X1	EN1A+2, BARWRT+1
>> X2	EN1A+2, BARWRT+1
>> Y	EN1+1, BARWRT+2

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWPI2

Information

Source Information

Caller Graph

Caller Graph Total: 3

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: