source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBYBPT.m@ 810

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

initial load of FOIAVistA 6/30/08 version
File size: 3.1 KB
Line 
1IBYBPT ;ALB/ARH - PATCH IB*2*27 POST-INITIALIZATION ; 16-DEC-94
2 ;;Version 2.0 ; INTEGRATED BILLING ;**27**; 21-MAR-94
3 ;
4EN ; Update Billing Parameters to activate CHAMPVA Billing.
5 ;
6 D LT ; Install the IB CHARGES List Template.
7 D ER ; Add new error for CHAMPVA Rate and Insurer mismatch
8 ;
9 I '$$RERUN^IBYBPRE() D G ENQ
10 .I $G(IBCTP),$G(IBCCV),$G(IBCCS),$G(IBACN),$G(IBACC),$G(IBACU),$G(IBRTP),$G(IBRCV) D Q
11 ..W !!,">>> Initializing Billing Parameters for CHAMPVA Billing..."
12 ..D TP ; Update Third Party rate types
13 ..D FP ; Update Patient Billing action type; add new subsistence rate
14 .W !!,">>> Unable to initialize your CHAMPVA billing parameters!"
15 .W !," Please call your ISC for assistance."
16 ;
17 W !!,">>> It appears as if you are re-running the initialization."
18 W !," The CHAMPVA Billing parameters were not updated."
19 ;
20ENQ K IBCTP,IBCCV,IBCCS,IBACN,IBACC,IBACU,IBRTP,IBRCV
21 Q
22 ;
23 ;
24TP ; Update Third Party rate types with the AR Category.
25 S DA=IBRTP,DIE="^DGCR(399.3,",DR=".03///@;.06////"_IBCTP D ^DIE
26 S DA=IBRCV,DIE="^DGCR(399.3,",DR=".03///@;.06////"_IBCCV D ^DIE
27 W !!," >> The two CHAMPVA RATE TYPES have been activated and linked to an",!," ACCOUNTS RECEIVABLE CATEGORY..."
28 K DA,DIE,DR
29 Q
30 ;
31FP ; Update Patient Billing action types, and add the new subsistance rate.
32 F IBI=IBACN,IBACC,IBACU S DA=IBI,DIE="^IBE(350.1,",DR=".03////"_IBCCS D ^DIE K DIE,DA,DR
33 W !," >> The Patient Billing CHAMPVA Action Types have been updated..."
34 ;
35 S X="CHAMPVA PER DIEM",DIC(0)="",DIC="^IBE(350.2," K DD,DO D FILE^DICN
36 S DA=+Y,DIE=DIC,DR=".02////2941001;.03////"_IBACN_";.04////9.50" D ^DIE
37 W !," >> Added new CHAMPVA Subsistence rate, effective 10/1/94..."
38 K DA,DIE,DR,X,Y,IBI
39 Q
40 ;
41 ;
42ER ; Update entry in IB ERROR file for CHAMPVA Rate Type and Insurer's Type of Coverage not both CHAMPVA
43 S DIE="^IBE(350.8,",DA=85,DR=".01///IB CHAMPVA RATE/INSURER;.02///Rate Type and Primary Carrier's Type of Coverage do not both match CHAMPVA." D ^DIE
44 W !!,">>> IB085 - CHAMPVA Rate/Insurer match error added to IB ERROR file."
45 K DIE,DA,DR,X,Y
46 Q
47 ;
48LT ; Install the IB CHARGES List Template.
49 W !!,">>> Installing List Template..."
50 W !,"'IB CHARGES' List Template..."
51 S DA=$O(^SD(409.61,"B","IB CHARGES",0)),DIK="^SD(409.61," D ^DIK:DA
52 K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IB CHARGES" D FILE^DICN S VALM=+Y
53 I VALM>0 D
54 .S ^SD(409.61,VALM,0)="IB CHARGES^1^1^80^5^14^1^1^Charge^IBACM1 MENU^Charges^1^32"
55 .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
56 .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACM"",$J)"
57 .S ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
58 .S ^SD(409.61,VALM,"COL",1,0)="CHARGE^71^9^Charge"
59 .S ^SD(409.61,VALM,"COL",2,0)="FDATE^4^9^Bill From"
60 .S ^SD(409.61,VALM,"COL",3,0)="ENTRY^25^23^Charge Type"
61 .S ^SD(409.61,VALM,"COL",4,0)="STATUS^58^12^Status"
62 .S ^SD(409.61,VALM,"COL",5,0)="CHG#^1^3"
63 .S ^SD(409.61,VALM,"COL",6,0)="BILL#^49^8^Bill #"
64 .S ^SD(409.61,VALM,"COL",7,0)="TDATE^15^8^Bill To"
65 .S ^SD(409.61,VALM,"FNL")="D FNL^IBECEA"
66 .S ^SD(409.61,VALM,"HDR")="D HDR^IBECEA"
67 .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
68 .S ^SD(409.61,VALM,"INIT")="D INIT^IBECEA"
69 .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
70 .W "Filed."
71 ;
72 K DIC,DIK,VALM,X,DA
73 Q
Note: See TracBrowser for help on using the repository browser.