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

Package: Auto Replenishment Ward Stock

Routine: PSGWPI2


Information

PSGWPI2 ;BHAM ISC/MPH,CML-Print AOU Inventory Sheet - CONTINUED ; 06/28/89 11:38

Source Information

Source file <PSGWPI2.m>

Entry Points

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

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