| 1 | IBARXEC2 ;ALB/AAS - SEND CONVERSION COMPLETION BULLETIN ; 13-JAN-93
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | N IBX,X
|
|---|
| 6 | % S IBX=$G(^IBE(350.9,1,3)) Q:'$P(IBX,"^",14)
|
|---|
| 7 | ;
|
|---|
| 8 | S XMSUB="Medication Copayment Exemption Conversion Complete"
|
|---|
| 9 | S IBT(1)="The Medication Copayment Exemption Conversion has Completed at "_$P($$SITE^VASITE,"^",2,3)
|
|---|
| 10 | I $D(^%ZOSF("UCI")) X ^("UCI") S IBT(1)=IBT(1)_" ("_Y_")"
|
|---|
| 11 | S IBT(2)=""
|
|---|
| 12 | S Y=$P(IBX,"^",13) D D^DIQ
|
|---|
| 13 | S IBT(3)="Conversion started on: "_Y
|
|---|
| 14 | S Y=$P(IBX,"^",14) D D^DIQ
|
|---|
| 15 | S IBT(4)="Conversion finished on: "_Y
|
|---|
| 16 | S IBT(5)="Conversion was started "_$P(IBX,"^",3)_" time"_$S($P(IBX,"^",3)>1:"s.",1:".")
|
|---|
| 17 | D ELAP^IBARXEC1
|
|---|
| 18 | S IBT(6)=" "
|
|---|
| 19 | S IBT(7)=Y
|
|---|
| 20 | S IBT(8)=" "
|
|---|
| 21 | S X3=10
|
|---|
| 22 | S X=$P(IBX,"^",5),X2=0 D COMMA^%DTC
|
|---|
| 23 | S IBT(9)=" 1. Total Patients Checked == "_X
|
|---|
| 24 | S X=$P(IBX,"^",6),X2=0 D COMMA^%DTC
|
|---|
| 25 | S IBT(10)=" Exempt Patients == "_X
|
|---|
| 26 | S X=$P(IBX,"^",7),X2=0 D COMMA^%DTC
|
|---|
| 27 | S IBT(11)=" Non-Exempt Patients == "_X
|
|---|
| 28 | S IBT(12)=" "
|
|---|
| 29 | S X=$P(IBX,"^",16),X2=0 D COMMA^%DTC
|
|---|
| 30 | S IBT(13)=" 2. Total Number of Rx Charges Checked == "_X
|
|---|
| 31 | S X=$P(IBX,"^",9),X2="0$" D COMMA^%DTC
|
|---|
| 32 | S IBT(14)=" Dollar Amount Checked == "_X
|
|---|
| 33 | S X=$P(IBX,"^",8),X2=0 D COMMA^%DTC
|
|---|
| 34 | S IBT(15)=" No. of Exempt Rx Charges Checked == "_X
|
|---|
| 35 | S X=$P(IBX,"^",10),X2="0$" D COMMA^%DTC
|
|---|
| 36 | S IBT(16)=" Exempt Dollar Amount == "_X
|
|---|
| 37 | S X=$P(IBX,"^",15),X2=0 D COMMA^%DTC
|
|---|
| 38 | S IBT(17)=" No. of Non-Exempt Rx Charges Checked == "_X
|
|---|
| 39 | S X=$P(IBX,"^",11),X2="0$" D COMMA^%DTC
|
|---|
| 40 | S IBT(18)=" Non-Exempt Dollar Amount == "_X
|
|---|
| 41 | S IBT(19)=" "
|
|---|
| 42 | S X=$P(IBX,"^",17),X2=0 D COMMA^%DTC
|
|---|
| 43 | S IBT(20)=" 3. Total Rx Charges Actually Canceled == "_X
|
|---|
| 44 | S X=$P(IBX,"^",12),X2="0$" D COMMA^%DTC
|
|---|
| 45 | S IBT(21)=" Amount Actually Canceled == "_X
|
|---|
| 46 | ;
|
|---|
| 47 | SEND S XMDUZ="INTEGRATED BILLING PACKAGE",XMTEXT="IBT("
|
|---|
| 48 | K XMY S XMN=0
|
|---|
| 49 | S X="G.IB COPAY CONVERSION@ISC-ALBANY.VA.GOV" D INST^XMA21
|
|---|
| 50 | S XMY(DUZ)=""
|
|---|
| 51 | S IBGRP=$P(^IBE(350.9,1,0),"^",9)
|
|---|
| 52 | F IBI=0:0 S IBI=$O(^XMB(3.8,+IBGRP,1,"B",IBI)) Q:'IBI S XMY(IBI)=""
|
|---|
| 53 | D ^XMD
|
|---|
| 54 | K X,Y,IBI,IBT,IBGRP,XMDUZ,XMTEXT,XMY
|
|---|
| 55 | Q
|
|---|
