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

Package: Outpatient Pharmacy

Routine: PSOMGMN3


Information

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

Source Information

Source file <PSOMGMN3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Outpatient Pharmacy 1 (SUB,TOT)^PSOMGM31  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSOMGM31  PSOMGMN1  PSOMGMRP  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC DV+8
SUB^PSOMGM31 DV
TOT^PSOMGM31 PRI+1

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",!?57,"PRESCRIPTION COSTS",?123,"PAGE ",PG
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: $J($P("^AVG^AVG^AVG^AVG COST^AVG^TOT^TOT^TOT^AVG PARTIC","^",K),13)
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: !,"DATE",?13
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: $J($P("STAFF^FEE^RX^PER EQ FL^METH^RX^METH^PART PHARM^PHARM RX","^",K),13)
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !!,"QUARTER "_QTR_" OUTPATIENT PRESCRIPTION COSTS/PATIENT = $"_$FN($S(QCST=0!(QMREQ=0):0,1:QCST/QMREQ),"",2)
  • Line Location: DV+6
Function Call: WRITE
  • Prompt: !!,"QUARTERLY OUTPATIENT PRESCRIPTION COST/PATIENT NOT AVAILABLE"
  • Line Location: DV+7
Function Call: WRITE
  • Prompt: !!!?17,"FINISHED PRINTING ON: "
  • Line Location: DV+8
Function Call: WRITE
  • Prompt: Y,@IOF
  • Line Location: DV+8
Function Call: WRITE
  • Prompt: !,$E($P(PRV,"^",2),4,5)_"/"_$E($P(PRV,"^",2),2,3),?13,$J($FN($S($P(M2(PRV),"^",4)=0!($P(M3(PRV),"^",2)=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),$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+2
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+3
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+4

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DV EN, PRI
LN DV+5
MON DV+3
PRI EN
RPT DV

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DV+8
>> ANS EN, DV+8
AVGFEE LN+2*!
AVGST LN+1*!
>> BEG DV*, DV+2*
>> CNT EN*, RPT+1*
>> DIV EN, RPT+2, PRI*, DV, DV+1, DV+2, DV+3, DV+4, LN, LN+1
, LN+2, LN+3, LN+4, LN+5, LN+6
>> DVMN DV+1*, DV+2, DV+3, LN, LN+1, LN+2, LN+3, LN+4
>> EDT RPT+2, DV
IO RPT+1
IOF RPT+1, DV+8
IOSL DV
>> K RPT+3*, RPT+4*, RPT+5*, LN*, LN+3*, LN+4*
>> M1( DV+2*, DV+3*, LN+3*, MON+2, MON+3
>> M2( DV+2*, DV+3*, LN+4*, MON+1, MON+2, MON+4
>> M3( DV+2*, DV+3*, LN*, LN+1*, LN+2*, MON+1, MON+2, MON+3, MON+4
>> PDATE DV*, DV+1, DV+2, DV+3, DV+4, LN, LN+1, LN+2, LN+3, LN+4
, LN+5, LN+6
>> PG EN*, RPT+1*, PRI*
>> PRT RPT+2, DV*
>> PRV DV+2*, DV+3*, MON+1, MON+2, MON+3, MON+4
>> Q1 LN+5
>> Q2 LN+5
>> QCST PRI*, DV+6, LN+5*
>> QMREQ PRI*, DV+6, LN+5*
>> QTCST PRI*, LN+6*
>> QTMREQ PRI*, LN+6*
>> QTR DV+6, LN+5
>> S1( EN*, PRI*, LN+3*
>> S2( EN*, PRI*, LN+4*
>> S3( DV*, LN*, LN+1*, LN+2*
>> SDT RPT+2, DV, LN+5
>> T1 EN*, LN+3*
>> T2 EN*, PRI*, LN+4*
>> T3 PRI*, LN*, LN+1*, LN+2*
>> Y DV+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All