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 |  Local Variables |  All
Print Page as PDF
Routine: PSGWTOT

Package: Auto Replenishment Ward Stock

Routine: PSGWTOT


Information

PSGWTOT ;BHAM ISC/PTD,CML-Usage Report for an Item ; 19 Mar 93 / 8:35 AM

Source Information

Source file <PSGWTOT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  (,IX)^DIC  ^DIK  
Auto Replenishment Ward Stock 2 ENQ^PSGWTOT1  ENQ^PSGWTOT2  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGW USAGE REPORT  

Entry Points

Name Comments DBIA/ICR reference
END
DEV
BDT
ASKAOU
EDT
ASKITEM

External References

Name Field # of Occurrence
^%DT BDT, EDT
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZISC END+1
^%ZTLOAD DEV+2
^DIC ASKAOU, ASKITEM
IX^DIC ASKITEM+2
^DIK ASKITEM+3
ENQ^PSGWTOT1 DEV+3
ENQ^PSGWTOT2 DEV+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Usage Report may be printed for:",!?15,"a single item for one AOU,",!?15,"a single item for ALL AOUs,",!?15,"ALL items for one AOU, or",!?15,"ALL items for ALL AOUs.",!!
  • Line Location: PSGWTOT+2
Function Call: WRITE
  • Prompt: !,"To select all AOUs, enter ""^ALL"" at the",!,"""Select PHARMACY AOU STOCK AREA OF USE (AOU):"" prompt.",!,"To select all items, enter ""^ALL"" at the ""Select ITEM:"" prompt.",!!
  • Line Location: PSGWTOT+3
Function Call: WRITE
  • Prompt: " ??",*7,*7
  • Line Location: ASKITEM+3
Function Call: WRITE
  • Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!!
  • Line Location: ASKITEM+6
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIC
  • Line Location:
    • ASKAOU
    • ASKITEM
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • DIC
  • Line Location:
    • ASKITEM+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] ASKITEM+3, ASKITEM+4

Label References

Name Line Occurrences
ASKITEM ASKITEM+3
END BDT, EDT, ASKAOU, ASKITEM, ASKITEM+2, DEV, DEV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDT*!, EDT*!
%DT("A" BDT*, EDT*
%DT(0 EDT*
%ZIS DEV!*
%ZIS("B" DEV*
AOU ASKAOU+1*, ASKAOU+2*, ASKITEM+3, END!
AOUFL ASKAOU+1*, ASKAOU+2*, ASKITEM, ASKITEM+2, ASKITEM+3, ASKITEM+4, END!
BDT BDT*, EDT, END!
>> D ASKITEM+2*
DA ASKITEM+3*, END!
DA(1 ASKITEM+3*
DIC ASKAOU*!, ASKITEM*!, ASKITEM+2*!
DIC("A" ASKITEM*
DIC("S" ASKITEM*
DIC(0 ASKAOU*, ASKITEM*, ASKITEM+2*
DIK ASKITEM+3*!
DRGNM ASKITEM*, ASKITEM+2*, ASKITEM+3, ASKITEM+4, END!
EDT EDT*, END!
G DEV+1*, END!
IO DEV+3
IO("Q" DEV+1!, END!
ION DEV+1
IOP DEV!
ITMFL ASKITEM*, ASKITEM+2*, ASKITEM+5*, DEV+1, DEV+3, END!
ITNAM ASKITEM*, ASKITEM+4*, ASKITEM+5*, END!
>> POP DEV
PSGWIO DEV+1*, END!
X ASKAOU, ASKAOU+1, ASKITEM, ASKITEM+2, ASKITEM+3, ASKITEM+4, ASKITEM+5, END!
Y BDT, EDT, ASKAOU, ASKAOU+1, ASKITEM, ASKITEM+2, ASKITEM+3, END!
>> ZTDESC DEV+1*
ZTDTH DEV+1!
ZTIO DEV+1*, END!
>> ZTQUEUED END+2
>> ZTREQ END+2*
>> ZTRTN DEV+1*
ZTSAVE DEV+1!
ZTSAVE( DEV+1*
ZTSK DEV+1!, 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 |  Local Variables |  All