source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBARXEC2.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1IBARXEC2 ;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 ;
47SEND 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
Note: See TracBrowser for help on using the repository browser.