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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSGWTOT1

Package: Auto Replenishment Ward Stock

Routine: PSGWTOT1


Information

PSGWTOT1 ;BHAM ISC/PTD,CML-Print Usage Report for All Drugs for a single AOU or ALL AOUs ; 23 Mar 93 / 1:02 PM

Source Information

Source file <PSGWTOT1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ^%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 PSGWTOT  

Entry Points

Name Comments DBIA/ICR reference
ENQ ;ENTRY POINT WHEN QUEUED
AOU
DRUG ;LOOP THROUGH DRUGS FOR AOU
DRGLP
AR ;AUTOMATIC REPLENISHMENT INVENTORIES
INVLP
OD ;ON DEMAND REQUESTS
ODLP
RET ;RETURNS
RETLP
SETGL
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
PRINT ;PRINT USAGE REPORT FOR ALL DRUGS BY AOU
AOULP
DRLP
DONE
END
HDR ;PRINT REPORT HEADER
PRTCHK ;

External References

Name Field # of Occurrence
^%ZISC END+1
^%ZTLOAD PRTQUE+2
^DIK DRGLP+1
$$PSGWDT^PSGWUTL1 HDR+1
HELP^PSGWUTL1 PRTCHK+1
SS^PSGWUTL1 DONE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO USAGE FOR SELECTED DATE RANGE."
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: " *** INACTIVE ***"
  • Line Location: AOULP+1
Function Call: WRITE
  • Prompt: !,DRG,?42,$J($P(LOC,"^"),4),?51,$J($P(LOC,"^",2),4),?62,$J($P(LOC,"^",3),4),?72,$J($P(LOC,"^",4),4)
  • Line Location: DRLP+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"USAGE REPORT FROM "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: Y," TO "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"ITEM",?35,"DISPENSE QUANTITY",!?42,"TOTAL",?49,"AUTO REPL",?60,"ON DEMAND",?72,"RETURNS"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: PRTCHK+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" HDR+1
^PSDRUG - [#50] DRGLP+1, DRGLP+2
^PSI(58.1 - [#58.1] AOUDRGLPINVLPINVLP+1, ODLPODLP+1, RETLPRETLP+1, AOULP+1
^PSI(58.19 - [#58.19] ENQ+3
^TMP("PSGWUSE" ENQ+2!, ENQ+3*, INVLP+1, SETGL*, PRINT+1, AOULPDRLP, END!

Label References

Name Line Occurrences
AOU DRGLP
AOULP DRLP
DONE PRINT+1, AOULP
DRGLP DRGLP+1, SETGL
DRLP DRLP
END PRTQUE+2, AOULPDRLP
HDR PRINT+1, AOULP+1, PRTCHK+2
INVLP INVLP+1, INVLP+2
OD INVLP
ODLP ODLP+1, ODLP+2
PRINT AOUDRGLP
PRTCHK AOULPDRLP
PRTQUE AOUDRGLP
RET ODLP
RETLP RETLP+1, RETLP+2
SETGL RETLP

Naked Globals

Name Field # of Occurrence
^("I" AOULP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
ANS END!, PRTCHK+1*
AOU AOU*, DRGLPDRGLP+1, INVLPINVLP+1, ODLPODLP+1, RETLPRETLP+1, SETGL
PRINT+1*, AOULP*, AOULP+1, DRLP, END!
AOUFL AOUDRGLP, END!
ARQD AR+1*, INVLP+1*, SETGL, END!
BDT ENQ+3, ODLP+1, RETLP+1, END!, HDR+1
DA DRGLP+1*!, END!
DA(1 DRGLP+1*
DIK DRGLP+1*!
DRG AOULP+1*, DRLP*, END!
DRGDA DRUG+1*, DRGLP*, DRGLP+1, INVLPINVLP+1, ODLPODLP+1, RETLPRETLP+1, END!
DRGNAME DRGLP+2*, SETGL, END!
DRGNM DRGLP*, DRGLP+1, DRGLP+2, END!
DRGQD AR+1*, INVLP+1*, ODLP+1*, RETLP+1*, SETGL, END!
DT AOULP+1
DTIME PRTCHK+1
EDT ENQ+3, ODLP+1, RETLP+1, END!, HDR+1
G PRTQUE+1*, END!
INVDA AR+1*, INVLP*, INVLP+1, END!
INVDT ENQ+3*, END!
INVN ENQ+2*, ENQ+3*, END!
IOF DONEHDR+1
IOSL DRLP
IOST DONEDONE+1, PRTCHK+1
ITMFL END!
ITNAM END!
J ENQ+3*, END!, HDR+3*
LOC DRLP*, END!
ODA OD+1*, ODLP*, ODLP+1, END!
ODQD AR+1*, ODLP+1*, SETGL, END!
ODT ODLP*, ODLP+1, END!
PGCT PRINT+1*, AOULPAOULP+1, END!, HDR+1, HDR+2*
PSGWIO PRTQUE+1, END!
QD INVLP+1*, ODLP+1*, RETLP+1*, END!
QFLG PRINT+1*, AOULPDRLPDONE+1, END!, PRTCHK+1*
RETDT RET+1*, RETLP*, RETLP+1, END!
RTQD AR+1*, RETLP+1*, SETGL, END!
X END!
Y END!, HDR+1*
>> ZTDESC PRTQUE+1*
>> ZTDTH PRTQUE+1*
ZTIO PRTQUE+1!*, END!
>> ZTQUEUED AOUDRGLPEND+2
>> ZTREQ END+2*
>> ZTRTN PRTQUE+1*
ZTSAVE PRTQUE+1!
ZTSAVE( PRTQUE+1*
ZTSAVE("^TMP(""PSGWUSE"",$J," PRTQUE+1*
ZTSK END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All