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

Package: Auto Replenishment Ward Stock

Routine: PSGWEXR


Information

PSGWEXR ;BHAM ISC/CML-Drug Expiration Date Report by Selected Date Range/AOU ; 18 Jun 93 / 10:36 AM [ 09/28/95 11:55 AM ]

Source Information

Source file <PSGWEXR.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Auto Replenishment Ward Stock 3 PRINT^PSGWEXR1  PRINT^PSGWEXR2  SEL^PSGWUTL1  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^%DT  ^DIC  

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
QUIT
EN
HELP ;
START ;ENTRY POINT WHEN QUEUED
AOUCNT
DEV
BDT
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
ASKAOU ;
EDT
SET ;
ASKSORT ;

External References

Name Field # of Occurrence
^%DT BDT, EDT
^%ZIS DEV
HOME^%ZIS DEV+3
^%ZISC QUIT
^%ZTLOAD DEV+3, PRTQUE+3
^DIC ASKAOU+1
PRINT^PSGWEXR1 START+3
PRINT^PSGWEXR2 START+3
SEL^PSGWUTL1 EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"NO DATA FOUND FOR THIS DATE RANGE!",!
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !!?5,"Since you have chosen multiple AOUs,",!?5,"please select a sort order for the report:",!!?5,"(1) Date/Drug/AOU or (2) Date/AOU/Drug"
  • Line Location: AOUCNT+2
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: AOUCNT+4
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: READ
  • Prompt: "Enter '1' or '2' or ""^"" to Exit ==> "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SORT
  • Line Location: ASKSORT+1
Function Call: WRITE
  • Prompt: !!,?5,"Enter '1' to sort by Expiration Date, then Drug, then AOU.",!?5,"Enter '2' to sort by Expiration Date, then AOU, then Drug.",!?5,"Enter ""^"" to Exit."
  • Line Location: HELP+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • DIC
  • Line Location:
    • ASKAOU+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

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)
^PSDRUG - [#50] SET+1
^PSI(58.1 - [#58.1] EDT+1, EN, ASKAOU+3, AOUCNT, START+2, SET+1
^TMP("PSGWEXR" START+1!, PRTQUE+3!, SET+2*

Label References

Name Line Occurrences
AOUCNT EN+1
ASKSORT AOUCNT+2
BDT EDT+1
HELP ASKSORT+1
QUIT BDT, EDT, EN, ASKAOU+2, AOUCNT, AOUCNT+3, DEV, DEV+3
SET START+2

Naked Globals

Name Field # of Occurrence
^("I" EN, ASKAOU+3
^(0 SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT!
%DT BDT*!, EDT*!
%DT("A" BDT*, EDT*
%DT(0 EDT*
%H QUIT!
%I QUIT!
%Z QUIT!
%ZIS DEV!*
%ZIS("B" DEV*
AOU ASKAOU+3*, START+2*, QUIT!, SET+1, SET+2
AOULP ASKAOU+2, AOUCNT, DEV+2, PRTQUE+2, QUIT!
AOULP( EN!, ASKAOU+1*, ASKAOU+3*, AOUCNT*, START+2
AOUNM QUIT!, SET+1*, SET+2
BDT BDT*, EDT, EDT+1, START+1*, START+2, QUIT!
CNT AOUCNT*, AOUCNT+2, QUIT!, SET+2
DIC ASKAOU+1*!
DIC("S" ASKAOU+1*
DIC(0 ASKAOU+1*
DRG START+2*, QUIT!, SET+1
DRGNM QUIT!, SET+1*, SET+2
DT EN, ASKAOU+3
DTIME ASKSORT+1
EDT EDT*, EDT+1, START+2, QUIT!
EXDT START+2*, QUIT!, SET+2
G DEV+2*, PRTQUE+2*, QUIT!
HDT QUIT!
HH QUIT!
IGDA QUIT!
IO DEV+4
IO("Q" DEV+1!, QUIT!
ION DEV+1
IOP DEV!
JJ EN*, ASKAOU+1*, AOUCNT*, QUIT!, ASKSORT+1*
LN QUIT!
LOC QUIT!
LOCFLG AOUCNT*, START+3, PRTQUE+1, QUIT!
P1 QUIT!
P2 QUIT!
PG QUIT!
>> POP DEV
PSGWIO DEV+1*, PRTQUE+1, QUIT!
SEL EN, EN+1, QUIT!
SORT AOUCNT+2*, AOUCNT+3, QUIT!, SET+2, ASKSORT+1*, ASKSORT+2*, HELP+1
TAB QUIT!
X ASKAOU+2, ASKAOU+3, QUIT!
Y BDT, EDT, ASKAOU+1, QUIT!
>> ZTDESC DEV+2*, PRTQUE+1*
ZTDTH DEV+1!, PRTQUE+1*
ZTIO DEV+1*, PRTQUE+1!*
>> ZTQUEUED START+3
>> ZTRTN DEV+2*, PRTQUE+1*
ZTSAVE DEV+1!, PRTQUE+1!
ZTSAVE( DEV+2*, PRTQUE+2*
ZTSAVE("AOULP(" DEV+2*, PRTQUE+2*
ZTSAVE("^TMP(""PSGWEXR"",$J," PRTQUE+1*
ZTSK DEV+1!, DEV+3!, QUIT!
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