Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSGDCT  

Entry Points

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

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] PSGDCT1+5
^PS(50.606 - [#50.606] OIDF+4
^PS(50.7 - [#50.7] OIDF+3
^PS(57.6 - [#57.6] PSGDCT1+3, PSGDCT1+4, PSGDCT1+5, PSGDCT1+6, PSGDCT1+7, SET+1
^PSDRUG - [#50] SET+1, SET+3, SET+4
^TMP($J PSGDCT1+3!, SETTMP+1*, SETTMP+2*

Label References

Name Line Occurrences
$$EXCLUDE SET+2, SET+3, SET+4
$$INC SETTMP+1, SETTMP+2, SETTMP+3
$$OIDF SET+3
$$SETDRG SET+1, SET+4
SET PSGDCT1+7
SETTMP SET+2, SET+3, SET+4

Naked Globals

Name Field # of Occurrence
^(0 SETTMP+1*, SETTMP+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DRG PSGDCT1+7*, SET+1, SET+2, SET+3, SET+4
>> FD PSGDCT1+3
IEN SETDRG~, SETDRG+1
NAME OIDF+2~, OIDF+4*, OIDF+5
ND SET+1*, SET+2, SET+3, SET+4, SETTMP~, SETTMP+1, SETTMP+2, SETTMP+3, INC~, INC+1
>> ND50 SET+1*, SETTMP+1, SETTMP+2
>> OI SET+3*
OIND OIDF~, OIDF+3, OIDF+4, OIDF+5
>> PR PSGDCT1+6*, PSGDCT1+7, SET+1
>> PSGDCLW PSGDCT1+5
>> PSGDCLW( PSGDCT1+5
>> PSGDCT PSGDCT1+3, SET+2, SET+3, SETTMP+1
>> PSGDCT(1 SBCHK+1
>> PSGDCT(2 SBCHK+1
>> PSGDCTD EXCLUDE+2
>> PSGDCTD( EXCLUDE+2
>> PSGDCTS SBCHK+2*
>> PSGDISP PSGDCT1+3, SETTMP+2
>> PSGP2 PSGDCT1+3*, SETTMP+3
S1 SET+3*, SET+4*, SETTMP~, SETTMP+1, SETTMP+2
S2 SET+1*, SET+2, SET+3, SET+4, SETTMP~, SETTMP+2
S3 PSGDCT1+5*, SET+2, SET+3, SET+4, SETTMP~, SETTMP+3
>> SD PSGDCT1+3
>> ST PSGDCT1+3*, PSGDCT1+4, PSGDCT1+5, PSGDCT1+6, PSGDCT1+7, SET+1
TYP SETDRG~, SETDRG+1
U PSGDCT1+5, SET+1, SET+3, SET+4, EXCLUDE+1, SETDRG+1, OIDF+4, SETTMP+1, SETTMP+2, INC+1
>> W PSGDCT1+4*, PSGDCT1+5, PSGDCT1+6, PSGDCT1+7, SET+1
>> WD PSGDCT1+5*
X EXCLUDE~, EXCLUDE+1*, EXCLUDE+2, SETDRG~, SETDRG+1, OIDF+2~, OIDF+3*, OIDF+4, SETTMP+3*, INC~
, INC+1
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All