Routine: PSOMGMN3

Package	Total	Call Graph
Outpatient Pharmacy	1	(SUB,TOT)^PSOMGM31
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOMGM31 PSOMGMN1 PSOMGMRP

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	DV+8
SUB^PSOMGM31	DV
TOT^PSOMGM31	PRI+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: CNT Line Location: RPT+1
Function Call: WRITE	Prompt: !!?30,"O U T P A T I E N T P H A R M A C Y M A N A G E M E N T R E P O R T",!?57,"PRESCRIPTION COSTS",?123,"PAGE ",PG Line Location: RPT+1
Function Call: WRITE	Prompt: !! Line Location: RPT+3
Function Call: WRITE	Prompt: $J($P("^AVG^AVG^AVG^AVG COST^AVG^TOT^TOT^TOT^AVG PARTIC","^",K),13) Line Location: RPT+3
Function Call: WRITE	Prompt: !,"DATE",?13 Line Location: RPT+4
Function Call: WRITE	Prompt: $J($P("STAFF^FEE^RX^PER EQ FL^METH^RX^METH^PART PHARM^PHARM RX","^",K),13) Line Location: RPT+4
Function Call: WRITE	Prompt: ! Line Location: RPT+5
Function Call: WRITE	Prompt: "-" Line Location: RPT+5
Function Call: WRITE	Prompt: !!,"QUARTER "_QTR_" OUTPATIENT PRESCRIPTION COSTS/PATIENT = $"_$FN($S(QCST=0!(QMREQ=0):0,1:QCST/QMREQ),"",2) Line Location: DV+6
Function Call: WRITE	Prompt: !!,"QUARTERLY OUTPATIENT PRESCRIPTION COST/PATIENT NOT AVAILABLE" Line Location: DV+7
Function Call: WRITE	Prompt: !!!?17,"FINISHED PRINTING ON: " Line Location: DV+8
Function Call: WRITE	Prompt: Y,@IOF Line Location: DV+8
Function Call: WRITE	Prompt: !,$E($P(PRV,"^",2),4,5)_"/"_$E($P(PRV,"^",2),2,3),?13,$J($FN($S($P(M2(PRV),"^",4)=0!($P(M3(PRV),"^",2)=0):0,1:$P(M3(PRV),"^",2)/$P(M2(PRV),"^",4)),"",2),13) Line Location: MON+1
Function Call: WRITE	Prompt: $J($FN($S($P(M2(PRV),"^",3)=0!($P(M3(PRV),"^",3)=0):0,1:$P(M3(PRV),"^",3)/$P(M2(PRV),"^",3)),"",2),13),$J($FN($S($P(M3(PRV),"^",7)=0!($P(M1(PRV),"^",12)=0):0,1:($P(M3(PRV),"^",7)/$P(M1(PRV),"^",12))),"",2),13) Line Location: MON+2
Function Call: WRITE	Prompt: $J($FN($S($P(M3(PRV),"^",7)=0!($P(M1(PRV),"^",10)=0):0,1:$P(M3(PRV),"^",7)/$P(M1(PRV),"^",10)),"",2),13),$J($FN($S($P(M3(PRV),"^",8)=0!($P(M1(PRV),"^",11)=0):0,1:$P(M3(PRV),"^",8)/$P(M1(PRV),"^",11)),"",2),13) Line Location: MON+3
Function Call: WRITE	Prompt: $J($FN($P(M3(PRV),"^",7),"",2),13),$J($FN($P(M3(PRV),"^",8),"",2),13),$J($FN($P(M3(PRV),"^",9),"",2),13),$J($FN($S($P(M3(PRV),"^",9)=0!($P(M2(PRV),"^",13)=0):0,1:$P(M3(PRV),"^",9)/$P(M2(PRV),"^",13)),"",2),13) Line Location: MON+4

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DV+8
^PS(59 - [#59]	RPT+2, PRI
^PS(59.12 - [#59.12]	DV, DV+4, LN, LN+1, LN+2, LN+3, LN+4, LN+5, LN+6

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DV+8
>> ANS	EN, DV+8
AVGFEE	LN+2*!
AVGST	LN+1*!
>> BEG	DV, DV+2
>> CNT	EN, RPT+1
>> DIV	EN, RPT+2, PRI*, DV, DV+1, DV+2, DV+3, DV+4, LN, LN+1 , LN+2, LN+3, LN+4, LN+5, LN+6
>> DVMN	DV+1*, DV+2, DV+3, LN, LN+1, LN+2, LN+3, LN+4
>> EDT	RPT+2, DV
IO	RPT+1
IOF	RPT+1, DV+8
IOSL	DV
>> K	RPT+3, RPT+4, RPT+5, LN, LN+3, LN+4
>> M1(	DV+2, DV+3, LN+3*, MON+2, MON+3
>> M2(	DV+2, DV+3, LN+4*, MON+1, MON+2, MON+4
>> M3(	DV+2, DV+3, LN, LN+1, LN+2*, MON+1, MON+2, MON+3, MON+4
>> PDATE	DV*, DV+1, DV+2, DV+3, DV+4, LN, LN+1, LN+2, LN+3, LN+4 , LN+5, LN+6
>> PG	EN, RPT+1, PRI*
>> PRT	RPT+2, DV*
>> PRV	DV+2, DV+3, MON+1, MON+2, MON+3, MON+4
>> Q1	LN+5
>> Q2	LN+5
>> QCST	PRI, DV+6, LN+5
>> QMREQ	PRI, DV+6, LN+5
>> QTCST	PRI, LN+6
>> QTMREQ	PRI, LN+6
>> QTR	DV+6, LN+5
>> S1(	EN, PRI, LN+3*
>> S2(	EN, PRI, LN+4*
>> S3(	DV, LN, LN+1, LN+2
>> SDT	RPT+2, DV, LN+5
>> T1	EN, LN+3
>> T2	EN, PRI, LN+4*
>> T3	PRI, LN, LN+1, LN+2
>> Y	DV+8*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOMGMN3

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
RPT	;HEADER
LN
PRI
MON	;PRINT MONTHLY TOTALS
DV