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

Package: Inpatient Medications

Routine: PSGPRVR0


Information

PSGPRVR0 ;BIR/CML3-PRINT COST PER PROVIDER REPORT ;31 OCT 95 / 2:04 PM

Source Information

Source file <PSGPRVR0.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?22,"*** NO PROVIDER COST DATA FOUND ***"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !?1,PR
  • Line Location: RUN+2
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: !!!?34,"*** DONE ***"
  • Line Location: TOTLS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTLS+2
Function Call: WRITE
  • Prompt: !?54,"(** = NON-FORMULARY ITEM)"
  • Line Location: TOTLS+3
Function Call: WRITE
  • Prompt: !?1,PR," (cont.)"
  • Line Location: PTOT+1
Function Call: WRITE
  • Prompt: !?1,PR," (cont.)"
  • Line Location: DRGP+1
Function Call: WRITE
  • Prompt: !?4,$S('NF:" ",1:"**")," ",$S(DRG'="zz":$P(DRG,"^"),1:"*** DRUG NOT FOUND ***"),?52,$J(CNT,9,0),?67,$J(CST,12,2),!
  • Line Location: DRGP+3
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP "
  • Variable: NP
  • Timeout: DTIME
  • Line Location: NP+1
Function Call: WRITE
  • Prompt: $C(7)
  • 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: !!?1,PSGPDT,?24,"UNIT DOSE COST PER PROVIDER REPORT",?73-$L(PG),"Page: ",PG,!?28,"FROM ",STRT," TO ",STOP,!!?1,"PROVIDER",?52,"TOTAL UNITS",?72,"TOTAL",!?10,"DRUG",?53,"DISPENSED",?72,"COST",!,LN1,!
  • Line Location: HDR+1
Info |  Source |  Entry Points |  Interaction Calls