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

Package: Inpatient Medications

Routine: PSGDCR0


Information

PSGDCR0 ;BIR/CML3-PRINT COST AT DISCHARGE REPORT ;09 JUL 94 / 10:53 AM

Source Information

Source file <PSGDCR0.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
RUN ;
TOTLS ;
DONE ;
PTOT ;
DW ;
NP ;
HDR ;
PW ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?18,"*** NO TOTAL COST PER PATIENT FOUND ***"
  • Line Location: RUN+1
Function Call: WRITE
  • Prompt: !!,LN2,!!?5,"TOTALS => ",?17,"AVG. COST/UNIT: ",$J(TCPU,0,2),?52,$J(TCNT,9,0),?67,$J(TCST,12,2)
  • Line Location: TOTLS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTLS+2
Function Call: WRITE
  • Prompt: !?54,"(** = NON-FORMULARY ITEM)"
  • Line Location: TOTLS+3
Function Call: WRITE
  • Prompt: ?52,"---------",?67,"------------",!?1,"----- AVG. COST/UNIT: ",$J(PCPU,0,2),?52,$J(PCNT,9,0),?67,$J(PCST,12,2),!!
  • Line Location: PTOT+1
Function Call: WRITE
  • Prompt: !?4,$S('$P(DRG,"^",2):" ",1:"**")," ",$P(DRG,"^"),$S($P(DRG,"^")'=+$P(DRG,"^"):"",1:" (DRUG NOT FOUND)"),?52,$J(CNT,9,0),?67,$J(CST,12,2),!
  • Line Location: DW+3
Function Call: READ
  • Variable: NP
  • Timeout: DTIME
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: $C(7),!,"`^' TO STOP "
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: NP="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NP+2
Function Call: WRITE
  • Prompt: !?54,"(** = NON-FORMULARY ITEM)"
  • Line Location: NP+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?28,"COST AT DISCHARGE REPORT",?64,PSGPDT,!!?3,"Patient",?45,"Admitting Date",?64,"Discharge Date",!?60,"Admitting Diagnosis",!?10,"Drug",?53,"Dispensed",?72,"Cost",!,LINE
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?2,$S($P(PN,"^")]"":$P(PN,"^"),1:$P(PN,"^",2))," ("_SSN_")",?45,AD,?64,PSGOD,!?79-$L(DIAG),DIAG,!
  • Line Location: PW+2
Info |  Source |  Entry Points |  Interaction Calls