| 1 | IBY280PR ;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 | ;
|
|---|
| 62 | ENDST ;
|
|---|
| 63 | D BMES^XPDUTL("Step complete")
|
|---|
| 64 | Q
|
|---|
| 65 | ;
|
|---|
| 66 | END ;
|
|---|
| 67 | D BMES^XPDUTL("Pre-install complete")
|
|---|
| 68 | Q
|
|---|
| 69 | ;
|
|---|
