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

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1IB20PT32 ;ALB/CPM - IB V2.0 POST INIT, RESOLVE TABLE POINTERS ; 02-SEP-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;
4ATAT ; 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 ;
25ACT ;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 ;
47ACT1 ;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
Note: See TracBrowser for help on using the repository browser.