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

Call Graph

Call Graph Total: 3

Package Total Call Graph
Inpatient Medications 1 $$ENDTC^PSGMI  
Kernel 1 ^%ZISC  
VA Fileman 1 NOW^%DTC  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC START+1
^%ZISC DONE+1
$$ENDTC^PSGMI START+1, PW+1

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
  • Timeout: DTIME
  • Variable: NP
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J RUN+1, RUN+2, PW+1

Label References

Name Line Occurrences
DONE RUN+1, RUN+2
DW RUN+2
HDR RUN+1
NP TOTLS+1, DW+1, PW+1
PTOT RUN+2
PW RUN+2

Naked Globals

Name Field # of Occurrence
^( RUN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1, DONE+1!
%H DONE+1!
%I DONE+1!
AD DONE+1!, PW+1*, PW+2
>> CDD RUN+2*, PW+1
CML START+1*, TOTLS+2, DONE+1!, NP+1, NP+2
CNT DONE+1!, DW+2*, DW+3
CST RUN+2*, DONE+1!, DW+2*, DW+3
>> DIAG PW+1*, PW+2
>> DRG RUN+2*, DW+3
DTIME NP+1
HDR DONE+1!
HDRL DONE+1!
IO START+1, RUN+1
IO(0 START+1
IOF DONE+1, HDR+1
IOSL TOTLS+1, TOTLS+2, DW+1, NP+2, PW+1
IOST START+1
LINE START+1*, DONE+1!, HDR+1
LN2 START+1*, TOTLS+1, DONE+1!
NP START+1*, RUN+2, TOTLS+1, TOTLS+2, DONE+1!, DW+1, NP+1*
P DONE+1!
PCNT RUN+2*, DONE+1!, PTOT+1, DW+2*
PCPU DONE+1!, PTOT+1*
PCST RUN+2*, DONE+1!, PTOT+1, DW+2*
>> PN START+1*, RUN+2*, HDR+1, PW+1, PW+2
>> PSGDT START+1*
>> PSGOD PW+1*, PW+2
PSGPDT START+1*, DONE+1!, HDR+1
PSGWD DONE+1!
PSGWG DONE+1!
>> SSN PW+1*, PW+2
TCNT START+1*, TOTLS+1, DONE+1!, PTOT+1*
TCPU TOTLS+1*, DONE+1!
TCST START+1*, TOTLS+1, DONE+1!, PTOT+1*
>> X TOTLS+2*, NP+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All