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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSGDCT

Package: Inpatient Medications

Routine: PSGDCT


Information

PSGDCT ;BIR/CML3-DRUG COST TOTALS ; 24 Mar 98 / 10:10 AM

Source Information

Source file <PSGDCT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 5 ENDTS^PSGAMS  (,ALM,CLM)^PSGDCT1  (,DONE1)^PSGDCTP  ENCV^PSGSETU  EN3^PSGTI  
VA FileMan 3 ^DIC  YN^DICN  ^DIR  
Kernel 1 ^%ZISC  

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
Inpatient Medications 1 PSJU DCT  

Entry Points

Name Comments DBIA/ICR reference
DONE ;
ENQ ;
QUES ;
SH ;Select entries to be included..
SB ;
CL
AL
DISP ;view dispensed drugs
DIC(PSG,PSGDC,PSGT) ;LooK up a ward or report types.
LC ;Convert data to lower case wording

External References

Name Field # of Occurrence
^%ZISC PSGDCT+9
^DIC DIC+10
YN^DICN DISP+1
^DIR QUES+1, QUES+3, QUES+7, SH+2, SB+3
ENDTS^PSGAMS PSGDCT+8
^PSGDCT1 ENQ+1
ALM^PSGDCT1 AL
CLM^PSGDCT1 CL
^PSGDCTP ENQ+1
DONE1^PSGDCTP DONE+1
ENCV^PSGSETU PSGDCT+7
EN3^PSGTI PSGDCT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " not selected, DRUG report terminated...",$C(7)
  • Line Location: PSGDCT+8
Function Call: WRITE
  • Prompt: !!,"...Ward"
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !!,"...Select category"
  • Line Location: QUES+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: SH+2
Function Call: WRITE
  • Prompt: !!,"...",PSGDCT(1)," not selected"
  • Line Location: SH+2
Function Call: WRITE
  • Prompt: !!,"...Sort order"
  • Line Location: SB+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Print all drugs costing at least? "
  • Variable: PSGDCTL
  • Timeout: DTIME
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: " (ALL)"
  • Condition for execution: PSGDCTL=""
  • Line Location: CL+1
Function Call: WRITE
  • Prompt: !!,"...Cost limit"
  • Line Location: CL+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Print all drugs with a dispensing amount of at least? "
  • Variable: PSGDCTA
  • Timeout: DTIME
  • Line Location: AL+0
Function Call: WRITE
  • Prompt: " (ALL)"
  • Condition for execution: PSGDCTA=""
  • Line Location: AL+1
Function Call: WRITE
  • Prompt: !!,"...Dispensing amount"
  • Line Location: AL+1
Function Call: WRITE
  • Prompt: !!,"Display the dispense drugs"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,"Answer 'YES' and I will display the dispensed drugs associated with the ",!,PSGDCT(1)," or answer 'NO' and only the totals will be displayed.",!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,"...Dispense drug display"
  • Line Location: DISP+2
Routine Call
  • DIC
  • Line Location:
    • DIC+10
Routine Call
  • DIR
  • Line Location:
    • QUES+1
    • QUES+3
    • QUES+7
    • SH+2
    • SB+3

Label References

Name Line Occurrences
DIC QUES+4, SH+4
DISP SH+5
DONE PSGDCT+8
ENQ PSGDCT+9
LC QUES+8
QUES PSGDCT+8, QUES+2
SH SH+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DISP+1*, DISP+2, DISP+3, LC+1*
DIC DIC+1!*, DIC+3
DIC("A" DIC+10*
DIC("W" DIC+7*, DIC+8*
DIC(0 DIC+1*, DIC+10*
DIR QUES+1!, QUES+3!, QUES+7!, SH+1!, SH+2!, SB+3!
DIR("?" QUES+3*, QUES+7*, SH+1*
DIR("??" QUES+1*, SB+3*
DIR("A" QUES+1*, QUES+3*, QUES+7*, SH+1*, SB+3*
DIR("B" QUES+1*, QUES+3*, SH+1*
DIR(0 QUES+1*, QUES+3*, QUES+7*, SH+1*, SB+3*
>> DIRUT QUES+1, SH+2, SB+3
DTIME CLAL
>> FD PSGDCT+8
>> HLP PSGDCT+8*
IO PSGDCT+9
>> IO("Q" PSGDCT+9
>> IO(0 PSGDCT+9
IOST PSGDCT+9
>> POP PSGDCT+9
PSG SH+1*, SH+4, DIC~, DIC+1
PSGDC DIC~, DIC+1, DIC+10
PSGDCLW QUES+1!, QUES+2, QUES+3*, QUES+4!
PSGDCLW(0 QUES+4
>> PSGDCT QUES+8*, SH+1, SH+5, DIC+10
>> PSGDCT(1 QUES+8*, SH+1, SH+2, SH+4, SB+3, DISP+1
>> PSGDCT(2 QUES+8*, SH+1
>> PSGDCTA SB+1*, AL*, AL+1
>> PSGDCTD SH+3*, SB+1
>> PSGDCTD( SB+2
>> PSGDCTD(0 SH+4
>> PSGDCTL SB+1*, CL*, CL+1
>> PSGDCTS SB+1*, SB+4*
PSGDISP DISP+3!*
PSGERR PSGDCT+8!, QUES+1*, QUES+7*, SH+2*, SH+5, SB+3*, CL+1*, AL+1*, DISP+2*
PSGT DIC~, DIC+10
>> RTN PSGDCT+9*
>> SD PSGDCT+8
U DIC+10
X QUES+8*!, SB+1, SB+2*, DIC+10*, LC+1*
>> XQUIT PSGDCT+7
Y QUES+2, QUES+3, QUES+7, QUES+8!, SH+3, SB+2*, SB+4, DIC+10
Y(0 DIC+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All