- 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@DOMAIN.NAME" 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
- 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@DOMAIN.NAME"
- 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
