Routine: PSOMGMN1

Package	Total	Call Graph
Outpatient Pharmacy	3	(EN,PRI)^PSOMGMN2 (EN,PRI)^PSOMGMN3 ^PSOMGMN4
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOMGMRP

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	DV+4, TOT+6
EN^PSOMGMN2	ENQ+1
PRI^PSOMGMN2	ENQ
EN^PSOMGMN3	ENQ+1
PRI^PSOMGMN3	ENQ
^PSOMGMN4	ENQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: CNT Line Location: RPT+0
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",!?56,"PRESCRIPTION COUNTS",?112,"PAGE ",PG Line Location: RPT+0
Function Call: WRITE	Prompt: !!?9 Line Location: RPT+2
Function Call: WRITE	Prompt: $J($P("^^^TOT^30^60^90^EQ^^TOT^TOT^MED^RX/^EQ FL/","^",K),8) Line Location: RPT+2
Function Call: WRITE	Prompt: !,"DATE",?9 Line Location: RPT+3
Function Call: WRITE	Prompt: $J($P("CAT A^CAT C^OTH^CAT^DAY^DAY^DAY^FLS^METH^RX^EQ FL^REQ^REQ^REQ","^",K),8) Line Location: RPT+3
Function Call: WRITE	Prompt: ! Line Location: RPT+4
Function Call: WRITE	Prompt: "=" Line Location: RPT+4
Function Call: WRITE	Prompt: !!!?17,"FINISHED PRINTING ON: " Line Location: DV+4
Function Call: WRITE	Prompt: Y Line Location: DV+4
Function Call: WRITE	Prompt: @IOF Condition for execution: RUN="A"&(ANS="S") Line Location: DV+4
Function Call: WRITE	Prompt: !,$E($P(PRV,"^",2),4,5)_"/"_$E($P(PRV,"^",2),2,3),?9 Line Location: MON+1
Function Call: WRITE	Prompt: $J($P(M1(PRV),"^",K),8) Line Location: MON+1
Function Call: WRITE	Prompt: $J($S($P(M1(PRV),"^",12)=0!($P(M1(PRV),"^",14)=0):0,1:$P(M1(PRV),"^",12)/$P(M1(PRV),"^",14)),8,2) Line Location: MON+2
Function Call: WRITE	Prompt: $J($S($P(M1(PRV),"^",13)=0!($P(M1(PRV),"^",14)=0):0,1:$P(M1(PRV),"^",13)/$P(M1(PRV),"^",14)),8,2) Line Location: MON+3
Function Call: WRITE	Prompt: !?9 Line Location: SUB+1
Function Call: WRITE	Prompt: $J("=======",8) Line Location: SUB+1
Function Call: WRITE	Prompt: $J($P(S1(DIV),"^",K),8) Line Location: SUB+2
Function Call: WRITE	Prompt: $J($S($P(S1(DIV),"^",12)=0!($P(S1(DIV),"^",14)=0):0,1:$P(S1(DIV),"^",12)/$P(S1(DIV),"^",14)),8,2) Line Location: SUB+3
Function Call: WRITE	Prompt: $J($S($P(S1(DIV),"^",13)=0!($P(S1(DIV),"^",14)=0):0,1:$P(S1(DIV),"^",13)/$P(S1(DIV),"^",14)),8,2) Line Location: SUB+4
Function Call: WRITE	Prompt: !?9 Line Location: TOT+2
Function Call: WRITE	Prompt: $J("=======",8) Line Location: TOT+2
Function Call: WRITE	Prompt: !,"GR TOTAL",?9 Line Location: TOT+3
Function Call: WRITE	Prompt: $J($P(T1,"^",K),8) Line Location: TOT+3
Function Call: WRITE	Prompt: $J($S($P(T1,"^",12)=0!($P(T1,"^",14)=0):0,1:$P(T1,"^",12)/$P(T1,"^",14)),8,2) Line Location: TOT+4
Function Call: WRITE	Prompt: $J($S($P(T1,"^",13)=0!($P(T1,"^",14)=0):0,1:$P(T1,"^",13)/$P(T1,"^",14)),8,2) Line Location: TOT+5

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DV+4, TOT+6
>> ANS	EN, ENQ, ENQ+1, DV+4
>> BEG	DV, DV+1
>> CNT	EN, ENQ, ENQ+1, RPT, PRI*
>> DIV	RPT+1, PRI, DV, DV+1, DV+2, DV+3, LN+1, LN+2, SUB+2, SUB+3 , SUB+4, TOT+1
>> DVMN	DV+1*, LN+1
>> EDT	RPT+1, DV
IO	RPT
IOF	EN, RPT, DV+4, TOT+6
IOSL	DV
>> K	RPT+2, RPT+3, RPT+4, LN, LN+1, LN+2, MON+1, SUB+1, SUB+2, TOT+2 , TOT+3*
>> M1(	DV+1, LN+1, MON+1, MON+2, MON+3
>> PDATE	DV*, DV+1, DV+2, DV+3, LN+1, LN+2
>> PG	EN, ENQ+1, RPT, PRI
>> PRT	RPT+1, DV, SUB+1, SUB+2, TOT+1
>> PRV	DV+1*, MON+1, MON+2, MON+3
>> RUN	DV+4, TOT+6
>> S1(	DV, LN+2, SUB+2, SUB+3, SUB+4
>> SDT	RPT+1, DV
>> T1	PRI, LN+2, TOT+3, TOT+4, TOT+5
>> Y	DV+4, TOT+6

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOMGMN1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
RPT
LN
PRI
TOT	;PRINT GRAND TOTALS
ENQ
MON	;PRINT MONTHLY TOTALS
DV
SUB	;PRINT SUB TOTALS

Name	Line Occurrences
DV	EN, ENQ+1, PRI
LN	DV+3
MON	DV+1, SUB+1
PRI	EN, ENQ
RPT	DV, TOT+1
SUB	DV, TOT+1
TOT	PRI+1