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: PSOMGRP3

Package: Outpatient Pharmacy

Routine: PSOMGRP3


Information

PSOMGRP3 ;BHAM ISC/JMB - DAILY MANAGEMENT COST REPORT ;3/19/93

Source Information

Source file <PSOMGRP3.m>

Entry Points

Name Comments DBIA/ICR reference
EN
RPT
PRI
DV
LN
MON
SUB

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",!?57,"PRESCRIPTION COSTS",?123,"PAGE ",PG
  • Line Location: RPT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: $J($P("^AVG^AVG^AVG^AVG COST^AVG^TOT^TOT^TOT^AVG PARTIC","^",K),13)
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !,"DATE",?13
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: $J($P("STAFF^FEE^RX^PER EQ FL^METH^RX^METH^PART PHARM^PHARM RX","^",K),13)
  • 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+7
Function Call: WRITE
  • Prompt: Y,@IOF
  • Line Location: DV+7
Function Call: WRITE
  • Prompt: $J(+$P($G(^PS(59.12,PDATE,3,DIV,0)),"^",K),13)
  • Line Location: LN+0
Function Call: WRITE
  • Prompt: !?13
  • Line Location: MON+0
Function Call: WRITE
  • Prompt: $J("-------",13)
  • Line Location: MON+0
Function Call: WRITE
  • Prompt: !,"MON TOTAL",?13,$J($FN($S($P(M3(PRV),"^",2)=0!($P(M2(PRV),"^",4)=0):0,1:($P(M3(PRV),"^",2)/$P(M2(PRV),"^",4))),"",2),13)
  • Line Location: MON+1
Function Call: WRITE
  • Prompt: $J($FN($S($P(M2(PRV),"^",3)=0!($P(M3(PRV),"^",3)=0):0,1:$P(M3(PRV),"^",3)/$P(M2(PRV),"^",3)),"",2),13)
  • Line Location: MON+2
Function Call: WRITE
  • Prompt: $J($FN($S($P(M3(PRV),"^",7)=0!($P(M1(PRV),"^",12)=0):0,1:($P(M3(PRV),"^",7)/$P(M1(PRV),"^",12))),"",2),13)
  • Line Location: MON+3
Function Call: WRITE
  • Prompt: $J($FN($S($P(M3(PRV),"^",7)=0!($P(M1(PRV),"^",10)=0):0,1:$P(M3(PRV),"^",7)/$P(M1(PRV),"^",10)),"",2),13),$J($FN($S($P(M3(PRV),"^",8)=0!($P(M1(PRV),"^",11)=0):0,1:$P(M3(PRV),"^",8)/$P(M1(PRV),"^",11)),"",2),13)
  • Line Location: MON+4
Function Call: WRITE
  • Prompt: $J($FN($P(M3(PRV),"^",7),"",2),13),$J($FN($P(M3(PRV),"^",8),"",2),13),$J($FN($P(M3(PRV),"^",9),"",2),13),$J($FN($S($P(M3(PRV),"^",9)=0!($P(M2(PRV),"^",13)=0):0,1:$P(M3(PRV),"^",9)/$P(M2(PRV),"^",13)),"",2),13),!
  • Line Location: MON+5
Function Call: WRITE
  • Prompt: !?13
  • Line Location: SUB+0
Function Call: WRITE
  • Prompt: $J("=======",13)
  • Line Location: SUB+0
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)
  • Line Location: SUB+2
Function Call: WRITE
  • Prompt: $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)
  • Line Location: SUB+5
Function Call: WRITE
  • Prompt: $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+6
Info |  Source |  Entry Points |  Interaction Calls