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

Package: Auto Replenishment Ward Stock

Routine: PSGWLSI


Information

PSGWLSI ;BHAM ISC/PTD,CML-List Active Stock Items for AOU(s) ; 05/25/90 8:50

Source Information

Source file <PSGWLSI.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Auto Replenishment Ward Stock 3 ENQ^PSGWLSI1  ENQ^PSGWLSI2  SEL^PSGWUTL1  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%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: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW PRINT AOU STOCK  

Entry Points

Name Comments DBIA/ICR reference
ASKAOU
START
SRTBY
DEV
END

External References

Name Field # of Occurrence
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZISC END+1
^%ZTLOAD DEV+2
^DIC ASKAOU
ENQ^PSGWLSI1 DEV+3
ENQ^PSGWLSI2 DEV+3
SEL^PSGWUTL1 PSGWLSI+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You may print by either of these sorting methods:",!?5,"(1) By TYPE/LOCATION/ITEM",!?5,"(2) Alphabetical by ITEM"
  • Line Location: START+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: SRTBY+0
Function Call: WRITE
  • Prompt: *7,!!,"Enter ""1"" if you wish to print the AOU stock list sorted",!,"by type, and within type by location.",!,"Enter ""2"" to print the AOU stock list alphabetically."
  • Line Location: SRTBY+1
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 132.",!,"You may queue the report to print at a later time.",!!
  • Line Location: SRTBY+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • ASKAOU

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSI(58.1 - [#58.1] PSGWLSI+2, ASKAOU+2

Label References

Name Line Occurrences
END PSGWLSI+2, ASKAOU+1, START, SRTBY, DEV, DEV+2
SRTBY SRTBY+1
START PSGWLSI+3

Naked Globals

Name Field # of Occurrence
^("I" PSGWLSI+2, ASKAOU+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV!*
%ZIS("B" DEV*
ANS SRTBY*, SRTBY+1, DEV+1, DEV+3, END!
AOU ASKAOU+2*, END!
AOULP ASKAOU+1, START, DEV+1, END!
AOULP( PSGWLSI+2!, ASKAOU*, ASKAOU+2*
DIC ASKAOU*!
DIC("S" ASKAOU*
DIC(0 ASKAOU*
DT PSGWLSI+2, ASKAOU+2
DTIME SRTBY
G DEV+1*, END!
IGDA END!
IO DEV+3
IO("Q" DEV+1!, END!
IOP DEV!
JJ PSGWLSI+2*, ASKAOU*, END!
>> POP DEV
SEL PSGWLSI+2, PSGWLSI+3, END!
X ASKAOU+1, ASKAOU+2, END!
Y ASKAOU, END!
>> ZTDESC DEV+1*
>> ZTQUEUED END+2
>> ZTREQ END+2*
>> ZTRTN DEV+1*
>> ZTSAVE( DEV+1*
>> ZTSAVE("AOULP(" DEV+1*
ZTSK DEV+2!, END!
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