Routine: PSOMGRP2

Package	Total	Call Graph
VA Fileman	1	NOW^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOMGREP PSOMGRP1

Entry Points

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

External References

Name	Field # of Occurrence
NOW^%DTC	DV+5, TOT+6

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",!?52,"TYPE OF PRESCRIPTIONS FILLED",?124,"PAGE ",PG Line Location: RPT+1
Function Call: WRITE	Prompt: !! Line Location: RPT+3
Function Call: WRITE	Prompt: $J($P("^^^FEE^^^TOT^^^WD^PARTIC","^",K),10) Line Location: RPT+3
Function Call: WRITE	Prompt: $J("% OF FEE",12),!,"DATE",?10 Line Location: RPT+4
Function Call: WRITE	Prompt: $J($P("FEE^STAFF^& STAFF^NEW^REFILL^FILLS^WD^MAIL^& MAIL^PHARM","^",K),10) Line Location: RPT+4
Function Call: WRITE	Prompt: $J("FL BY VA",12),$J("INVEST",10),! Line Location: RPT+5
Function Call: WRITE	Prompt: "-" Line Location: RPT+5
Function Call: WRITE	Prompt: !!!?17,"FINISHED PRINTING ON: " Line Location: DV+5
Function Call: WRITE	Prompt: Y,@IOF Line Location: DV+5
Function Call: WRITE	Prompt: $J(+$P($G(^PS(59.12,PDATE,1,DIV,0)),"^",17),10) Line Location: LN+3
Function Call: WRITE	Prompt: !?10 Line Location: MON+1
Function Call: WRITE	Prompt: $J("-------",10) Line Location: MON+1
Function Call: WRITE	Prompt: $J("-------",12),$J("-------",10) Line Location: MON+2
Function Call: WRITE	Prompt: !,"MON TOTAL",?10 Line Location: MON+3
Function Call: WRITE	Prompt: $J($P(M2(PRV),"^",K),10) Line Location: MON+3
Function Call: WRITE	Prompt: $J($FN($S($P(M2(PRV),"^",3)=0&($P(M2(PRV),"^",13))=0:0,$P(M2(PRV),"^",3)=0:100,$P(M2(PRV),"^",13)=0:0,1:($P(M2(PRV),"^",3)/($P(M2(PRV),"^",3)+$P(M2(PRV),"^",13)))*100),"",1),12) Line Location: MON+4
Function Call: WRITE	Prompt: $J($P(M1(PRV),"^",17),10),! Line Location: MON+5
Function Call: WRITE	Prompt: !?10 Line Location: SUB+1
Function Call: WRITE	Prompt: $J("=======",10) Line Location: SUB+1
Function Call: WRITE	Prompt: F Condition for execution: 'PRT $J("=======",12),$J("=======",10) W !,$S('PRT:"DIV TOTAL",1:$E($P(^PS(59,DIV,0),"^"),1,8)),?10 Line Location: SUB+2
Function Call: WRITE	Prompt: $J($P(S2(DIV),"^",K),10) Line Location: SUB+2
Function Call: WRITE	Prompt: $J($FN($S($P(S2(DIV),"^",3)=0&($P(S2(DIV),"^",13))=0:0,$P(S2(DIV),"^",3)=0:100,$P(S2(DIV),"^",13)=0:0,1:($P(S2(DIV),"^",3)/($P(S2(DIV),"^",3)+$P(S2(DIV),"^",13)))*100),"",1),12) Line Location: SUB+3
Function Call: WRITE	Prompt: $J($P(S1(DIV),"^",17),10) Line Location: SUB+4
Function Call: WRITE	Prompt: !!?10 Line Location: TOT+2
Function Call: WRITE	Prompt: $J("=======",10) Line Location: TOT+2
Function Call: WRITE	Prompt: $J("=======",12),$J("=======",10),!,"GR TOTAL",?10 Line Location: TOT+3
Function Call: WRITE	Prompt: $J($P(T2,"^",K),10) Line Location: TOT+3
Function Call: WRITE	Prompt: $J($FN($S($P(T2,"^",3)=0&($P(T2,"^",13)=0):0,$P(T2,"^",3)=0:100,$P(T2,"^",13)=0:0,1:($P(T2,"^",3)/($P(T2,"^",3)+$P(T2,"^",13)))*100),"",1),12) Line Location: TOT+4

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOMGRP2

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
DV	EN, PRI
LN	DV+4
MON	DV+2, SUB+1
PRI	EN
RPT	DV, TOT+1
SUB	DV, TOT+1
TOT	PRI+1