Routine: PSGWPI1

Package	Total	Call Graph
Auto Replenishment Ward Stock	1	(BARWRT,EN1,EN2)^PSGWPI2

Package

Total

Call Graph

(BARWRT,EN1,EN2)^PSGWPI2

Package	Total	Caller Graph
Auto Replenishment Ward Stock	2	PSGWPI PSGWPIS

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !,?17,PSG1 Line Location: PSG1+0
Function Call: WRITE	Prompt: " ",$P(^PSI(58.17,EXP,0),"^",3) Condition for execution: EXP>0 Line Location: PSG1+0
Function Call: WRITE	Prompt: !,?10,PSGDR Line Location: PNT+0
Function Call: WRITE	Prompt: ?50,"*" Line Location: PNT+0
Function Call: WRITE	Prompt: ?50,"*" Line Location: PNT+1
Function Call: WRITE	Prompt: ?51,$J(STLEV,3) Line Location: PNT+2
Function Call: WRITE	Prompt: ?58,$E($P(^(0),"^",1),1,8) Line Location: QCODE+0
Function Call: WRITE	Prompt: ?66,"_____" Line Location: QCODE+1
Function Call: WRITE	Prompt: ?75,$S($P(LOC,"^",11)]"":$J($P(LOC,"^",11),5),1:" "),?86,$S(+$P(LOC,"^",12):$J($P(LOC,"^",12),5),1:" "),?98,"______" Line Location: QCODE+2
Function Call: WRITE	Prompt: ?TAB1,"______",?TAB2,"E O D C" Line Location: QCODE+3
Function Call: WRITE	Prompt: !?14,"Expiration Date: ",Y Line Location: QCODE+4
Function Call: WRITE	Prompt: !?14,"*Inactivated item, pull existing stock" Line Location: QCODE+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	EN1+2
^%ZIS(2 - [#3.2]	EN1+2
^DD("DD"	EN1+1, QCODE+4
^PSDRUG - [#50]	LOC+2, QCODE
^PSI(58.1 - [#58.1]	SINL, SINL+1, CHKINA, LOC+4, PSGDR, PNT, PNT+1, QCODE, QCODE+4
^PSI(58.16 - [#58.16]	SINL+1, LOC+3
^PSI(58.17 - [#58.17]	PSG1
^PSI(58.19 - [#58.19]	EN1+5, START, SIN+1!, CHKINA*, WENT, PSG1, PSG2, PSG3, PSGTYP, PSGTYP+1 , PSGDR

Name	Field # of Occurrence
>> AOU	EN1+4
>> BARFLG	EN1+2, EN1+3, PSGDR+1
>> DRGDA	PSGDR*
DT	EN1+1
>> EXP	PSG1*
>> I	SIN+1, SINL+1, LOC+3
IOF	END+1
>> IOS	EN1+2
IOSL	PSGDR+2
IOST	END+1
>> J	EN1+2, EN1+5, SIN+1, SINL, SINL+1, CHKINA, LOC+4
>> K	SINL*, CHKINA, LOC+1, LOC+2
>> K1	LOC+1*
>> LFC	PSGTYP+1*
>> LNCNT	EN1+1, PSG1, PSG3*, PSGDR+1
>> LOC	PSGDR*, PNT, PNT+1, QCODE+2
>> MH	QCODE*
>> NN	LOC+1*
>> PSG1	CHKINA, WENT, PSG1, PSG2, PSG3, PSGTYP, PSGTYP+1, PSGDR
>> PSG2	CHKINA, PSG1, PSG2, PSG3, PSGTYP, PSGTYP+1, PSGDR
>> PSG3	CHKINA, PSG2, PSG3, PSGTYP, PSGTYP+1, PSGDR
>> PSGDA	WLOOP*, SIN+1, SINL, SINL+1, CHKINA, LOC+4, WENT, PSG1, PSG2, PSG3 , PSGTYP, PSGTYP+1, PSGDR, PNT, PNT+1, QCODE, QCODE+4
>> PSGDDA	PSGDR*, PNT, PNT+1, QCODE, QCODE+4
>> PSGDR	CHKINA, LOC+2, PSGTYP+1, PSGDR*, PNT
PSGINAD	PNT+1*, QCODE+5!
>> PSGNT	SIN+1*, SINL+1
>> PSGPAGE	EN1+1*
>> PSGSORTK	WLOOP*
>> PSGTN	SIN+1*, SINL+1, LOC+3
>> PSGTODAY	EN1+1*
>> PSGTYP	CHKINA, LOC+3, PSG3, PSGTYP+1*, PSGDR
>> PSGW("PO"	EN1+1!, EN1+4, EN1+5, WLOOP
>> PSGWBAR0	EN1+3
>> PSGWBAR1	EN1+3
>> PSGWBARS	EN1+3*
>> PSGWDT	CHKINA, PNT+1
>> PSGWIDA	EN1+5, START, SIN+1, CHKINA, LOC+4, WENT, PSG1, PSG2, PSG3, PSGTYP , PSGTYP+1, PSGDR
>> PSGWIN	START*
>> PSGWSITE	QCODE+2, QCODE+3
>> Q	PSGTYP*
>> SK	EN1+5*
>> STKCHG	END, PNT*
>> STLEV	PSGDR*, PNT+2
>> TAB1	QCODE+3*
>> TAB2	QCODE+3*
>> TYPE	PSGTYP*
>> Y	EN1+1, QCODE+4

Information

Name	Comments	DBIA/ICR reference
LOC	;Build item address
END
START
PSGDR
QCODE
WLOOP
PNT
PSG3
CHKINA
EN1	; PSGWIDA = DA of inventory being edited
SINL
WENT
PSGTYP
PSG2
SIN	;Sort the ward item list
PSG1