Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IB20PT3

IB20PT3.m

Go to the documentation of this file.
  1. IB20PT3 ;ALB/CPM - IB V2.0 POST INIT, RESOLVE TABLE POINTERS ; 02-SEP-93
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. ;
  1. ; Control for table pointer resolution.
  1. D NEWAT^IB20PT31 ; Add new Action Types into file #350.1
  1. D NEWAC^IB20PT31 ; Add new Action Charges into file #350.2
  1. D ATSE ; Resolve ptrs to #49 from #350.1
  1. D ATAC^IB20PT31 ; Resolve ptrs to #350.1 from #350.2
  1. D ^IB20PT32 ; Resolve ptrs to #350.1 from #350.1
  1. Q
  1. ;
  1. ;
  1. ATSE ; Resolve pointers to file #49 from file #350.1
  1. W !!,">>> Updating pointers to file #49 from file #350.1... "
  1. S IBSERV=$P($G(^IBE(350.9,1,1)),"^",14)
  1. 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
  1. ;
  1. ; - update both service and AR category
  1. F IBI=1:1 S IBX=$P($T(DATA+IBI),";;",2,99) Q:IBX="" D
  1. .S IBATYP=$O(^IBE(350.1,"B",$P(IBX,"^"),0)) Q:'IBATYP
  1. .;S IBARTYP=$O(^PRCA(430.2,"B",$P(IBX,"^",3),0)) Q:'IBARTYP
  1. .;S $P(^IBE(350.1,IBATYP,0),"^",3)=IBARTYP
  1. .S DIE="^IBE(350.1,",DA=IBATYP,DR=".04////"_IBSERV D ^DIE K DIC,DIE,DA,DR W "."
  1. ;
  1. ; - update service only
  1. F IBI=1:1 S IBX=$P($T(EVT+IBI),";;",2,99) Q:IBX="" D
  1. .S IBATYP=$O(^IBE(350.1,"B",IBX,0)) Q:'IBATYP
  1. .S DIE="^IBE(350.1,",DA=IBATYP,DR=".04////"_IBSERV D ^DIE K DIC,DIE,DA,DR W "."
  1. ;
  1. ATSEQ K IBI,IBX,IBATYP,IBARTYP,IBSERV
  1. Q
  1. ;
  1. ;
  1. DATA ;Action Type (#350.1)^ <null> ^AR Category (#430.2)
  1. ;;DG CHAMPVA PER DIEM NEW
  1. ;;DG CHAMPVA PER DIEM CANCEL
  1. ;;DG CHAMPVA PER DIEM UPDATE
  1. ;
  1. ; - others that may need to be updated
  1. ;
  1. ;;DG FEE SERVICE (INPT) CANCEL^ ^NURSING HOME CARE(NSC)
  1. ;;DG FEE SERVICE (INPT) NEW^ ^NURSING HOME CARE(NSC)
  1. ;;DG FEE SERVICE (INPT) UPDATE^ ^NURSING HOME CARE(NSC)
  1. ;;DG NHCU COPAY NEW^ ^NURSING HOME CARE(NSC)
  1. ;;DG NHCU COPAY CANCEL^ ^NURSING HOME CARE(NSC)
  1. ;;DG NHCU COPAY UPDATE^ ^NURSING HOME CARE(NSC)
  1. ;;DG NHCU PER DIEM CANCEL^ ^NURSING HOME CARE PER DIEM
  1. ;;DG NHCU PER DIEM NEW^ ^NURSING HOME CARE PER DIEM
  1. ;;DG NHCU PER DIEM UPDATE^ ^NURSING HOME CARE PER DIEM
  1. ;;DG INPT COPAY (ALC) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (ALC) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (ALC) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (BLI) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (BLI) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (BLI) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (INT) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (INT) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (INT) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (MED) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (MED) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (MED) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (NEU) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (NEU) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (NEU) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (PSY) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (PSY) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (PSY) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (REH) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (REH) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (REH) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (SPI) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (SPI) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (SPI) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (SUR) NEW^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (SUR) CANCEL^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT COPAY (SUR) UPDATE^ ^HOSPITAL CARE (NSC)
  1. ;;DG INPT PER DIEM CANCEL^ ^HOSPITAL CARE PER DIEM
  1. ;;DG INPT PER DIEM NEW^ ^HOSPITAL CARE PER DIEM
  1. ;;DG INPT PER DIEM UPDATE^ ^HOSPITAL CARE PER DIEM
  1. ;;DG FEE SERVICE (OPT) CANCEL^ ^OUTPATIENT CARE(NSC)
  1. ;;DG FEE SERVICE (OPT) NEW^ ^OUTPATIENT CARE(NSC)
  1. ;;DG FEE SERVICE (OPT) UPDATE^ ^OUTPATIENT CARE(NSC)
  1. ;;DG OPT COPAY CANCEL^ ^OUTPATIENT CARE(NSC)
  1. ;;DG OPT COPAY NEW^ ^OUTPATIENT CARE(NSC)
  1. ;;DG OPT COPAY UPDATE^ ^OUTPATIENT CARE(NSC)
  1. ;
  1. ;
  1. EVT ;Event Action Type (#350.1)
  1. ;;CHAMPVA SUBSISTENCE LIMIT
  1. ;
  1. ; - others that may need to be updated
  1. ;
  1. ;;MEDICARE DEDUCTIBLE
  1. ;;HOSPITAL ADMISSION
  1. ;;NHCU ADMISSION
  1. ;