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

Package: Auto Replenishment Ward Stock

Routine: PSGWBOS


Information

PSGWBOS ;BHAM ISC/CML-Print Backorder Report by AOU ; 27 Dec 93 / 12:59 PM

Source Information

Source file <PSGWBOS.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Auto Replenishment Ward Stock 1 ($$PSGWDT,HELP,SS)^PSGWUTL1  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 1

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

Entry Points

Name Comments DBIA/ICR reference
PRT2
QUIT ;
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
HDR ;HEADER
ENQ ;ENTRY POINT WHEN QUEUED
PRTCHK ;
DATA ;DATA LINES
DNMCHK ;
DEV
DIC
START ;ENTRY
PRT1 ;
DONE ;
BUILD ;BUILD DATA ELEMENTS
SETGL ;

External References

Name Field # of Occurrence
^%ZIS DEV
HOME^%ZIS DEV+1
^%ZISC QUIT+2
^%ZTLOAD DEV+1, PRTQUE+2
^DIC DIC
$$PSGWDT^PSGWUTL1 PRT1+1
HELP^PSGWUTL1 PRTCHK+1
SS^PSGWUTL1 DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will print a list of Current Backorders for selected AOU(s).",!!,"You will only be allowed to choose AOUs that have Backorder entries (current",!,"or non-current) in the Pharmacy Backorder file (#58.3).",!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !!,"Right margin for this report is 80 columns.",!,"You may queue the report to print at a later time.",!!
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !?17,"***** NO DATA AVAILABLE FOR THIS REPORT *****"
  • Line Location: PRT1+2
Function Call: WRITE
  • Prompt: !!,"=> ",ANM
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: " INACTIVE ***"
  • Condition for execution: ANM["***"
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: !?5,DNM,?52,Y,?73,$J(CURBO,5),!?17,LOC
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: ?46,"<NO CURRENT BACKORDERS>"
  • Line Location: DNMCHK+1
Function Call: WRITE
  • Prompt: ?46,"<NO CURRENT BACKORDERS>"
  • Line Location: DNMCHK+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?27,"PHARMACY AOU BACKORDER LIST",?71,"PAGE: ",PG,!?28,"PRINTED: ",HDT,!!,"=> ","AOU",!?12,"ITEM",?54,"DATE/TIME FOR",?72,"CURRENT",!?19,"LOCATION",?56,"BACKORDER",?71,"BACKORDER",!,LN
  • Line Location: HDR+1
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: PRTCHK+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIC
  • Line Location:
    • DIC
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)
^DD("DD" DATA+2
^PSDRUG - [#50] BUILD+1, BUILD+2
^PSI(58.1 - [#58.1] BUILD+2, SETGL+2
^PSI(58.3 - [#58.3] ENQ+1, BUILD+1, BUILD+3, BUILD+4
^TMP("PSGWBOS" ENQ+1!, BUILD+3*, SETGL+3*, PRT1+2, PRT1+3, QUIT+2!, PRT2, DATA+1
^TMP("PSGWQ" DIC!*, DIC+1, ENQ+1, BUILD+2, QUIT+2!

Label References

Name Line Occurrences
BUILD ENQ+1
DATA PRT2
DNMCHK PRT2
HDR PRT1+3, DATA+1
PRT1 ENQ+1
PRT2 PRT1+3
PRTCHK PRT1+3, DATA+1
PRTQUE ENQ+1
QUIT DIC+1, DEV, DEV+1, PRTQUE+2, PRT1+2
SETGL BUILD+4

Naked Globals

Name Field # of Occurrence
^( BUILD+4, DATA+1
^("I" BUILD+2
^(0 BUILD+2, BUILD+4, SETGL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUIT+1!
%DT PRT1+1*, QUIT+1!
%H QUIT+1!
%I QUIT+1!
%ZIS DEV!*
%ZIS("B" DEV*
ANM BUILD+2*, BUILD+3, SETGL+3, PRT1+1*, PRT1+3*, QUIT+2!, PRT2, DATA+1
ANS QUIT+1!, PRTCHK+1*
AOU ENQ+1*, BUILD+1, BUILD+2, BUILD+3, BUILD+4, SETGL+2, QUIT+1!
BO BUILD+4*, QUIT+1!
BODA ENQ+1*, BUILD+1, BUILD+3, BUILD+4, QUIT+1!
BODT SETGL+1*, SETGL+3, QUIT+1!, PRT2*, DATA+1, DATA+2
CURBO SETGL+1*, SETGL+3, QUIT+1!, DATA+1*, DATA+2
DA QUIT+2!
DIC DIC!*, QUIT+1!
DIC("A" DIC*
DIC("S" DIC*
DIC(0 DIC*
DNM BUILD+2*, SETGL+3, PRT1+1*, QUIT+2!, PRT2*, DATA+1, DATA+2, DNMCHK+1*, DNMCHK+2
DRGDA BUILD+1*, BUILD+2, SETGL+2, QUIT+1!
DT BUILD+2
DTIME PRTCHK+1
HDRFLG QUIT+2!
HDT PRT1+1*, QUIT+1!, HDR+1
IO DEV+2
IO("Q" DEV+1!, QUIT+2!
IOF DONE+2, HDR+1
ION DEV+1
IOP DEV!
IOSL DATA+1
IOST DONE+1, DONE+2, PRTCHK+1
ITMDA SETGL+2*, QUIT+1!
JJ DIC*, QUIT+1!
LL PRT1+3*, QUIT+1!, PRT2*
LN PRT1+1*, QUIT+1!, HDR+1
LNS QUIT+1!
LOC SETGL+2*, SETGL+3*, QUIT+1!, DATA+1*, DATA+2
PG PRT1+1*, PRT1+3, QUIT+1!, HDR+1*
>> POP DEV
PSGWIO DEV+1*, PRTQUE+1, QUIT+2!
QFLG PRT1+1*, PRT1+3, DONE+1, QUIT+1!, PRT2, DATA+1, PRTCHK+1*
QQ BUILD+4*, SETGL+1, QUIT+1!
SORT QUIT+1!
TOT PRT1+3*, QUIT+1!, DATA+1*, DNMCHK+2
X DIC+1, QUIT+1!
Y DIC, QUIT+1!, DATA+2*
>> ZTDESC DEV+1*, PRTQUE+1*
ZTDTH DEV+1!, PRTQUE+1*
ZTIO DEV+1*, PRTQUE+1!*, QUIT+2!
>> ZTQUEUED ENQ+1, QUIT+3
>> ZTREQ QUIT+3*
>> ZTRTN DEV+1*, PRTQUE+1*
ZTSAVE DEV+1!, PRTQUE+1!
ZTSAVE("PSGWIO" DEV+1*
ZTSAVE("^TMP(""PSGWBOS"",$J," PRTQUE+1*
ZTSAVE("^TMP(""PSGWQ"",$J," DEV+1*
ZTSK DEV+1!, QUIT+2!
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