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

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

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1IBY280PR ;ALB/TMK - IB*2*280 PRE-INSTALL ;12-AUG-04
2 ;;2.0;INTEGRATED BILLING;**280**;21-MAR-94
3 ;
4 N INS,IBX,DIC,DIE,DIK,DA,DR,Y,X
5 D BMES^XPDUTL("Pre-Installation Updates")
6 ;
7 D BMES^XPDUTL("Restore remote member in mail group MCR")
8 N IBMCR,IBMCH,DLAYGO,DIC,DIK,DA,DO,DD,Z,Z0 ; IA 4439
9 S IBMCR=+$O(^XMB(3.8,"B","MCR",0)),IBMCH=+$O(^XMB(3.8,"B","MCH",0)) S Z=0 F S Z=$O(^XMB(3.8,IBMCH,6,Z)) Q:'Z S Z0=$P($G(^XMB(3.8,IBMCH,6,Z,0)),U) I Z0'="" D
10 . I '$D(^XMB(3.8,IBMCR,6,"B",$E(Z0,1,30))) D
11 .. S DLAYGO=3.812,DIC(0)="L",X=Z0,DA(1)=IBMCR,DIC="^XMB(3.8,"_DA(1)_",6," D FILE^DICN K DO,DD,DA,DLAYGO,DIC
12 ;
13 D BMES^XPDUTL("Updating/removing output formatter records")
14 ;
15 ; Make CI1-7 data element allow local override
16 S DA=1316,DIE="^IBA(364.6,",DR=".07////1" D ^DIE
17 ;
18 ; Delete entries 158/210 left over from changes to patch 232
19 F DA=158,210 S DIK="^IBA(364.7," D ^DIK
20 ;
21 ; Remove FL56 data from transmission file
22 F DA=906:1:910 D
23 . S DIE="^IBA(364.7,",DR=".03////5;1///K IBXDATA" D ^DIE
24 . S IBX(1)="Data is no longer transmitted."
25 . D WP^DIE(364.7,DA_",",3,"","IBX")
26 ;
27 D ENDST
28 ;
29 D BMES^XPDUTL("Update Provider ID types")
30 ; Correct X12 codes for provider ID types
31 S IBX=0
32 F S IBX=$O(^IBE(355.97,IBX)) Q:+IBX=0 D
33 . Q:'$D(^IBE(355.97,IBX,0))
34 . S INS=$P(^IBE(355.97,IBX,0),"^",1)
35 . Q:INS=""
36 . I INS["CROSS" S $P(^IBE(355.97,IBX,0),"^",3)="1A"
37 . I INS["SHIELD" S $P(^IBE(355.97,IBX,0),"^",3)="1B"
38 . I INS["CHAMPUS"!(INS["TRICARE") S $P(^IBE(355.97,IBX,0),"^",3)="1H" I INS["CHAMPUS" S DA=IBX,DR=".01////TRICARE ID",DIE="^IBE(355.97," D ^DIE
39 . I INS["COMMER" S $P(^IBE(355.97,IBX,0),"^",3)="G2"
40 . I INS["CLIA" S $P(^IBE(355.97,IBX,0),"^",3)="X4"
41 . I INS["MEDICARE" S $P(^IBE(355.97,IBX,0),"^",3)="1C"
42 . I INS["TAX" S $P(^IBE(355.97,IBX,0),"^",3)="24"
43 . I INS["NETWORK" S $P(^IBE(355.97,IBX,0),"^",3)="N5"
44 . I INS["UPIN" S $P(^IBE(355.97,IBX,0),"^",3)="1G",$P(^(0),U,2)=0
45 . I INS["PPO" S $P(^IBE(355.97,IBX,0),"^",3)="B3"
46 . I INS["HMO" S $P(^IBE(355.97,IBX,0),"^",3)="BQ"
47 . I INS["SOCIAL" S $P(^IBE(355.97,IBX,0),"^",3)="SY"
48 . I INS["STATE" S $P(^IBE(355.97,IBX,0),"^",3)=$S(INS["LICENSE":"0B",1:"X5")
49 ;
50 D ENDST
51 ;
52 D BMES^XPDUTL("Remove xref on INSURANCE CO file, field 4.1 and delete bad values")
53 D DELIX^DDMOD(36,4.1,1,"","")
54 I $G(^IBA(364.7,1015,1))'["4010" S INS=0 F S INS=$O(^DIC(36,INS)) Q:'INS D
55 . S DR="4.01///@;4.02///@",DA=INS,DIE="^DIC(36," D ^DIE
56 ;
57 D ENDST
58 ;
59 D END
60 Q
61 ;
62ENDST ;
63 D BMES^XPDUTL("Step complete")
64 Q
65 ;
66END ;
67 D BMES^XPDUTL("Pre-install complete")
68 Q
69 ;
Note: See TracBrowser for help on using the repository browser.