| 1 | IB20PT32 ;ALB/CPM - IB V2.0 POST INIT, RESOLVE TABLE POINTERS ; 02-SEP-93
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ATAT ; Resolve pointers to file #350.1 from file #350.1
|
|---|
| 5 | W !!,">>> Updating pointers to file #350.1 from file #350.1... "
|
|---|
| 6 | F IBI=1:1 S IBX=$P($T(ACT+IBI),";;",2,99) Q:IBX="" D
|
|---|
| 7 | .S IBNEW=$O(^IBE(350.1,"B",$P(IBX,"^"),0))
|
|---|
| 8 | .S IBCAN=$O(^IBE(350.1,"B",$P(IBX,"^",2),0))
|
|---|
| 9 | .S IBUPD=$O(^IBE(350.1,"B",$P(IBX,"^",3),0))
|
|---|
| 10 | .F IBJ=IBNEW,IBCAN,IBUPD D
|
|---|
| 11 | ..S DIE="^IBE(350.1,",DA=IBJ
|
|---|
| 12 | ..S DR=".06////"_IBCAN_";.07////"_IBUPD_";.09////"_IBNEW
|
|---|
| 13 | ..D ^DIE K DA,DR,DIE W "."
|
|---|
| 14 | ;
|
|---|
| 15 | ; - update only new action type
|
|---|
| 16 | F IBI=1:1 S IBX=$P($T(ACT1+IBI),";;",2,99) Q:IBX="" D
|
|---|
| 17 | .S IBJ=$O(^IBE(350.1,"B",IBX,0)) Q:'IBJ
|
|---|
| 18 | .S DIE="^IBE(350.1,",DA=IBJ,DR=".09////"_IBJ
|
|---|
| 19 | .D ^DIE K DA,DR,DIE W "."
|
|---|
| 20 | ;
|
|---|
| 21 | K IBI,IBX,IBNEW,IBCAN,IBUPD,IBJ
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | ;
|
|---|
| 25 | ACT ;New Action (#350.1)^Cancel Action (#350.1)^Update Action (#350.1)
|
|---|
| 26 | ;;DG CHAMPVA PER DIEM NEW^DG CHAMPVA PER DIEM CANCEL^DG CHAMPVA PER DIEM UPDATE
|
|---|
| 27 | ;
|
|---|
| 28 | ; - others that may need to be updated
|
|---|
| 29 | ;
|
|---|
| 30 | ;;DG FEE SERVICE (INPT) NEW^DG FEE SERVICE (INPT) CANCEL^DG FEE SERVICE (INPT) UPDATE
|
|---|
| 31 | ;;DG NHCU COPAY NEW^DG NHCU COPAY CANCEL^DG NHCU COPAY UPDATE
|
|---|
| 32 | ;;DG NHCU PER DIEM NEW^DG NHCU PER DIEM CANCEL^DG NHCU PER DIEM UPDATE
|
|---|
| 33 | ;;DG INPT COPAY (ALC) NEW^DG INPT COPAY (ALC) CANCEL^DG INPT COPAY (ALC) UPDATE
|
|---|
| 34 | ;;DG INPT COPAY (BLI) NEW^DG INPT COPAY (BLI) CANCEL^DG INPT COPAY (BLI) UPDATE
|
|---|
| 35 | ;;DG INPT COPAY (INT) NEW^DG INPT COPAY (INT) CANCEL^DG INPT COPAY (INT) UPDATE
|
|---|
| 36 | ;;DG INPT COPAY (MED) NEW^DG INPT COPAY (MED) CANCEL^DG INPT COPAY (MED) UPDATE
|
|---|
| 37 | ;;DG INPT COPAY (NEU) NEW^DG INPT COPAY (NEU) CANCEL^DG INPT COPAY (NEU) UPDATE
|
|---|
| 38 | ;;DG INPT COPAY (PSY) NEW^DG INPT COPAY (PSY) CANCEL^DG INPT COPAY (PSY) UPDATE
|
|---|
| 39 | ;;DG INPT COPAY (REH) NEW^DG INPT COPAY (REH) CANCEL^DG INPT COPAY (REH) UPDATE
|
|---|
| 40 | ;;DG INPT COPAY (SPI) NEW^DG INPT COPAY (SPI) CANCEL^DG INPT COPAY (SPI) UPDATE
|
|---|
| 41 | ;;DG INPT COPAY (SUR) NEW^DG INPT COPAY (SUR) CANCEL^DG INPT COPAY (SUR) UPDATE
|
|---|
| 42 | ;;DG INPT PER DIEM NEW^DG INPT PER DIEM CANCEL^DG INPT PER DIEM UPDATE
|
|---|
| 43 | ;;DG FEE SERVICE (OPT) NEW^DG FEE SERVICE (OPT) CANCEL^DG FEE SERVICE (OPT) UPDATE
|
|---|
| 44 | ;;DG OPT COPAY NEW^DG OPT COPAY CANCEL^DG OPT COPAY UPDATE
|
|---|
| 45 | ;
|
|---|
| 46 | ;
|
|---|
| 47 | ACT1 ;New Action (#350.1)
|
|---|
| 48 | ;;CHAMPVA SUBSISTENCE LIMIT
|
|---|
| 49 | ;
|
|---|
| 50 | ; - others that may need to be updated
|
|---|
| 51 | ;
|
|---|
| 52 | ;;MEDICARE DEDUCTIBLE
|
|---|
| 53 | ;;HOSPITAL ADMISSION
|
|---|
| 54 | ;;NHCU ADMISSION
|
|---|
| 55 | ;;IB OPT MEDICARE RATE 1
|
|---|
| 56 | ;;IB OPT MEDICARE RATE 2
|
|---|
| 57 | ;;IB OPT MEDICARE RATE 3
|
|---|
| 58 | ;;IB OPT MEDICARE RATE 4
|
|---|
| 59 | ;;IB OPT MEDICARE RATE 5
|
|---|
| 60 | ;;IB OPT MEDICARE RATE 6
|
|---|
| 61 | ;;IB OPT MEDICARE RATE 7
|
|---|
| 62 | ;;IB OPT MEDICARE RATE 8
|
|---|
| 63 | ;;IB OPT MEDICARE RATE 9
|
|---|
