Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Local Variables | All

Print Page as PDF

Routine: PSOMGM31

Package: Outpatient Pharmacy

Routine: PSOMGM31

Information

PSOMGM31 ;BHAM ISC/JMB - MONTHLY MANAGEMENT PRESCRIPTION COSTS REPORT CONTD ; 3/19/93

Source Information

Source file <PSOMGM31.m>

Call Graph

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Outpatient Pharmacy	1	(MON,RPT)^PSOMGMN3
VA FileMan	1	NOW^%DTC

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action

^A

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

^O

limited protocol

^LP

run routine

^RR

broker

^B

edit

^E

server

^Se

print

^P

screenman

^SM

inquire

^I

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOMGMN3

Entry Points

Name	Comments	DBIA/ICR reference
SUB	;PRINT SUB TOTALS
TOT	;PRINT GRAND TOTALS

External References

Name	Field # of Occurrence
NOW^%DTC	TOT+19
MON^PSOMGMN3	SUB+1
RPT^PSOMGMN3	TOT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?13 Line Location: SUB+1
Function Call: WRITE	Prompt: $J("=======",13) Line Location: SUB+1
Function Call: WRITE	Prompt: $J($FN($S($P(S2(DIV),"^",3)=0!($P(S3(DIV),"^",3)=0):0,1:$P(S3(DIV),"^",3)/$P(S2(DIV),"^",3)),"",2),13),$J($FN($S($P(S3(DIV),"^",7)=0!($P(S1(DIV),"^",12)=0):0,1:($P(S3(DIV),"^",7)/$P(S1(DIV),"^",12))),"",2),13) Line Location: SUB+3
Function Call: WRITE	Prompt: $J($FN($S($P(S3(DIV),"^",7)=0!($P(S1(DIV),"^",10)=0):0,1:$P(S3(DIV),"^",7)/$P(S1(DIV),"^",10)),"",2),13),$J($FN($S($P(S3(DIV),"^",8)=0!($P(S1(DIV),"^",11)=0):0,1:$P(S3(DIV),"^",8)/$P(S1(DIV),"^",11)),"",2),13) Line Location: SUB+4
Function Call: WRITE	Prompt: $J($FN($P(S3(DIV),"^",7),"",2),13),$J($FN($P(S3(DIV),"^",8),"",2),13),$J($FN($P(S3(DIV),"^",9),"",2),13),$J($FN($S($P(S3(DIV),"^",9)=0!($P(S2(DIV),"^",13)=0):0,1:$P(S3(DIV),"^",9)/$P(S2(DIV),"^",13)),"",2),13) Line Location: SUB+5
Function Call: WRITE	Prompt: !?13 Line Location: TOT+2
Function Call: WRITE	Prompt: $J("=======",13) Line Location: TOT+2
Function Call: WRITE	Prompt: !,"GR TOTAL",?13 Line Location: TOT+3
Function Call: WRITE	Prompt: $J($FN($S($P(T2,"^",4)=0!($P(T3,"^",2)=0):0,1:$P(T3,"^",2)/$P(T2,"^",4)),"",2),13) Line Location: TOT+3
Function Call: WRITE	Prompt: $J($FN($S($P(S2(DIV),"^",4)=0!($P(T3,"^",2)=0):0,1:($P(SUBS(DIV),"^",4)*$P(T3,"^",2))/$P(S2(DIV),"^",4)),"",2),13) Line Location: TOT+9
Function Call: WRITE	Prompt: $J($FN($P(T3,"^",7),"",2),13),$J($FN($P(T3,"^",8),"",2),13),$J($FN($P(T3,"^",9),"",2),13) Line Location: TOT+14
Function Call: WRITE	Prompt: $J($FN($S($P(T3,"^",9)=0!($P(T2,"^",13)=0):0,1:$P(T3,"^",9)/$P(T2,"^",13)),"",2),13) Line Location: TOT+15
Function Call: WRITE	Prompt: $J($FN($S($P(T3,"^",9)=0!($P(S2(DIV),"^",13)=0):0,1:$P(T3,"^",9)/$P(S2(DIV),"^",13)),"",2),13) Line Location: TOT+16
Function Call: WRITE	Prompt: !!,"QUARTER "_QTR_" OUTPATIENT PRESCRIPTION COSTS/PATIENT = $"_$FN($S(QTCST=0!(QTMREQ=0):0,1:QTCST/QTMREQ),"",2) Line Location: TOT+17
Function Call: WRITE	Prompt: !!,"QUARTERLY OUTPATIENT PRESCRIPTION COST/PATIENT NOT AVAILABLE" Line Location: TOT+18
Function Call: WRITE	Prompt: !!!?17,"FINISHED PRINTING ON: " Line Location: TOT+19
Function Call: WRITE	Prompt: Y,@IOF Line Location: TOT+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TOT+19
^PS(59 - [#59]	SUB+2, TOT+1

Label References

Name	Line Occurrences
SUB	TOT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TOT+19
>> ANS	TOT+3, TOT+15
>> DIV	SUB+2, SUB+3, SUB+4, SUB+5, TOT+1*, TOT+9, TOT+10, TOT+11, TOT+12, TOT+13 , TOT+16
IOF	TOT+19
>> K	SUB+1, TOT+2
>> PRT	SUB+1, SUB+2, TOT+1*
>> QTCST	TOT+17
>> QTMREQ	TOT+17
>> QTR	TOT+17
>> S1(	SUB+3, SUB+4, TOT+11, TOT+12, TOT+13
>> S2(	SUB+2, SUB+3, SUB+5, TOT+9, TOT+10, TOT+16
>> S3(	SUB+2, SUB+3, SUB+4, SUB+5
>> SUBS(	TOT+9
>> T1	TOT+5, TOT+6, TOT+7
>> T2	TOT+3, TOT+4, TOT+15
>> T3	TOT+3, TOT+4, TOT+5, TOT+6, TOT+7, TOT+9, TOT+10, TOT+11, TOT+12, TOT+13 , TOT+14, TOT+15, TOT+16
>> Y	TOT+19*

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Local Variables | All