Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSGWPL0

Package: Auto Replenishment Ward Stock

Routine: PSGWPL0


Information

PSGWPL0 ;BHAM ISC/MPH,PTD,CML-Print AOU Inventory Pick List - CONTINUED ; 09 Feb 93 / 10:08 AM

Source Information

Source file <PSGWPL0.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Auto Replenishment Ward Stock 2 EN2^PSGWPL  ^PSGWPL1  
Kernel 1 ^%ZISC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWPL  

Entry Points

Name Comments DBIA/ICR reference
LOC ;Build item address
CHKDISP ;Has quantity dispensed been entered for inventory?
END
QCODE
WLOOP
PNT
PSGDR
ENQ ;ENTRY POINT WHEN QUEUED
DONE
CSUB
MSG ;Warning msg for no quantities
WENT ;Sort the ward item list to determine content of Pick List
PSGTYP
PSG2
PSG3
BACKOD
PSG1

External References

Name Field # of Occurrence
^%ZISC END+1
EN2^PSGWPL PNT
^PSGWPL1 WLOOP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,?17,PSG1
  • Line Location: PNT+1
Function Call: WRITE
  • Prompt: " ",$P(^PSI(58.17,EXP,0),"^",3)
  • Condition for execution: EXP>0
  • Line Location: PNT+1
Function Call: WRITE
  • Prompt: !,?10,PSGDR,?51,$J($P(^PSI(58.19,"AINV",PSGWIDA,PSGDA,PSG1,PSG2,PSG3,PSGTYP,PSGDR),"^",3),3)
  • Line Location: PNT+4
Function Call: WRITE
  • Prompt: ?58,$E($P(^(0),"^"),1,10)
  • Line Location: QCODE+0
Function Call: WRITE
  • Prompt: ?71,$J($P(^PSI(58.1,PSGDA,1,PSGDDA,1,PSGWIDA,0),"^",6),3),?91,$J(PSGBOT,3),?105,$J($P(^(0),"^",5),3),?115,"_________"
  • Line Location: QCODE+1
Function Call: WRITE
  • Prompt: !,$S(MSGFLG:"Pick List cannot continue printing.",1:"Pick List cannot be printed."),!,"On-hand quantity or quantity dispensed not entered.",!,"Use Input AOU Inventory OR Enter/Edit Quantity Dispensed."
  • Line Location: MSG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] QCODE, CSUB, LOC+2
^PSI(58.1 - [#58.1] PSGDR+3, QCODE+1, LOC+3, LOC+4, LOC+5
^PSI(58.17 - [#58.17] PSG1, PNT+1
^PSI(58.19 - [#58.19] ENQ+2, ENQ+3, WENT+1, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2
, PNT+4, CHKDISP+1, LOC+1
^PSI(58.3 - [#58.3] BACKOD, BACKOD+1
^TMP("PSGWDL" END+1!, LOC+3*, LOC+4*, LOC+5*

Label References

Name Line Occurrences
CHKDISP PSGDR
LOC PSGDR+2
MSG CHKDISP+1
PNT BACKOD
PSG1 PSG2
PSG2 PSG3
PSG3 PSGTYP
PSGDR PSGDR+1, CSUB+1
PSGTYP PSGDR
WENT WLOOP

Naked Globals

Name Field # of Occurrence
^( BACKOD+1, QCODE, LOC+1, LOC+3
^("PSG" LOC+2
^(0 BACKOD+1, QCODE, QCODE+1, CSUB

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AOUFLG END+1!, WENT+1*, PNT!
DISPFL ENQ+3*, WLOOP+1, END+1!, PSGDR+2*
EXP END+1!, PSG1*, PNT+1
G END!
GRP END+1!
I END+1!, LOC+2*
IO("Q" END+1!
IOF DONE
IOSL PNT
IOST DONE
J ENQ+2*, END+1!, BACKOD+1*, LOC+1*, LOC+3, LOC+4, LOC+5
K END+1!, LOC+1*, LOC+2
K1 END+1!, LOC+2*
L END+1!
LL END+1!, PNT+3*
LP END+1!
MSGFLG ENQ+1*, END+1!, PNT+4*, MSG+1
NOPRT WLOOP, WLOOP+1, END+1!, PSGDR, CHKDISP+1*
PC END+1!
PSG1 END!, WENT+1*, PSG1*, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PNT+1
, PNT+4, CHKDISP+1, LOC+1
PSG1FLG END!, PSG1*, PNT+1!
PSG2 END!, PSG1*, PSG2*, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PNT+2, PNT+4
, CHKDISP+1, LOC+1
PSG3 END!, PSG2*, PSG3*, PSGTYP, PSGDR, PSGDR+1, PSGDR+2, PNT+2, PNT+4, CHKDISP+1
, LOC+1
PSG3FLG END!, PSG3*, PNT+2!
PSGBON END!, BACKOD*, BACKOD+1
PSGBOT END!, BACKOD*, BACKOD+1*, QCODE+1
PSGCS END!, CSUB*
PSGDA WLOOP*, END!, WENT+1, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1, PSGDR+2
, PSGDR+3, BACKOD+1, PNT+4, QCODE+1, CHKDISP+1, LOC+1, LOC+3, LOC+4, LOC+5
PSGDDA END!, PSGDR*, PSGDR+3, QCODE+1
PSGDL1 END+1!, LOC+3, LOC+4, LOC+5
PSGDL2 END+1!, LOC+3, LOC+4, LOC+5
PSGDL3 END+1!, LOC+3, LOC+4, LOC+5
PSGDN END!, PSGDR+3*, BACKOD, QCODE, CSUB
PSGDR END!, PSGTYP*, PSGDR*, PSGDR+1, PSGDR+2, PNT+4, CHKDISP+1, LOC+1, LOC+3, LOC+4
, LOC+5
PSGPAGE END!
PSGSORTK WLOOP*, END!
PSGST END!
PSGTODAY END!
PSGTYFLG END!, PSGTYP*, PNT+3!
PSGTYP END!, PSG3*, PSGTYP*, PSGDR, PSGDR+1, PSGDR+2, PNT+3, PNT+4, CHKDISP+1, LOC+1
>> PSGW("PO" ENQ+2*, WLOOP, END!
PSGWFLG END+2!
PSGWGRP END!
PSGWIDA ENQ+2, ENQ+3, END!, WENT+1, PSG1, PSG2, PSG3, PSGTYP, PSGDR, PSGDR+1
, PSGDR+2, PNT+4, QCODE+1, CHKDISP+1, LOC+1, LOC+3, LOC+4, LOC+5
PSGWIN ENQ+3*, END!, BACKOD+1
PSGWLP END!
PSGWPC END!
PSGWSITE END+2!
SK ENQ+2*, END+1!
SY END+1!, QCODE*
X END+1!
X1 END+1!
Y END+1!, BACKOD*
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTSK END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All