IBARXEC2 ;ALB/AAS - SEND CONVERSION COMPLETION BULLETIN ; 13-JAN-93
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
N IBX,X
% S IBX=$G(^IBE(350.9,1,3)) Q:'$P(IBX,"^",14)
;
S XMSUB="Medication Copayment Exemption Conversion Complete"
S IBT(1)="The Medication Copayment Exemption Conversion has Completed at "_$P($$SITE^VASITE,"^",2,3)
I $D(^%ZOSF("UCI")) X ^("UCI") S IBT(1)=IBT(1)_" ("_Y_")"
S IBT(2)=""
S Y=$P(IBX,"^",13) D D^DIQ
S IBT(3)="Conversion started on: "_Y
S Y=$P(IBX,"^",14) D D^DIQ
S IBT(4)="Conversion finished on: "_Y
S IBT(5)="Conversion was started "_$P(IBX,"^",3)_" time"_$S($P(IBX,"^",3)>1:"s.",1:".")
D ELAP^IBARXEC1
S IBT(6)=" "
S IBT(7)=Y
S IBT(8)=" "
S X3=10
S X=$P(IBX,"^",5),X2=0 D COMMA^%DTC
S IBT(9)=" 1. Total Patients Checked == "_X
S X=$P(IBX,"^",6),X2=0 D COMMA^%DTC
S IBT(10)=" Exempt Patients == "_X
S X=$P(IBX,"^",7),X2=0 D COMMA^%DTC
S IBT(11)=" Non-Exempt Patients == "_X
S IBT(12)=" "
S X=$P(IBX,"^",16),X2=0 D COMMA^%DTC
S IBT(13)=" 2. Total Number of Rx Charges Checked == "_X
S X=$P(IBX,"^",9),X2="0$" D COMMA^%DTC
S IBT(14)=" Dollar Amount Checked == "_X
S X=$P(IBX,"^",8),X2=0 D COMMA^%DTC
S IBT(15)=" No. of Exempt Rx Charges Checked == "_X
S X=$P(IBX,"^",10),X2="0$" D COMMA^%DTC
S IBT(16)=" Exempt Dollar Amount == "_X
S X=$P(IBX,"^",15),X2=0 D COMMA^%DTC
S IBT(17)=" No. of Non-Exempt Rx Charges Checked == "_X
S X=$P(IBX,"^",11),X2="0$" D COMMA^%DTC
S IBT(18)=" Non-Exempt Dollar Amount == "_X
S IBT(19)=" "
S X=$P(IBX,"^",17),X2=0 D COMMA^%DTC
S IBT(20)=" 3. Total Rx Charges Actually Canceled == "_X
S X=$P(IBX,"^",12),X2="0$" D COMMA^%DTC
S IBT(21)=" Amount Actually Canceled == "_X
;
SEND S XMDUZ="INTEGRATED BILLING PACKAGE",XMTEXT="IBT("
K XMY S XMN=0
S X="G.IB COPAY CONVERSION@ISC-ALBANY.DOMAIN.EXT" D INST^XMA21
S XMY(DUZ)=""
S IBGRP=$P(^IBE(350.9,1,0),"^",9)
F IBI=0:0 S IBI=$O(^XMB(3.8,+IBGRP,1,"B",IBI)) Q:'IBI S XMY(IBI)=""
D ^XMD
K X,Y,IBI,IBT,IBGRP,XMDUZ,XMTEXT,XMY
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBARXEC2 2285 printed Oct 16, 2024@18:07:50 Page 2
IBARXEC2 ;ALB/AAS - SEND CONVERSION COMPLETION BULLETIN ; 13-JAN-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 NEW IBX,X
% SET IBX=$GET(^IBE(350.9,1,3))
if '$PIECE(IBX,"^",14)
QUIT
+1 ;
+2 SET XMSUB="Medication Copayment Exemption Conversion Complete"
+3 SET IBT(1)="The Medication Copayment Exemption Conversion has Completed at "_$PIECE($$SITE^VASITE,"^",2,3)
+4 IF $DATA(^%ZOSF("UCI"))
XECUTE ^("UCI")
SET IBT(1)=IBT(1)_" ("_Y_")"
+5 SET IBT(2)=""
+6 SET Y=$PIECE(IBX,"^",13)
DO D^DIQ
+7 SET IBT(3)="Conversion started on: "_Y
+8 SET Y=$PIECE(IBX,"^",14)
DO D^DIQ
+9 SET IBT(4)="Conversion finished on: "_Y
+10 SET IBT(5)="Conversion was started "_$PIECE(IBX,"^",3)_" time"_$SELECT($PIECE(IBX,"^",3)>1:"s.",1:".")
+11 DO ELAP^IBARXEC1
+12 SET IBT(6)=" "
+13 SET IBT(7)=Y
+14 SET IBT(8)=" "
+15 SET X3=10
+16 SET X=$PIECE(IBX,"^",5)
SET X2=0
DO COMMA^%DTC
+17 SET IBT(9)=" 1. Total Patients Checked == "_X
+18 SET X=$PIECE(IBX,"^",6)
SET X2=0
DO COMMA^%DTC
+19 SET IBT(10)=" Exempt Patients == "_X
+20 SET X=$PIECE(IBX,"^",7)
SET X2=0
DO COMMA^%DTC
+21 SET IBT(11)=" Non-Exempt Patients == "_X
+22 SET IBT(12)=" "
+23 SET X=$PIECE(IBX,"^",16)
SET X2=0
DO COMMA^%DTC
+24 SET IBT(13)=" 2. Total Number of Rx Charges Checked == "_X
+25 SET X=$PIECE(IBX,"^",9)
SET X2="0$"
DO COMMA^%DTC
+26 SET IBT(14)=" Dollar Amount Checked == "_X
+27 SET X=$PIECE(IBX,"^",8)
SET X2=0
DO COMMA^%DTC
+28 SET IBT(15)=" No. of Exempt Rx Charges Checked == "_X
+29 SET X=$PIECE(IBX,"^",10)
SET X2="0$"
DO COMMA^%DTC
+30 SET IBT(16)=" Exempt Dollar Amount == "_X
+31 SET X=$PIECE(IBX,"^",15)
SET X2=0
DO COMMA^%DTC
+32 SET IBT(17)=" No. of Non-Exempt Rx Charges Checked == "_X
+33 SET X=$PIECE(IBX,"^",11)
SET X2="0$"
DO COMMA^%DTC
+34 SET IBT(18)=" Non-Exempt Dollar Amount == "_X
+35 SET IBT(19)=" "
+36 SET X=$PIECE(IBX,"^",17)
SET X2=0
DO COMMA^%DTC
+37 SET IBT(20)=" 3. Total Rx Charges Actually Canceled == "_X
+38 SET X=$PIECE(IBX,"^",12)
SET X2="0$"
DO COMMA^%DTC
+39 SET IBT(21)=" Amount Actually Canceled == "_X
+40 ;
SEND SET XMDUZ="INTEGRATED BILLING PACKAGE"
SET XMTEXT="IBT("
+1 KILL XMY
SET XMN=0
+2 SET X="G.IB COPAY CONVERSION@ISC-ALBANY.DOMAIN.EXT"
DO INST^XMA21
+3 SET XMY(DUZ)=""
+4 SET IBGRP=$PIECE(^IBE(350.9,1,0),"^",9)
+5 FOR IBI=0:0
SET IBI=$ORDER(^XMB(3.8,+IBGRP,1,"B",IBI))
if 'IBI
QUIT
SET XMY(IBI)=""
+6 DO ^XMD
+7 KILL X,Y,IBI,IBT,IBGRP,XMDUZ,XMTEXT,XMY
+8 QUIT
