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

Package: Auto Replenishment Ward Stock

Routine: PSGWCPA


Information

PSGWCPA ;BHAM ISC/PTD,CML-Cost Per AOU for Selected Date Range ; 03 Sep 93 / 12:07 PM

Source Information

Source file <PSGWCPA.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Auto Replenishment Ward Stock 2 (EN1,END)^PSGWCPA1  SEL^PSGWUTL1  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
VA FileMan 2 ^%DT  ^DIC  

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 COST PER AOU  

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
ASKAOU
AOUCNT
ASKPRT
DEV
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
CHKDTA ;DETERMINE TOTAL COST FOR DRGQD OF SELECTED DRUG
COST
SETGL
PRTQUE ;AFTER DATA IS COMPILED, QUEUE THE PRINT

External References

Name Field # of Occurrence
^%DT BDT, EDT
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZTLOAD DEV+2, PRTQUE+2
^DIC ASKAOU
EN1^PSGWCPA1 AOU
END^PSGWCPA1 BDT, EDT, EDT+1, ASKAOU+1, AOUCNT, ASKPRT, DEV, DEV+2, PRTQUE+2
SEL^PSGWUTL1 EDT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"Before printing this report, be sure accurate data exists for drug cost.",!?5,"Use ""Prepare AMIS Data"": ""Enter AMIS Data for All Drugs/All AOUs"".",!!
  • Line Location: PSGWCPA+2
Function Call: WRITE
  • Prompt: !!,"Do you want to print:",!?5,"(1) A complete report",!?5,"(2) Totals and Summaries only"
  • Line Location: AOUCNT+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter '1' or '2': "
  • Variable: FLG
  • Timeout: DTIME
  • Line Location: ASKPRT+0
Function Call: WRITE
  • Prompt: *7,!!,"Enter '1' to print a complete report including all items in the AOU.",!,"Enter '2' to print only the totals for the AOU(s) and Cost Summaries."
  • Line Location: ASKPRT+1
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: ASKPRT+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Routine Call
  • DIC
  • Line Location:
    • ASKAOU
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

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] DRGLP, CHKDTA+1, CHKDTA+3
^PSI(58.1 - [#58.1] ASKAOU+2, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1
^PSI(58.19 - [#58.19] ENQ+3
^TMP("PSGWCPA" ENQ+2!, ENQ+3*, INVLP+1, SETGL*, PRTQUE+2!

Label References

Name Line Occurrences
AOU DRGLP
AOUCNT EDT+1
ASKPRT ASKPRT+1
CHKDTA RETLP
DRGLP CHKDTA+1, SETGL
INVLP INVLP+1, INVLP+2
OD INVLP
ODLP ODLP+1, ODLP+2
PRTQUE AOU
RET ODLP
RETLP RETLP+1, RETLP+2

Naked Globals

Name Field # of Occurrence
^("PSG" CHKDTA+3
^(660 CHKDTA+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDT*!, EDT*!
%DT("A" BDT*, EDT*
%DT(0 EDT*
%ZIS DEV!*
%ZIS("B" DEV*
>> AOU ASKAOU+2*, ENQ+2*, AOU*, DRGLP, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1
, SETGL
>> AOUCNT AOUCNT*
>> AOULP ASKAOU+1, AOUCNT, DEV+1
>> AOULP( ASKAOU*, ASKAOU+2*, AOUCNT, AOU
>> BDT BDT*, EDT, ENQ+3, ODLP+1, RETLP+1
DIC ASKAOU*!
DIC(0 ASKAOU*
>> DRGCST COST*, COST+1*, SETGL
>> DRGDA DRUG+1*, DRGLP*, INVLP, INVLP+1, ODLP, ODLP+1, RETLP, RETLP+1
>> DRGNAME DRGLP*, SETGL
>> DRGNM DRGLP*, CHKDTA+1, CHKDTA+3
>> DRGQD AR+1*, INVLP+1*, ODLP+1*, RETLP+1*, CHKDTA+1, COST, SETGL
DTIME ASKPRT
>> EDT EDT*, ENQ+3, ODLP+1, RETLP+1
>> FLG ASKPRT*, ASKPRT+1
>> G DEV+1*, PRTQUE+1*
>> INC CHKDTA+1*, CHKDTA+2*, CHKDTA+4*, CHKDTA+5*, CHKDTA+6*, COST
>> INVDA AR+1*, INVLP*, INVLP+1
>> INVDT ENQ+3*
>> INVN ENQ+2*, ENQ+3*
IO DEV+3
IO("Q" DEV+1!
ION DEV+1
IOP DEV!
>> J ENQ+3*
>> JJ ASKAOU*, AOUCNT*
>> LOC1 CHKDTA+1*, CHKDTA+5, COST
>> LOC2 CHKDTA+3*, CHKDTA+6, CHKDTA+8
>> ODA OD+1*, ODLP*, ODLP+1
>> ODT ODLP*, ODLP+1
>> POP DEV
>> PSGWCNM CHKDTA+8*, COST
>> PSGWIO DEV+1*, PRTQUE+1
>> QD INVLP+1*, ODLP+1*, RETLP+1*
>> RETDT RET+1*, RETLP*, RETLP+1
>> SEL EDT+1
>> X ASKAOU+1, ASKAOU+2
>> Y BDT, EDT, ASKAOU
>> ZTDESC DEV+1*, PRTQUE+1*
ZTDTH DEV+1!, PRTQUE+1*
ZTIO DEV+1*, PRTQUE+1!*
>> ZTQUEUED AOU
>> ZTRTN DEV+1*, PRTQUE+1*
ZTSAVE DEV+1!, PRTQUE+1!
ZTSAVE( DEV+1*, PRTQUE+1*
ZTSAVE("AOULP(" DEV+1*
ZTSAVE("^TMP(""PSGWCPA"",$J," PRTQUE+1*
ZTSK DEV+1!, DEV+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