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

Package: Auto Replenishment Ward Stock

Routine: PSGWTOT2


Information

PSGWTOT2 ;BHAM ISC/PTD,CML-Print Usage Report for Single Drug for One or ALL AOUs ; 23 Mar 93 / 1:03 PM

Source Information

Source file <PSGWTOT2.m>

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Auto Replenishment Ward Stock 1 PSGWTOT  

Entry Points

Name Comments DBIA/ICR reference
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT
HDR ;
RET ;RETURNS
RETLP
PRINT ;PRINT USAGE REPORT FOR SINGLE DRUG BY AOU
DT
DRG
SUB ;
INVLP
ODLP
AOU
GRTOT ;
TOTAL
END
SUBTOT ;
AOULP
ENQ ;ENTRY POINT WHEN QUEUED.
AR ;INVENTORIES
PRTCHK ;
OD ;ON DEMANDS
WRTLN
DONE
TYP

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"NO USAGE FOR ",ITNAM," FOR SELECTED DATES."
  • Line Location: PRINT+1
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: !?5,"AREA OF USE",?55,"DATE: ",$$PSGWDT^PSGWUTL1,!,"ITEM",?15,"INVENTORY DATE",?35,"DISPENSE QUANTITY",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?5,"==> ",$P(^PSI(58.1,AOU,0),"^"),!,ITNAM,!!
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: !?15,$P(Y,"@")," ",$P(Y,"@",2),?43,$J(QD,4)
  • Line Location: WRTLN+0
Function Call: WRITE
  • Prompt: !?43,"-----"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !?12,"SUBTOTAL AUTO REPL.",?40,"+",?43,$J(ARQD,4),!
  • Condition for execution: TYP="AR"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !?12,"SUBTOTAL ON DEMAND",?40,"+",?43,$J(ODQD,4),!
  • Condition for execution: TYP="OD"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !?12,"SUBTOTAL RETURNS",?40,"-",?43,$J(RTQD,4),!
  • Condition for execution: TYP="RT"
  • Line Location: SUBTOT+2
Function Call: WRITE
  • Prompt: !?42,"=======",!,"TOTAL DISPENSED",?43,$J(DRGQD,4)
  • Line Location: TOTAL+0
Function Call: WRITE
  • Prompt: !!?38
  • Line Location: GRTOT+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: GRTOT+2
Function Call: WRITE
  • Prompt: !,"TOTAL USAGE FOR ALL AREAS IS:",?43,$J(GRTOT,4)
  • Line Location: GRTOT+3
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: PRTCHK+1
Routine Call
  • DIE
  • Line Location:
    • INVLP+1

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" HDR+1, WRTLN
^PSI(58.1 - [#58.1] AOULP, DRG, INVLP, INVLP+2, ODLP, ODLP+1, RETLP, RETLP+1, SUB+2
^PSI(58.19 - [#58.19] INVLP, INVLP+1
^TMP("PSGWUSE" ENQ+1!, INVLP+2*, ODLP+1*, RETLP+1*, PRINT+1, AOU, TYP, DT, END!

Label References

Name Line Occurrences
AOU TYP
AOULP DRG
DONE PRINT+1, AOU
DRG RETLP
DT DT+4
END PRTQUE+2, AOU, TYP, DT+4
GRTOT AOU
HDR PRINT+1, PRINT+2, PRTCHK+2
INVLP INVLP+1, INVLP+3
OD INVLP
ODLP ODLP+2
PRINT AOULP, DRG
PRTCHK TYP, DT+4, SUB+1, SUBTOT+1, GRTOT+1
PRTQUE AOULP, DRG
RET ODLP
RETLP RETLP+2
SUB AOU
SUBTOT DT
TOTAL TYP
TYP SUBTOT+3
WRTLN DT+4

Naked Globals

Name Field # of Occurrence
^(0 INVLP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
ANS END!, PRTCHK+1*
AOU AOULP*, DRG, INVLP, INVLP+1, INVLP+2, ODLP, ODLP+1, RETLP, RETLP+1, PRINT+1*
, AOU*, TYP, DT, END!, SUB+2
AOUFL AOULP, DRG, AOU, END!
ARQD AOU*, DT+1*, END!, SUBTOT+2
BDT INVLP+2, ODLP+1, RETLP+1, END!, HDR+1
DA INVLP+1*, END!
DA(1 INVLP+1*
DA(2 INVLP+1*
DIE INVLP+1*!
DR INVLP+1*, END!
DRGDA AOULP+1*, DRG*, INVLP, INVLP+1, INVLP+2, ODLP, ODLP+1, RETLP, RETLP+1, END!
DRGNM DRG, END!
DRGQD AOU*, DT+1*, DT+2*, DT+3*, END!, TOTAL
DTIME PRTCHK+1
EDT INVLP+2, ODLP+1, RETLP+1, END!, HDR+1
G PRTQUE+1*, END!
GRTOT PRINT+1*, END!, TOTAL*, GRTOT+3
INVDA AR+1*, INVLP*, INVLP+1, INVLP+2, END!
INVDT INVLP*, INVLP+1, INVLP+2, TYP*, DT*, END!, WRTLN
IOF DONE, HDR+1
IOSL TYP, DT+4, SUB+1, SUBTOT+1, GRTOT+1
IOST DONE, DONE+1, PRTCHK+1
ITMFL END!
ITNAM PRINT+1, END!, SUB+2
J END!, HDR+2*, GRTOT+2*
ODA OD+1*, ODLP*, ODLP+1, END!
ODQD AOU*, DT+2*, END!, SUBTOT+2
ODT ODLP*, ODLP+1, END!
PGCT PRINT+1*, END!, HDR+1*
PSGWIO PRTQUE+1, END!
PSGWION END!
QD AOU*, DT*, DT+1, DT+2, DT+3, END!, WRTLN
QFLG PRINT+1*, AOU, TYP, DT+4, DONE+1, END!, SUB+1, SUBTOT+1, GRTOT+1, PRTCHK+1*
RETDT RET+1*, RETLP*, RETLP+1, END!
RTQD AOU*, DT+3*, END!, SUBTOT+2
TYP AOU*, TYP*, DT, DT+1, DT+2, DT+3, END!, SUBTOT+2
X END!
Y END!, HDR+1*, WRTLN*
>> ZTDESC PRTQUE+1*
>> ZTDTH PRTQUE+1*
ZTIO PRTQUE+1!*, END!
>> ZTQUEUED AOULP, DRG, END+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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All