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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGWPL

Package: Auto Replenishment Ward Stock

Routine: PSGWPL


Information

PSGWPL ;BHAM ISC/MPH,CML-Print AOU Inventory Pick List ; 29 Dec 93 / 2:30 PM

Source Information

Source file <PSGWPL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Auto Replenishment Ward Stock 3 WRTGRP^PSGWPI2  (END,ENQ)^PSGWPL0  ^PSGWSET  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Auto Replenishment Ward Stock 2 PSGW INVENTORY PICK LIST  PSGWPL0  

Entry Points

Name Comments DBIA/ICR reference
DIC
EN1 ; PSGWIDA = DA of inventory being edited
RD
RD2
DEV
HELP1
HELP2
EN2 ;Print Pick List Headings

External References

Name Field # of Occurrence
^%ZIS RD2+1
HOME^%ZIS DEV+1
^%ZTLOAD DEV+1
^DIC DIC
WRTGRP^PSGWPI2 EN2+3
END^PSGWPL0 DIC, RD, RD2, RD2+1, DEV+1
ENQ^PSGWPL0 DEV+2
^PSGWSET PSGWPL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"You may not run the Pick List because you have the",!,?5,"""Merge Inventory Sheet and Pick List"" site parameter set to ""YES""."
  • Line Location: PSGWPL+3
Function Call: WRITE
  • Prompt: !!,"Pick List can't be run for inventory # ",PSGWIDA,!,"You must first print the inventory sheet",!,"using the Inventory Sheet Print Option.",!
  • Line Location: DIC+1
Function Call: READ
  • Formatting: !
  • Prompt: "Print total for each item on pharmacy pick list? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Print sub-total for each item by AOU? Y// "
  • Variable: X1
  • Timeout: DTIME
  • Line Location: RD2+0
Function Call: WRITE
  • Prompt: !,"Right margin for this printout is 132!",!!
  • Line Location: RD2+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: RD2+1
Function Call: WRITE
  • Prompt: !!,"Enter ""N"" or ""n"" for NO, or press return to accept the default answer of yes.",!,"Print total for each item on pharmacy pick list will give totals",!,"without showing sub-total breakdown for each area of use.",!
  • Line Location: HELP1+0
Function Call: WRITE
  • Prompt: !!,"Enter ""N"" or ""n"" for NO, or press return to accept the default answer of yes.",!,"Print sub-total for each item by AOU will give a total to dispense,",!,"as well as a sub-total for each AOU requesting that item.",!
  • Line Location: HELP2+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !,"WARD STOCK PICK LIST FOR "
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: ?26,Y," INVENTORY # ",PSGWIDA,?99,PSGTODAY,?120,"PAGE ",PSGPAGE
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,"AOU INVENTORY GROUP MISSING"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,"GROUP: "
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,?83,"INVENTORIED BY ____________________________",!
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !,?10,"ITEM",?51,"STOCK",?58,"QUICK",?71,"ON",?91,"BACKORDERED",?106,"TO BE",?115,"ACT DISPENSED"
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !,?51,"LEVEL",?58,"CODE",?71,"HAND",?105,"DISPENSED",?115,"IF < TO BE",!
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: " *** INACTIVE ***"
  • Line Location: EN2+9
Routine Call
  • %ZIS
  • Line Location:
    • RD2+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIC
  • Line Location:
    • DIC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.19 - [#58.19] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1+1, EN2+1
^PSI(58.1 - [#58.1] EN2+9
^PSI(58.19 - [#58.19] DIC+1, EN2+2

Label References

Name Line Occurrences
DIC DIC+1
HELP1 RD
HELP2 RD2
RD RD
RD2 RD2

Naked Globals

Name Field # of Occurrence
^("I" EN2+9
^(0 EN2+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS RD2+1!*
%ZIS("B" RD2+1*
DIC DIC*!
DIC("A" DIC*
DIC(0 DIC*
DT EN1+1, EN2+9
DTIME RD, RD2
>> G DEV*
>> I EN2+7*
IO DEV+2
IO("Q" DEV!
IOF EN2+1
IOP RD2+1!
>> NOPRT EN1+1*
>> POP RD2+1
>> PSGDA EN2+9
>> PSGPAGE EN1+1*, EN2+1, EN2+4, EN2+8*
PSGST EN1+1!, RD2*, DEV
>> PSGTODAY EN1+1*, EN2+1
>> PSGW("PO" EN1+1!
>> PSGWFLG PSGWPL+2*
PSGWIDA DIC*, DIC+1!, EN2+1, EN2+2
>> PSGWIN EN2+1
>> PSGWSITE PSGWPL+2, PSGWPL+3
>> X RD*, RD2
>> X1 RD2*
>> Y DIC, EN1+1*, EN2+1*
>> ZTDESC DEV*
>> ZTRTN DEV*
>> ZTSAVE( DEV*
>> ZTSAVE("PSGST" DEV*
ZTSK DEV+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All