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 Total: 2

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

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