Routine: PSGDCR0

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

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI

Kernel

^%ZISC

VA Fileman

NOW^%DTC

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

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

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

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

Name	Field # of Occurrence
^(	RUN+2

Local Variables

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

Customize PDF page

Package: Inpatient Medications

Routine: PSGDCR0

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: