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

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

initial load of WorldVistAEHR

File size: 4.2 KB
Line 
1IB20PT3 ;ALB/CPM - IB V2.0 POST INIT, RESOLVE TABLE POINTERS ; 02-SEP-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;
4 ; Control for table pointer resolution.
5 D NEWAT^IB20PT31 ; Add new Action Types into file #350.1
6 D NEWAC^IB20PT31 ; Add new Action Charges into file #350.2
7 D ATSE ; Resolve ptrs to #49 from #350.1
8 D ATAC^IB20PT31 ; Resolve ptrs to #350.1 from #350.2
9 D ^IB20PT32 ; Resolve ptrs to #350.1 from #350.1
10 Q
11 ;
12 ;
13ATSE ; Resolve pointers to file #49 from file #350.1
14 W !!,">>> Updating pointers to file #49 from file #350.1... "
15 S IBSERV=$P($G(^IBE(350.9,1,1)),"^",14)
16 I 'IBSERV W !!,"You must define MAS as a service in your IB Site Parameter file before you",!,"can update the IB Action Type file! Please perform this action after",!,"installing this software." G ATSEQ
17 ;
18 ; - update both service and AR category
19 F IBI=1:1 S IBX=$P($T(DATA+IBI),";;",2,99) Q:IBX="" D
20 .S IBATYP=$O(^IBE(350.1,"B",$P(IBX,"^"),0)) Q:'IBATYP
21 .;S IBARTYP=$O(^PRCA(430.2,"B",$P(IBX,"^",3),0)) Q:'IBARTYP
22 .;S $P(^IBE(350.1,IBATYP,0),"^",3)=IBARTYP
23 .S DIE="^IBE(350.1,",DA=IBATYP,DR=".04////"_IBSERV D ^DIE K DIC,DIE,DA,DR W "."
24 ;
25 ; - update service only
26 F IBI=1:1 S IBX=$P($T(EVT+IBI),";;",2,99) Q:IBX="" D
27 .S IBATYP=$O(^IBE(350.1,"B",IBX,0)) Q:'IBATYP
28 .S DIE="^IBE(350.1,",DA=IBATYP,DR=".04////"_IBSERV D ^DIE K DIC,DIE,DA,DR W "."
29 ;
30ATSEQ K IBI,IBX,IBATYP,IBARTYP,IBSERV
31 Q
32 ;
33 ;
34DATA ;Action Type (#350.1)^ <null> ^AR Category (#430.2)
35 ;;DG CHAMPVA PER DIEM NEW
36 ;;DG CHAMPVA PER DIEM CANCEL
37 ;;DG CHAMPVA PER DIEM UPDATE
38 ;
39 ; - others that may need to be updated
40 ;
41 ;;DG FEE SERVICE (INPT) CANCEL^ ^NURSING HOME CARE(NSC)
42 ;;DG FEE SERVICE (INPT) NEW^ ^NURSING HOME CARE(NSC)
43 ;;DG FEE SERVICE (INPT) UPDATE^ ^NURSING HOME CARE(NSC)
44 ;;DG NHCU COPAY NEW^ ^NURSING HOME CARE(NSC)
45 ;;DG NHCU COPAY CANCEL^ ^NURSING HOME CARE(NSC)
46 ;;DG NHCU COPAY UPDATE^ ^NURSING HOME CARE(NSC)
47 ;;DG NHCU PER DIEM CANCEL^ ^NURSING HOME CARE PER DIEM
48 ;;DG NHCU PER DIEM NEW^ ^NURSING HOME CARE PER DIEM
49 ;;DG NHCU PER DIEM UPDATE^ ^NURSING HOME CARE PER DIEM
50 ;;DG INPT COPAY (ALC) CANCEL^ ^HOSPITAL CARE (NSC)
51 ;;DG INPT COPAY (ALC) NEW^ ^HOSPITAL CARE (NSC)
52 ;;DG INPT COPAY (ALC) UPDATE^ ^HOSPITAL CARE (NSC)
53 ;;DG INPT COPAY (BLI) CANCEL^ ^HOSPITAL CARE (NSC)
54 ;;DG INPT COPAY (BLI) NEW^ ^HOSPITAL CARE (NSC)
55 ;;DG INPT COPAY (BLI) UPDATE^ ^HOSPITAL CARE (NSC)
56 ;;DG INPT COPAY (INT) CANCEL^ ^HOSPITAL CARE (NSC)
57 ;;DG INPT COPAY (INT) NEW^ ^HOSPITAL CARE (NSC)
58 ;;DG INPT COPAY (INT) UPDATE^ ^HOSPITAL CARE (NSC)
59 ;;DG INPT COPAY (MED) UPDATE^ ^HOSPITAL CARE (NSC)
60 ;;DG INPT COPAY (MED) NEW^ ^HOSPITAL CARE (NSC)
61 ;;DG INPT COPAY (MED) CANCEL^ ^HOSPITAL CARE (NSC)
62 ;;DG INPT COPAY (NEU) CANCEL^ ^HOSPITAL CARE (NSC)
63 ;;DG INPT COPAY (NEU) NEW^ ^HOSPITAL CARE (NSC)
64 ;;DG INPT COPAY (NEU) UPDATE^ ^HOSPITAL CARE (NSC)
65 ;;DG INPT COPAY (PSY) CANCEL^ ^HOSPITAL CARE (NSC)
66 ;;DG INPT COPAY (PSY) NEW^ ^HOSPITAL CARE (NSC)
67 ;;DG INPT COPAY (PSY) UPDATE^ ^HOSPITAL CARE (NSC)
68 ;;DG INPT COPAY (REH) CANCEL^ ^HOSPITAL CARE (NSC)
69 ;;DG INPT COPAY (REH) NEW^ ^HOSPITAL CARE (NSC)
70 ;;DG INPT COPAY (REH) UPDATE^ ^HOSPITAL CARE (NSC)
71 ;;DG INPT COPAY (SPI) UPDATE^ ^HOSPITAL CARE (NSC)
72 ;;DG INPT COPAY (SPI) CANCEL^ ^HOSPITAL CARE (NSC)
73 ;;DG INPT COPAY (SPI) NEW^ ^HOSPITAL CARE (NSC)
74 ;;DG INPT COPAY (SUR) NEW^ ^HOSPITAL CARE (NSC)
75 ;;DG INPT COPAY (SUR) CANCEL^ ^HOSPITAL CARE (NSC)
76 ;;DG INPT COPAY (SUR) UPDATE^ ^HOSPITAL CARE (NSC)
77 ;;DG INPT PER DIEM CANCEL^ ^HOSPITAL CARE PER DIEM
78 ;;DG INPT PER DIEM NEW^ ^HOSPITAL CARE PER DIEM
79 ;;DG INPT PER DIEM UPDATE^ ^HOSPITAL CARE PER DIEM
80 ;;DG FEE SERVICE (OPT) CANCEL^ ^OUTPATIENT CARE(NSC)
81 ;;DG FEE SERVICE (OPT) NEW^ ^OUTPATIENT CARE(NSC)
82 ;;DG FEE SERVICE (OPT) UPDATE^ ^OUTPATIENT CARE(NSC)
83 ;;DG OPT COPAY CANCEL^ ^OUTPATIENT CARE(NSC)
84 ;;DG OPT COPAY NEW^ ^OUTPATIENT CARE(NSC)
85 ;;DG OPT COPAY UPDATE^ ^OUTPATIENT CARE(NSC)
86 ;
87 ;
88EVT ;Event Action Type (#350.1)
89 ;;CHAMPVA SUBSISTENCE LIMIT
90 ;
91 ; - others that may need to be updated
92 ;
93 ;;MEDICARE DEDUCTIBLE
94 ;;HOSPITAL ADMISSION
95 ;;NHCU ADMISSION
96 ;
Note: See TracBrowser for help on using the repository browser.