Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls