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

Package: Inpatient Medications

Routine: PSGDCT1


Information

PSGDCT1 ;BIR/DAV,MLM-DRUG COST TOTALS SORTING ;21 MAY 96 / 7:49 AM

Source Information

Source file <PSGDCT1.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; Set subscripts.
EXCLUDE(X) ; Check if item is to be included in report.
SETDRG(TYP,X,IEN) ;TYP=TYPE OF DATA, X=DATA NAME, IEN=IEN OF DATA.
OIDF(OIND)
SETTMP(S1,S2,S3,ND) ; Set TMP by select type, dispense drug, and maybe ward.
INC(X,ND) ;Increment amount and cost.
CLM ;
ALM ;
SDH ;
SBCHK ;
ENQH ;
WDHLP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?2,"Enter a number (dollar amount) to be the lower limit for this report. This number may be zero (0) to include all drugs with a positive cost. A NULL",!,"response will include all drugs. Enter an '^' to terminate this report."
  • Line Location: CLM+1
Function Call: WRITE
  • Prompt: !!?2,"Enter a number to be the lower dispensing limit (inclusive) for this report.",!,"This number may be zero (0) to include all drugs with a positive dispensing",!,"amount. A NULL response will include all drugs. Enter an '^' to "
  • Line Location: ALM+1
Function Call: WRITE
  • Prompt: !,"terminate this report."
  • Line Location: ALM+2
Function Call: WRITE
  • Prompt: !!?2,"Select a DRUG for which you wish to have cost data print."
  • Line Location: SDH+1
Function Call: WRITE
  • Prompt: !!,"Enter '",$E(PSGDCT(1),1),"' to have this report print the drugs in order of ",PSGDCT(2),".",!,"Enter 'C' to have this report print the drugs in descending order of TOTAL COST."
  • Line Location: SBCHK+1
Function Call: WRITE
  • Prompt: !,"Enter 'A' to have this report print the drugs in descending order of the",!,"AMOUNT DISPENSED (in UNITS)."
  • Line Location: SBCHK+2
Function Call: WRITE
  • Prompt: !!,"Enter the category that the drugs on the report will be selected by...",!,"Enter 'D' for Dispensed Drug",!,"Enter 'O' for Orderable Item",!,"Enter 'V' for VA Class...."
  • Line Location: ENQH+1
Function Call: WRITE
  • Prompt: !!,"Enter ""YES"" to include dispensing amounts and cost by ward.",!
  • Line Location: WDHLP+1
Info |  Source |  Entry Points |  Interaction Calls