IB20PT3 ;ALB/CPM - IB V2.0 POST INIT, RESOLVE TABLE POINTERS ; 02-SEP-93
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;
; Control for table pointer resolution.
D NEWAT^IB20PT31 ; Add new Action Types into file #350.1
D NEWAC^IB20PT31 ; Add new Action Charges into file #350.2
D ATSE ; Resolve ptrs to #49 from #350.1
D ATAC^IB20PT31 ; Resolve ptrs to #350.1 from #350.2
D ^IB20PT32 ; Resolve ptrs to #350.1 from #350.1
Q
;
;
ATSE ; Resolve pointers to file #49 from file #350.1
W !!,">>> Updating pointers to file #49 from file #350.1... "
S IBSERV=$P($G(^IBE(350.9,1,1)),"^",14)
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
;
; - update both service and AR category
F IBI=1:1 S IBX=$P($T(DATA+IBI),";;",2,99) Q:IBX="" D
.S IBATYP=$O(^IBE(350.1,"B",$P(IBX,"^"),0)) Q:'IBATYP
.;S IBARTYP=$O(^PRCA(430.2,"B",$P(IBX,"^",3),0)) Q:'IBARTYP
.;S $P(^IBE(350.1,IBATYP,0),"^",3)=IBARTYP
.S DIE="^IBE(350.1,",DA=IBATYP,DR=".04////"_IBSERV D ^DIE K DIC,DIE,DA,DR W "."
;
; - update service only
F IBI=1:1 S IBX=$P($T(EVT+IBI),";;",2,99) Q:IBX="" D
.S IBATYP=$O(^IBE(350.1,"B",IBX,0)) Q:'IBATYP
.S DIE="^IBE(350.1,",DA=IBATYP,DR=".04////"_IBSERV D ^DIE K DIC,DIE,DA,DR W "."
;
ATSEQ K IBI,IBX,IBATYP,IBARTYP,IBSERV
Q
;
;
DATA ;Action Type (#350.1)^ <null> ^AR Category (#430.2)
;;DG CHAMPVA PER DIEM NEW
;;DG CHAMPVA PER DIEM CANCEL
;;DG CHAMPVA PER DIEM UPDATE
;
; - others that may need to be updated
;
;;DG FEE SERVICE (INPT) CANCEL^ ^NURSING HOME CARE(NSC)
;;DG FEE SERVICE (INPT) NEW^ ^NURSING HOME CARE(NSC)
;;DG FEE SERVICE (INPT) UPDATE^ ^NURSING HOME CARE(NSC)
;;DG NHCU COPAY NEW^ ^NURSING HOME CARE(NSC)
;;DG NHCU COPAY CANCEL^ ^NURSING HOME CARE(NSC)
;;DG NHCU COPAY UPDATE^ ^NURSING HOME CARE(NSC)
;;DG NHCU PER DIEM CANCEL^ ^NURSING HOME CARE PER DIEM
;;DG NHCU PER DIEM NEW^ ^NURSING HOME CARE PER DIEM
;;DG NHCU PER DIEM UPDATE^ ^NURSING HOME CARE PER DIEM
;;DG INPT COPAY (ALC) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (ALC) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (ALC) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (BLI) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (BLI) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (BLI) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (INT) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (INT) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (INT) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (MED) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (MED) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (MED) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (NEU) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (NEU) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (NEU) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (PSY) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (PSY) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (PSY) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (REH) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (REH) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (REH) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (SPI) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (SPI) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (SPI) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (SUR) NEW^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (SUR) CANCEL^ ^HOSPITAL CARE (NSC)
;;DG INPT COPAY (SUR) UPDATE^ ^HOSPITAL CARE (NSC)
;;DG INPT PER DIEM CANCEL^ ^HOSPITAL CARE PER DIEM
;;DG INPT PER DIEM NEW^ ^HOSPITAL CARE PER DIEM
;;DG INPT PER DIEM UPDATE^ ^HOSPITAL CARE PER DIEM
;;DG FEE SERVICE (OPT) CANCEL^ ^OUTPATIENT CARE(NSC)
;;DG FEE SERVICE (OPT) NEW^ ^OUTPATIENT CARE(NSC)
;;DG FEE SERVICE (OPT) UPDATE^ ^OUTPATIENT CARE(NSC)
;;DG OPT COPAY CANCEL^ ^OUTPATIENT CARE(NSC)
;;DG OPT COPAY NEW^ ^OUTPATIENT CARE(NSC)
;;DG OPT COPAY UPDATE^ ^OUTPATIENT CARE(NSC)
;
;
EVT ;Event Action Type (#350.1)
;;CHAMPVA SUBSISTENCE LIMIT
;
; - others that may need to be updated
;
;;MEDICARE DEDUCTIBLE
;;HOSPITAL ADMISSION
;;NHCU ADMISSION
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20PT3 4412 printed Nov 22, 2024@17:15:15 Page 2
IB20PT3 ;ALB/CPM - IB V2.0 POST INIT, RESOLVE TABLE POINTERS ; 02-SEP-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;
+3 ; Control for table pointer resolution.
+4 ; Add new Action Types into file #350.1
DO NEWAT^IB20PT31
+5 ; Add new Action Charges into file #350.2
DO NEWAC^IB20PT31
+6 ; Resolve ptrs to #49 from #350.1
DO ATSE
+7 ; Resolve ptrs to #350.1 from #350.2
DO ATAC^IB20PT31
+8 ; Resolve ptrs to #350.1 from #350.1
DO ^IB20PT32
+9 QUIT
+10 ;
+11 ;
ATSE ; Resolve pointers to file #49 from file #350.1
+1 WRITE !!,">>> Updating pointers to file #49 from file #350.1... "
+2 SET IBSERV=$PIECE($GET(^IBE(350.9,1,1)),"^",14)
+3 IF 'IBSERV
WRITE !!,"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."
GOTO ATSEQ
+4 ;
+5 ; - update both service and AR category
+6 FOR IBI=1:1
SET IBX=$PIECE($TEXT(DATA+IBI),";;",2,99)
if IBX=""
QUIT
Begin DoDot:1
+7 SET IBATYP=$ORDER(^IBE(350.1,"B",$PIECE(IBX,"^"),0))
if 'IBATYP
QUIT
+8 ;S IBARTYP=$O(^PRCA(430.2,"B",$P(IBX,"^",3),0)) Q:'IBARTYP
+9 ;S $P(^IBE(350.1,IBATYP,0),"^",3)=IBARTYP
+10 SET DIE="^IBE(350.1,"
SET DA=IBATYP
SET DR=".04////"_IBSERV
DO ^DIE
KILL DIC,DIE,DA,DR
WRITE "."
End DoDot:1
+11 ;
+12 ; - update service only
+13 FOR IBI=1:1
SET IBX=$PIECE($TEXT(EVT+IBI),";;",2,99)
if IBX=""
QUIT
Begin DoDot:1
+14 SET IBATYP=$ORDER(^IBE(350.1,"B",IBX,0))
if 'IBATYP
QUIT
+15 SET DIE="^IBE(350.1,"
SET DA=IBATYP
SET DR=".04////"_IBSERV
DO ^DIE
KILL DIC,DIE,DA,DR
WRITE "."
End DoDot:1
+16 ;
ATSEQ KILL IBI,IBX,IBATYP,IBARTYP,IBSERV
+1 QUIT
+2 ;
+3 ;
DATA ;Action Type (#350.1)^ <null> ^AR Category (#430.2)
+1 ;;DG CHAMPVA PER DIEM NEW
+2 ;;DG CHAMPVA PER DIEM CANCEL
+3 ;;DG CHAMPVA PER DIEM UPDATE
+4 ;
+5 ; - others that may need to be updated
+6 ;
+7 ;;DG FEE SERVICE (INPT) CANCEL^ ^NURSING HOME CARE(NSC)
+8 ;;DG FEE SERVICE (INPT) NEW^ ^NURSING HOME CARE(NSC)
+9 ;;DG FEE SERVICE (INPT) UPDATE^ ^NURSING HOME CARE(NSC)
+10 ;;DG NHCU COPAY NEW^ ^NURSING HOME CARE(NSC)
+11 ;;DG NHCU COPAY CANCEL^ ^NURSING HOME CARE(NSC)
+12 ;;DG NHCU COPAY UPDATE^ ^NURSING HOME CARE(NSC)
+13 ;;DG NHCU PER DIEM CANCEL^ ^NURSING HOME CARE PER DIEM
+14 ;;DG NHCU PER DIEM NEW^ ^NURSING HOME CARE PER DIEM
+15 ;;DG NHCU PER DIEM UPDATE^ ^NURSING HOME CARE PER DIEM
+16 ;;DG INPT COPAY (ALC) CANCEL^ ^HOSPITAL CARE (NSC)
+17 ;;DG INPT COPAY (ALC) NEW^ ^HOSPITAL CARE (NSC)
+18 ;;DG INPT COPAY (ALC) UPDATE^ ^HOSPITAL CARE (NSC)
+19 ;;DG INPT COPAY (BLI) CANCEL^ ^HOSPITAL CARE (NSC)
+20 ;;DG INPT COPAY (BLI) NEW^ ^HOSPITAL CARE (NSC)
+21 ;;DG INPT COPAY (BLI) UPDATE^ ^HOSPITAL CARE (NSC)
+22 ;;DG INPT COPAY (INT) CANCEL^ ^HOSPITAL CARE (NSC)
+23 ;;DG INPT COPAY (INT) NEW^ ^HOSPITAL CARE (NSC)
+24 ;;DG INPT COPAY (INT) UPDATE^ ^HOSPITAL CARE (NSC)
+25 ;;DG INPT COPAY (MED) UPDATE^ ^HOSPITAL CARE (NSC)
+26 ;;DG INPT COPAY (MED) NEW^ ^HOSPITAL CARE (NSC)
+27 ;;DG INPT COPAY (MED) CANCEL^ ^HOSPITAL CARE (NSC)
+28 ;;DG INPT COPAY (NEU) CANCEL^ ^HOSPITAL CARE (NSC)
+29 ;;DG INPT COPAY (NEU) NEW^ ^HOSPITAL CARE (NSC)
+30 ;;DG INPT COPAY (NEU) UPDATE^ ^HOSPITAL CARE (NSC)
+31 ;;DG INPT COPAY (PSY) CANCEL^ ^HOSPITAL CARE (NSC)
+32 ;;DG INPT COPAY (PSY) NEW^ ^HOSPITAL CARE (NSC)
+33 ;;DG INPT COPAY (PSY) UPDATE^ ^HOSPITAL CARE (NSC)
+34 ;;DG INPT COPAY (REH) CANCEL^ ^HOSPITAL CARE (NSC)
+35 ;;DG INPT COPAY (REH) NEW^ ^HOSPITAL CARE (NSC)
+36 ;;DG INPT COPAY (REH) UPDATE^ ^HOSPITAL CARE (NSC)
+37 ;;DG INPT COPAY (SPI) UPDATE^ ^HOSPITAL CARE (NSC)
+38 ;;DG INPT COPAY (SPI) CANCEL^ ^HOSPITAL CARE (NSC)
+39 ;;DG INPT COPAY (SPI) NEW^ ^HOSPITAL CARE (NSC)
+40 ;;DG INPT COPAY (SUR) NEW^ ^HOSPITAL CARE (NSC)
+41 ;;DG INPT COPAY (SUR) CANCEL^ ^HOSPITAL CARE (NSC)
+42 ;;DG INPT COPAY (SUR) UPDATE^ ^HOSPITAL CARE (NSC)
+43 ;;DG INPT PER DIEM CANCEL^ ^HOSPITAL CARE PER DIEM
+44 ;;DG INPT PER DIEM NEW^ ^HOSPITAL CARE PER DIEM
+45 ;;DG INPT PER DIEM UPDATE^ ^HOSPITAL CARE PER DIEM
+46 ;;DG FEE SERVICE (OPT) CANCEL^ ^OUTPATIENT CARE(NSC)
+47 ;;DG FEE SERVICE (OPT) NEW^ ^OUTPATIENT CARE(NSC)
+48 ;;DG FEE SERVICE (OPT) UPDATE^ ^OUTPATIENT CARE(NSC)
+49 ;;DG OPT COPAY CANCEL^ ^OUTPATIENT CARE(NSC)
+50 ;;DG OPT COPAY NEW^ ^OUTPATIENT CARE(NSC)
+51 ;;DG OPT COPAY UPDATE^ ^OUTPATIENT CARE(NSC)
+52 ;
+53 ;
EVT ;Event Action Type (#350.1)
+1 ;;CHAMPVA SUBSISTENCE LIMIT
+2 ;
+3 ; - others that may need to be updated
+4 ;
+5 ;;MEDICARE DEDUCTIBLE
+6 ;;HOSPITAL ADMISSION
+7 ;;NHCU ADMISSION
+8 ;
