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: PSGWPI1

Package: Auto Replenishment Ward Stock

Routine: PSGWPI1


Information

PSGWPI1 ;BHAM ISC/MPH,CML-Print AOU Inventory Sheet - CONTINUED ; 18 Jun 93 / 10:40 AM

Source Information

Source file <PSGWPI1.m>

Entry Points

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

Interaction Calls

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