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

Package: Auto Replenishment Ward Stock

Routine: PSGWSC


Information

PSGWSC ;BHAM ISC/PTD,CML-Cost Report for Single Item for Selected Date Range ; 11 Aug 93 / 7:52 AM

Source Information

Source file <PSGWSC.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Auto Replenishment Ward Stock 2 (,DONE,END)^PSGWSC1  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 SINGLE ITEM COST  

Entry Points

Name Comments DBIA/ICR reference
BDT
EDT
ASKAOU
AOUCNT
ASKITEM
DEV
ENQ ;ENTRY POINT WHEN QUEUED
AOU
DRUG
AR ;AUTOMATIC REPLENISHMENT INVENTORIES
INVLP
OD ;ON DEMAND REQUESTS
ODLP
RET ;RETURNS
RETLP
CHKDTA ;DETERMINE TOTAL COST FOR DRGQD OF SELECTED DRUG
COST
SETGL

External References

Name Field # of Occurrence
^%DT BDT, EDT
^%ZIS DEV
HOME^%ZIS DEV+2
^%ZTLOAD DEV+2
^DIC ASKAOU, ASKITEM
^PSGWSC1 AOU
DONE^PSGWSC1 DEV+2
END^PSGWSC1 BDT, EDT, EDT+1, ASKAOU+1, AOUCNT, ASKITEM, DEV
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: PSGWSC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKITEM+0
Function Call: WRITE
  • Prompt: !!,*7,"This ITEM is not defined in the "_$S(AOUCNT>1:"AOUs",1:"AOU")_" you have selected!"
  • Line Location: ASKITEM+2
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: ASKITEM+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+0
Routine Call
  • DIC
  • Line Location:
    • ASKAOU
    • ASKITEM
Routine Call
  • %ZIS
  • Line Location:
    • DEV
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PSI(58.1 - [#58.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] CHKDTA+1, CHKDTA+3
^PSI(58.1 - [#58.1] ASKAOU+2, ASKITEM+1, DRUG, AR+1, INVLP, INVLP+1, OD+1, ODLP, ODLP+1, RET+1
, RETLP, RETLP+1
^PSI(58.19 - [#58.19] ENQ+3
^TMP("PSGWINV" ENQ+2!, ENQ+3*, INVLP+1
^TMP("PSGWSC" ENQ+2!, SETGL*

Label References

Name Line Occurrences
AOU DRUG, CHKDTA+1, SETGL
AOUCNT EDT+1
ASKITEM ASKITEM+2
CHKDTA RET+1, RETLP
INVLP INVLP+1, INVLP+2
OD AR+1, INVLP
ODLP ODLP+1, ODLP+2
RET OD+1, 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*, DRUG, AR+1, INVLP, INVLP+1, OD+1, ODLP, ODLP+1
, RET+1, RETLP, RETLP+1, SETGL
>> AOUCNT AOUCNT*, ASKITEM+2
>> AOULP ASKAOU+1, AOUCNT, DEV+1
>> AOULP( ASKAOU*, ASKAOU+2*, AOUCNT, ASKITEM+1, AOU
>> BDT BDT*, EDT, ENQ+3, ODLP+1, RETLP+1
>> CHK ASKITEM+1*, ASKITEM+2
DIC ASKAOU*!, ASKITEM*!
DIC("A" ASKITEM*
DIC("S" ASKITEM*
DIC(0 ASKAOU*, ASKITEM*
>> DRGCST COST*, COST+1*, SETGL
>> DRGDA DRUG*, AR+1, INVLP, INVLP+1, OD+1, ODLP, ODLP+1, RET+1, RETLP, RETLP+1
>> DRGNM ASKITEM*, ASKITEM+1, DRUG, CHKDTA+1, CHKDTA+3
>> DRGQD AR+1*, INVLP+1*, ODLP+1*, RETLP+1*, CHKDTA+1, COST, SETGL
>> EDT EDT*, ENQ+3, ODLP+1, RETLP+1
>> G DEV+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!
IOP DEV!
>> ITNAM ASKITEM*
>> J ENQ+3*
>> JJ ASKAOU*, AOUCNT*, ASKITEM+1*
>> 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
>> QD INVLP+1*, ODLP+1*, RETLP+1*
>> QFLG DEV+2*
>> RETDT RET+1*, RETLP*, RETLP+1
>> SEL EDT+1
>> X ASKAOU+1, ASKAOU+2
>> Y BDT, EDT, ASKAOU, ASKITEM
>> ZTDESC DEV+1*
>> ZTRTN DEV+1*
>> ZTSAVE( DEV+1*
>> ZTSAVE("AOULP(" DEV+1*
ZTSK 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