Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls