275 lines
8.8 KiB
Mathematica
275 lines
8.8 KiB
Mathematica
PSUV12 ;BIR/DAM - IV AMIS Summary Message II ;04 MAR 2004
|
|
;;4.0;PHARMACY BENEFITS MANAGEMENT;**4**;MARCH, 2005
|
|
;
|
|
;No DBIA's required
|
|
;
|
|
EN ;Entry point for MailMan message
|
|
;Called from PSUV11
|
|
;
|
|
;Construct IV AMIS summary message
|
|
;
|
|
S Y=PSUSDT X ^DD("DD") S PSUDTS=Y
|
|
S Y=PSUEDT X ^DD("DD") S PSUDTE=Y
|
|
S PSUDIV=PSUSNDR D GETDIV^PSUV3
|
|
S AMIS(1)="IV AMIS Summary for "_PSUDTS_" through "_PSUDTE_" for "_PSUDIVNM
|
|
;
|
|
S AMIS(2)="" ;Blank line
|
|
;
|
|
I PSUAIS=1 S AMIS(3)="NO IV AMIS Summary data to report" Q
|
|
;
|
|
S AMIS(3)=" NET Cost/"
|
|
;
|
|
S AMIS(4)=" LVPs LVPs LVPs LVPs LVPs Total NET LVPs"
|
|
;
|
|
S AMIS(5)="Division DISP RET DES CAN DISP Cost DISP"
|
|
;
|
|
S $P(AMIS(6),"-",78)="" ;Separator bar
|
|
;
|
|
S PSULN=7
|
|
;
|
|
;Construct LVP DATA lines with spacing
|
|
S PSUDIV=0
|
|
F S PSUDIV=$O(LVP(PSUDIV)) Q:PSUDIV="" D
|
|
.D GETDIV^PSUV3
|
|
.S PSULINE=""
|
|
.S $E(PSULINE,1,17)=PSUDIVNM
|
|
.S $E(PSULINE,18,24)=$J($P(LVP(PSUDIV),U,1),7)
|
|
.S $E(PSULINE,25,31)=$J($P(LVP(PSUDIV),U,2),7)
|
|
.S $E(PSULINE,32,38)=$J($P(LVP(PSUDIV),U,3),7)
|
|
.S $E(PSULINE,39,45)=$J($P(LVP(PSUDIV),U,4),7)
|
|
.S $E(PSULINE,46,52)=$J($P(LVP(PSUDIV),U,5),7)
|
|
.S $E(PSULINE,54,55)="$"
|
|
.S $E(PSULINE,56,64)=$J($P(LVP(PSUDIV),U,6),9)
|
|
.S $E(PSULINE,66,67)="$"
|
|
.S $E(PSULINE,68,75)=$J($P(LVP(PSUDIV),U,7),8)
|
|
.;End line
|
|
.S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
M LVP("TOT")=^XTMP(PSUIVSUB,"LVPTOT") ;LVP Totals array
|
|
;Construct LVP Totals line
|
|
S PSULINE=""
|
|
S $E(PSULINE,1,17)="Total"
|
|
S $E(PSULINE,18,24)=$J($P(LVP("TOT"),U,1),7)
|
|
S $E(PSULINE,25,31)=$J($P(LVP("TOT"),U,2),7)
|
|
S $E(PSULINE,32,38)=$J($P(LVP("TOT"),U,3),7)
|
|
S $E(PSULINE,39,45)=$J($P(LVP("TOT"),U,4),7)
|
|
S $E(PSULINE,46,52)=$J($P(LVP("TOT"),U,5),7)
|
|
S $E(PSULINE,54,55)="$"
|
|
S $E(PSULINE,56,64)=$J($P(LVP("TOT"),U,6),9)
|
|
S $E(PSULINE,66,67)="$"
|
|
S $E(PSULINE,68,75)=$J($P(LVP("TOT"),U,7),8)
|
|
;End line
|
|
S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
F PSULN=PSULN:1:(PSULN+4) S AMIS(PSULN)="" ;Blank lines
|
|
S PSULN=PSULN+1
|
|
;
|
|
;
|
|
S AMIS(PSULN)=" NET Cost/"
|
|
S PSULN=PSULN+1
|
|
;
|
|
S AMIS(PSULN)=" IVPBs IVPBs IVPBs IVPBs IVPBs Total NET IVPBs"
|
|
;
|
|
S PSULN=PSULN+1
|
|
S AMIS(PSULN)="Division DISP RET DES CAN DISP Cost DISP"
|
|
;
|
|
S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
;Construct IVPB DATA lines with spacing
|
|
S PSUDIV=0
|
|
F S PSUDIV=$O(PB(PSUDIV)) Q:PSUDIV="" D
|
|
.D GETDIV^PSUV3
|
|
.S PSULINE=""
|
|
.S $E(PSULINE,1,17)=PSUDIVNM
|
|
.S $E(PSULINE,18,24)=$J($P(PB(PSUDIV),U,1),7)
|
|
.S $E(PSULINE,25,31)=$J($P(PB(PSUDIV),U,2),7)
|
|
.S $E(PSULINE,32,38)=$J($P(PB(PSUDIV),U,3),7)
|
|
.S $E(PSULINE,39,45)=$J($P(PB(PSUDIV),U,4),7)
|
|
.S $E(PSULINE,46,52)=$J($P(PB(PSUDIV),U,5),7)
|
|
.S $E(PSULINE,54,55)="$"
|
|
.S $E(PSULINE,56,64)=$J($P(PB(PSUDIV),U,6),9)
|
|
.S $E(PSULINE,66,67)="$"
|
|
.S $E(PSULINE,68,75)=$J($P(PB(PSUDIV),U,7),8)
|
|
.;End line
|
|
.S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
M PB("TOT")=^XTMP(PSUIVSUB,"PBTOT") ;IVPB Totals array
|
|
;Construct PB Totals line
|
|
S PSULINE=""
|
|
S $E(PSULINE,1,17)="Total"
|
|
S $E(PSULINE,18,24)=$J($P(PB("TOT"),U,1),7)
|
|
S $E(PSULINE,25,31)=$J($P(PB("TOT"),U,2),7)
|
|
S $E(PSULINE,32,38)=$J($P(PB("TOT"),U,3),7)
|
|
S $E(PSULINE,39,45)=$J($P(PB("TOT"),U,4),7)
|
|
S $E(PSULINE,46,52)=$J($P(PB("TOT"),U,5),7)
|
|
S $E(PSULINE,54,55)="$"
|
|
S $E(PSULINE,56,64)=$J($P(PB("TOT"),U,6),9)
|
|
S $E(PSULINE,66,67)="$"
|
|
S $E(PSULINE,68,75)=$J($P(PB("TOT"),U,7),8)
|
|
;End line
|
|
S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
F PSULN=PSULN:1:(PSULN+4) S AMIS(PSULN)="" ;Blank lines
|
|
S PSULN=PSULN+1
|
|
;
|
|
S AMIS(PSULN)=" NET Cost/"
|
|
S PSULN=PSULN+1
|
|
;
|
|
S AMIS(PSULN)=" TPNs TPNs TPNs TPNs TPNs Total NET TPNs"
|
|
;
|
|
S PSULN=PSULN+1
|
|
S AMIS(PSULN)="Division DISP RET DES CAN DISP Cost DISP"
|
|
;
|
|
S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
;Construct TPN DATA lines with spacing
|
|
S PSUDIV=0
|
|
F S PSUDIV=$O(TPN(PSUDIV)) Q:PSUDIV="" D
|
|
.D GETDIV^PSUV3
|
|
.S PSULINE=""
|
|
.S $E(PSULINE,1,17)=PSUDIVNM
|
|
.S $E(PSULINE,18,24)=$J($P(TPN(PSUDIV),U,1),7)
|
|
.S $E(PSULINE,25,31)=$J($P(TPN(PSUDIV),U,2),7)
|
|
.S $E(PSULINE,32,38)=$J($P(TPN(PSUDIV),U,3),7)
|
|
.S $E(PSULINE,39,45)=$J($P(TPN(PSUDIV),U,4),7)
|
|
.S $E(PSULINE,46,52)=$J($P(TPN(PSUDIV),U,5),7)
|
|
.S $E(PSULINE,54,55)="$"
|
|
.S $E(PSULINE,56,64)=$J($P(TPN(PSUDIV),U,6),9)
|
|
.S $E(PSULINE,66,67)="$"
|
|
.S $E(PSULINE,68,75)=$J($P(TPN(PSUDIV),U,7),8)
|
|
.;End line
|
|
.S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
M TPN("TOT")=^XTMP(PSUIVSUB,"TPNTOT") ;TPN Totals array
|
|
;Construct TPN Totals line
|
|
S PSULINE=""
|
|
S $E(PSULINE,1,17)="Total"
|
|
S $E(PSULINE,18,24)=$J($P(TPN("TOT"),U,1),7)
|
|
S $E(PSULINE,25,31)=$J($P(TPN("TOT"),U,2),7)
|
|
S $E(PSULINE,32,38)=$J($P(TPN("TOT"),U,3),7)
|
|
S $E(PSULINE,39,45)=$J($P(TPN("TOT"),U,4),7)
|
|
S $E(PSULINE,46,52)=$J($P(TPN("TOT"),U,5),7)
|
|
S $E(PSULINE,54,55)="$"
|
|
S $E(PSULINE,56,64)=$J($P(TPN("TOT"),U,6),9)
|
|
S $E(PSULINE,66,67)="$"
|
|
S $E(PSULINE,68,75)=$J($P(TPN("TOT"),U,7),8)
|
|
;End line
|
|
S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
F PSULN=PSULN:1:(PSULN+4) S AMIS(PSULN)="" ;Blank lines
|
|
S PSULN=PSULN+1
|
|
;
|
|
S AMIS(PSULN)=" NET Cost/"
|
|
S PSULN=PSULN+1
|
|
;
|
|
S AMIS(PSULN)=" CHEMO CHEMO CHEMO CHEMO CHEMO Total NET CHEMOs"
|
|
;
|
|
S PSULN=PSULN+1
|
|
S AMIS(PSULN)="Division DISP RET DES CAN DISP Cost DISP"
|
|
;
|
|
S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
;Construct CHEMO DATA lines with spacing
|
|
S PSUDIV=0
|
|
F S PSUDIV=$O(CH(PSUDIV)) Q:PSUDIV="" D
|
|
.D GETDIV^PSUV3
|
|
.S PSULINE=""
|
|
.S $E(PSULINE,1,17)=PSUDIVNM
|
|
.S $E(PSULINE,18,24)=$J($P(CH(PSUDIV),U,1),7)
|
|
.S $E(PSULINE,25,31)=$J($P(CH(PSUDIV),U,2),7)
|
|
.S $E(PSULINE,32,38)=$J($P(CH(PSUDIV),U,3),7)
|
|
.S $E(PSULINE,39,45)=$J($P(CH(PSUDIV),U,4),7)
|
|
.S $E(PSULINE,46,52)=$J($P(CH(PSUDIV),U,5),7)
|
|
.S $E(PSULINE,54,55)="$"
|
|
.S $E(PSULINE,56,64)=$J($P(CH(PSUDIV),U,6),9)
|
|
.S $E(PSULINE,66,67)="$"
|
|
.S $E(PSULINE,68,75)=$J($P(CH(PSUDIV),U,7),8)
|
|
.;End line
|
|
.S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
M CH("TOT")=^XTMP(PSUIVSUB,"CHTOT") ;CHEMO Totals array
|
|
;Construct CHEMO Totals line
|
|
S PSULINE=""
|
|
S $E(PSULINE,1,17)="Total"
|
|
S $E(PSULINE,18,24)=$J($P(CH("TOT"),U,1),7)
|
|
S $E(PSULINE,25,31)=$J($P(CH("TOT"),U,2),7)
|
|
S $E(PSULINE,32,38)=$J($P(CH("TOT"),U,3),7)
|
|
S $E(PSULINE,39,45)=$J($P(CH("TOT"),U,4),7)
|
|
S $E(PSULINE,46,52)=$J($P(CH("TOT"),U,5),7)
|
|
S $E(PSULINE,54,55)="$"
|
|
S $E(PSULINE,56,64)=$J($P(CH("TOT"),U,6),9)
|
|
S $E(PSULINE,66,67)="$"
|
|
S $E(PSULINE,68,75)=$J($P(CH("TOT"),U,7),8)
|
|
;End line
|
|
S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
F PSULN=PSULN:1:(PSULN+4) S AMIS(PSULN)="" ;Blank lines
|
|
S PSULN=PSULN+1
|
|
;
|
|
;
|
|
S AMIS(PSULN)=" NET Cost/"
|
|
S PSULN=PSULN+1
|
|
;
|
|
S AMIS(PSULN)=" SYRs SYRs SYRs SYRs SYRs Total NET SYRs"
|
|
;
|
|
S PSULN=PSULN+1
|
|
S AMIS(PSULN)="Division DISP RET DES CAN DISP Cost DISP"
|
|
;
|
|
S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
;Construct SYRINGE DATA lines with spacing
|
|
S PSUDIV=0
|
|
F S PSUDIV=$O(SYR(PSUDIV)) Q:PSUDIV="" D
|
|
.D GETDIV^PSUV3
|
|
.S PSULINE=""
|
|
.S $E(PSULINE,1,17)=PSUDIVNM
|
|
.S $E(PSULINE,18,24)=$J($P(SYR(PSUDIV),U,1),7)
|
|
.S $E(PSULINE,25,31)=$J($P(SYR(PSUDIV),U,2),7)
|
|
.S $E(PSULINE,32,38)=$J($P(SYR(PSUDIV),U,3),7)
|
|
.S $E(PSULINE,39,45)=$J($P(SYR(PSUDIV),U,4),7)
|
|
.S $E(PSULINE,46,52)=$J($P(SYR(PSUDIV),U,5),7)
|
|
.S $E(PSULINE,54,55)="$"
|
|
.S $E(PSULINE,56,64)=$J($P(SYR(PSUDIV),U,6),9)
|
|
.S $E(PSULINE,66,67)="$"
|
|
.S $E(PSULINE,68,75)=$J($P(SYR(PSUDIV),U,7),8)
|
|
.;End line
|
|
.S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
S $P(AMIS(PSULN),"-",78)="" S PSULN=PSULN+1 ;Separator bar
|
|
;
|
|
M SYR("TOT")=^XTMP(PSUIVSUB,"SYRTOT") ;SYRINGE Totals array
|
|
;Construct SYRINGE Totals line
|
|
S PSULINE=""
|
|
S $E(PSULINE,1,17)="Total"
|
|
S $E(PSULINE,18,24)=$J($P(SYR("TOT"),U,1),7)
|
|
S $E(PSULINE,25,31)=$J($P(SYR("TOT"),U,2),7)
|
|
S $E(PSULINE,32,38)=$J($P(SYR("TOT"),U,3),7)
|
|
S $E(PSULINE,39,45)=$J($P(SYR("TOT"),U,4),7)
|
|
S $E(PSULINE,46,52)=$J($P(SYR("TOT"),U,5),7)
|
|
S $E(PSULINE,54,55)="$"
|
|
S $E(PSULINE,56,64)=$J($P(SYR("TOT"),U,6),9)
|
|
S $E(PSULINE,66,67)="$"
|
|
S $E(PSULINE,68,75)=$J($P(SYR("TOT"),U,7),8)
|
|
;End line
|
|
S AMIS(PSULN)=PSULINE S PSULN=PSULN+1
|
|
;
|
|
F PSULN=PSULN:1:(PSULN+4) S AMIS(PSULN)="" ;Blank lines
|
|
S PSULN=PSULN+1
|
|
Q
|