Routine: PSGPRVR0

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

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI

VA Fileman

NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	1	PSGPRVR

Package

Total

Caller Graph

Inpatient Medications

PSGPRVR

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

Name	Field # of Occurrence
NOW^%DTC	START+1
$$ENDTC^PSGMI	START+1

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	Prompt: "'^' TO STOP " Formatting: ! Timeout: DTIME Variable: NP 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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSG"	START+2, RUN+2

Name	Line Occurrences
DONE	START+2, RUN+2
DRGP	RUN+2
HDR	START+2, RUN+1
NP	RUN+2, TOTLS+1, PTOT+1, DRGP+1
PTOT	RUN+2

Name	Field # of Occurrence
^(	RUN+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+1, DONE+1!
CML	START+1*, TOTLS+2, DONE+1!, NP+1, NP+2
CNT	DONE+1!, DRGP+2*, DRGP+3
CPU	DONE+1!
CST	RUN+2, DONE+1!, DRGP+2, DRGP+3
>> DRG	START+1, RUN+2, DRGP+3
DTIME	NP+1
IO	START+1, START+2
IO(0	START+1
IOF	DONE+1, HDR+1
IOSL	TOTLS+1, TOTLS+2, PTOT+1, DRGP+1, NP+2
IOST	START+1
LN1	START+1*, DONE+1!, HDR+1
LN2	START+1*, TOTLS+1, DONE+1!
>> NF	RUN+2*, DRGP+3
NP	START+1, RUN+2, TOTLS+1, TOTLS+2, DONE+1!, PTOT+1, DRGP+1, NP+1
PCNT	RUN+2, DONE+1!, PTOT+2, DRGP+2
PCPU	DONE+1!, PTOT+2*
PCST	RUN+2, DONE+1!, PTOT+2, DRGP+2
>> PG	START+1, NP+1, NP+2, HDR+1
>> PR	START+1, RUN+2, TOTLS+1*, TOTLS+2, PTOT+1, DRGP+1, NP+1, NP+2
>> PSGDT	START+1*
PSGID	DONE+1!
PSGOD	DONE+1!
PSGPDT	START+1*, DONE+1!, HDR+1
>> PSGPRVRP	RUN+1, RUN+2, TOTLS+1, PTOT+2
>> Q	RUN+2*
SN	DONE+1!
>> STOP	HDR+1
>> STRT	HDR+1
TCNT	START+1, TOTLS+1, DONE+1!, PTOT+2
TCPU	TOTLS+1*, DONE+1!
TCST	START+1, TOTLS+1, DONE+1!, PTOT+2
U	RUN+2
>> X	TOTLS+2, NP+2

Customize PDF page

Package: Inpatient Medications

Routine: PSGPRVR0

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: