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

Package: Auto Replenishment Ward Stock

Routine: PSGWBOA


Information

PSGWBOA ;BHAM ISC/CML-Print Backorder Report by AOU or Item (ALL Current Backorders) ; 03 Sep 93 / 12:23 PM

Source Information

Source file <PSGWBOA.m>

Call Graph

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 ^DIK  

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 BACKORDER (ALL) PRINT  

Entry Points

Name Comments DBIA/ICR reference
ASK
DEV
ENQ ;ENTRY POINT WHEN QUEUED
BUILD ;
SETGL ;
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
PRT1 ;
DONE
QUIT ;
PRT2
DATA ;
TOT ;
HDR ;
INACT
PRTCHK ;

External References

Name Field # of Occurrence
^%ZIS DEV
HOME^%ZIS DEV+1
^%ZISC QUIT+2
^%ZTLOAD DEV+1, PRTQUE+2
^DIK BUILD+1
$$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 ALL Current Backorders.",!
  • Line Location: PSGWBOA+2
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to sort by (A)rea of Use or by (I)tem? "
  • Variable: SORT
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: *7,!?5,"Enter 'A' to sort by Area of Use, 'I' to sort by Item, or '^' to Exit.",!
  • Line Location: ASK+0
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: ASK+1
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: !!,"=> ",S1
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !?7,S2
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: ?53,Y,?73,$J(CB,6),!?17,LOC
  • Line Location: DATA+3
Function Call: WRITE
  • Prompt: ?40,LOC,?54,Y,?73,$J(CB,6)
  • Line Location: DATA+4
Function Call: WRITE
  • Prompt: !?72,"-------",!?66,"TOTAL:",?72,$J(TOT,7)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !?25,"PHARMACY BACKORDER LIST BY ITEM",?71,"PAGE: ",PG,!?28,"PRINTED: ",HDT,!!,"=> ","ITEM",?56,"DATE/TIME FOR",?72,"CURRENT",!?12,"AOU",?42,"LOCATION",?58,"BACKORDER",?71,"BACKORDER",!,LN
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?26,"PHARMACY BACKORDER LIST BY AOU",?71,"PAGE: ",PG,!?28,"PRINTED: ",HDT,!!,"=> ","AOU",!?12,"ITEM",?56,"DATE/TIME FOR",?72,"CURRENT",!?19,"LOCATION",?58,"BACKORDER",?71,"BACKORDER",!,LN
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: INACT+0
Function Call: WRITE
  • Prompt: "** Indicates an Inactive AOU"
  • Line Location: INACT+1
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSI(58.3 - [#58.3] 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] SETGL+1, SETGL+2
^PSI(58.3 - [#58.3] ENQ+1, BUILD+1, BUILD+3
^TMP("PSGWBOA" ENQ+1!, SETGL+3*, SETGL+4*, PRTQUE+2!, PRT1+2, PRT1+3, QUIT+2!, PRT2, DATA+1

Label References

Name Line Occurrences
ASK ASK
BUILD ENQ+1
DATA PRT2
DONE PRT1+2
HDR PRT1+1, PRTCHK+2
INACT DONE, PRTCHK+1
PRT1 ENQ+1
PRT2 PRT1+3
PRTCHK PRT1+3, DATA+1, TOT+1
PRTQUE ENQ+1
QUIT ASK, DEV, DEV+1, PRTQUE+2
SETGL BUILD+3
TOT PRT2

Naked Globals

Name Field # of Occurrence
^( BUILD+3, DATA+1
^("I" SETGL+1
^(0 ENQ+1, BUILD+2, BUILD+3, SETGL+1, 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 SETGL+1*, SETGL+3, SETGL+4, QUIT+2!
ANS QUIT+1!, PRTCHK+1*
AOU BUILD+3*, SETGL+1, SETGL+2, QUIT+1!
BO BUILD+3*, QUIT+1!
BODA ENQ+1*, BUILD+1, BUILD+3, QUIT+1!
BODT SETGL+1*, SETGL+3, SETGL+4, QUIT+1!, PRT2*, DATA+1, DATA+2
CB SETGL+1*, SETGL+3, SETGL+4, QUIT+1!, DATA+1*, DATA+3, DATA+4
DA BUILD+1*!, QUIT+2!
DIC QUIT+1!
DIK BUILD+1*!
DNM BUILD+2*, SETGL+3, SETGL+4, QUIT+2!
DRGDA ENQ+1*, BUILD+1, BUILD+2, SETGL+2, QUIT+1!
DT SETGL+1
DTIME ASK, PRTCHK+1
HDT PRT1+1*, QUIT+1!, HDR+2, HDR+3
HF QUIT+2!
INACT PRT1+3*, QUIT+1!, TOT+1*, HDR+1*, INACT
IO DEV+2
IO("Q" DEV+1!, QUIT+2!
IOF DONE, HDR+1
ION DEV+1
IOP DEV!
IOSL PRT1+3, DATA+1, TOT+1, INACT
IOST DONE, DONE+1, PRTCHK+1
ITMDA SETGL+2*, QUIT+1!
JJ QUIT+1!
LL PRT1+3*, QUIT+1!, PRT2*
LN PRT1+1*, QUIT+1!, HDR+2, HDR+3
LNS QUIT+1!, INACT*
LOC SETGL+2*, SETGL+3*, SETGL+4, QUIT+1!, DATA+1*, DATA+3, DATA+4
PG PRT1+1*, QUIT+1!, HDR+1*, HDR+2, HDR+3
>> POP DEV
PSGWIO DEV+1*, PRTQUE+1, QUIT+2!
QFLG PRT1+1*, PRT1+2*, PRT1+3, DONE, DONE+1, QUIT+1!, PRT2, DATA+1, TOT+1, PRTCHK+1*
QQ BUILD+3*, SETGL+1, QUIT+1!
S1 PRT1+1*, PRT1+3*, QUIT+1!, PRT2, DATA+1
S2 PRT1+1*, QUIT+1!, PRT2*, DATA+1, DATA+2, TOT+1
SORT ASK*, SETGL+3, QUIT+1!, PRT2, DATA+3, HDR+2
TOT PRT1+3*, QUIT+1!, DATA+1*, TOT+1
X QUIT+1!
Y QUIT+1!, DATA+2*, DATA+3, DATA+4
>> 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("SORT" DEV+1*, PRTQUE+1*
ZTSAVE("^TMP(""PSGWBOA"",$J," PRTQUE+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