Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls