Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Auto Replenishment Ward Stock 3 PSGWPI1  PSGWPL  PSGWPL1  

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1+1, BARWRT+2
^PSI(58.1 - [#58.1] EN1A+1, EN1A+2, EN2*, EN2+1, EN2+2, BARWRT+2, BARWRT+3*, BARWRT+4*
^PSI(58.19 - [#58.19] EN1+2, WRTGRP+1
^PSI(58.2 - [#58.2] WRTGRP+2

Label References

Name Line Occurrences
BARHDR EN1+3
EN1A EN1+3
WRTGRP EN1+2

Naked Globals

Name Field # of Occurrence
^("EXP" BARWRT+2
^("I" EN1A+1
^(0 EN1A+1, WRTGRP+1, WRTGRP+2, EN2+1*, EN2+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BARFLG EN1+3
>> DRGDA BARWRT+1
DT EN1A+1
IOF EN1+1
>> J EN2, EN2+1, EN2+2
>> LN EN1+1*, EN1A+1
>> LN1 EN1+1*, BARWRT+9
>> LN2 EN1+1*, BARWRT+9
>> LNCNT EN1A*, EN1A+2*, BARHDR+1*, BARWRT+8*, BARWRT+9*
>> LOC BARWRT+3, BARWRT+4, BARWRT+6
>> PSGDA EN1A+1, EN1A+2, EN2, EN2+1, EN2+2, BARWRT+2, BARWRT+3, BARWRT+4
>> PSGDDA BARWRT+2, BARWRT+3, BARWRT+4
>> PSGDR BARWRT+1
PSGINAD BARWRT+4*, BARWRT+8!
>> PSGPAGE EN1+1, EN1A, EN1A+1*
>> PSGTODAY EN1+1
>> PSGWBAR0 EN1A+2, BARWRT+1
>> PSGWBAR1 EN1A+2, BARWRT+1
>> PSGWBARS EN1A+2, BARWRT+1
>> PSGWDT BARWRT+4
>> PSGWGRP WRTGRP+1*, WRTGRP+2
>> PSGWIDA EN1+1, EN1+2, WRTGRP+1, EN2, EN2+1, EN2+2
>> PSGWIN EN1+1
>> PSGWLP WRTGRP+2*
>> PSGWPC WRTGRP+2*
>> PSGWSITE EN1+5, EN1+6, EN1+8, EN1+9, BARHDR+1, BARHDR+3, BARHDR+4, BARHDR+6, BARWRT+5, BARWRT+6
, BARWRT+7, BARWRT+9
STKCHG EN1!, BARWRT+3*
>> STLEV BARWRT+5
>> TAB1 EN1+6*, EN1+9*, BARHDR+3*, BARHDR+6*, BARWRT+7*
>> TAB2 EN1+9*, BARHDR+6*, BARWRT+7*
>> X EN1A+2*, BARWRT+1*
>> X1 EN1A+2*, BARWRT+1*
>> X2 EN1A+2*, BARWRT+1*
>> Y EN1+1*, BARWRT+2*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All