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

Package: Inpatient Medications

Routine: PSGDCTP


Information

PSGDCTP ;BIR/DAV,MLM-SORT AND PRINT DRUG PROFILE DATA ;1 NOV 95 / 8:55 AM

Source Information

Source file <PSGDCTP.m>

Entry Points

Name Comments DBIA/ICR reference
DONE ;Kill and EXIT.
DONE1
EXCLUDE(X) ; Check if drug data should be included.
SETRST(X,ND) ; Set RSTx subscripts
START ;
PRINT ;Print Data
WRTAC ; Print amt, cost line.
HDR ;Report Header.
HDR1
SUM(AMT,CST,TYP) ;Print totals and subtotals
EOP ;Check for end of page.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"*** NO DRUG COST DATA FOUND ***"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "**"
  • Condition for execution: PSGDCT=1&$P(ND,U,3)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?2,$P(ND,U,4)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?50,$J(+ND,8,3),?70,$J($P(ND,U,2),8,4)
  • Line Location: WRTAC+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?28,"UNIT DOSE DRUG COST REPORT",?63,$$ENDTC^PSGMI(PSGDT),!?25,"FROM ",STRT," THROUGH ",STOP,!!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?5,"DISPENSED DRUG"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?(5+(PSGP2*5)),"WARD"
  • Condition for execution: $D(PSGDCLW)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?50,"DISPENSED",?74,"COST",!,LN1,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?48,"TOTAL UNITS",?73,"TOTAL",!
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: ?39,"Total:",?50,$J(AMT,8,3),?70,$J(CST,8,4),!
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !!?54,"(** = NON-FORMULARY ITEM)"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !!?54,"(** = NON-FORMULARY ITEM) "
  • Line Location: EOP+2
Info |  Source |  Entry Points |  Interaction Calls