- 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 Dec 13, 2024@02:05:09 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 ;