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

IB20PT7.m

Go to the documentation of this file.
  1. IB20PT7 ;ALB/ARH - ADD NEW ENTRIES TO TABLE FILES ; 12/20/93
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. ;
  1. D DS ; Add new discharge statuses for bills
  1. D RT ; Add new Rate Types to file #399.3 for CHAMPVA
  1. D RVC ; Add new revenue codes to file #399.2
  1. D OSC ; Adding new Occurrence Span Codes
  1. D VC ; Adding new Value Codes
  1. Q
  1. ;
  1. ;
  1. DS ; Add new discharge statuses for bills
  1. W !!,">>> Adding new discharge status for bills..."
  1. F IBI=1:1 S IBX=$P($T(DSF+IBI),";;",2,999) Q:IBX="" D
  1. . S IBJ=0 F S IBJ=$O(^DGCR(399.1,IBJ)) Q:'IBJ S IBY=$G(^DGCR(399.1,IBJ,0)) I $P(IBX,U,1)=$P(IBY,U,1),$P(IBX,U,2)=$P(IBY,U,2),$P(IBY,U,6) S IBY=1 Q
  1. . Q:IBY K DA,DO S DIC="^DGCR(399.1,",DIC(0)="L",X=$P(IBX,U,1) D FILE^DICN K DA,DO Q:Y<0!('$P(Y,U,3))
  1. . S DA=+Y,DIE=DIC,DR=".02////"_$P(IBX,U,2)_";.13////1" D ^DIE
  1. K DIC,DIE,DA,DR,Y
  1. Q
  1. ;
  1. RT ; Add new Rate Types to file #399.3 for CHAMPVA
  1. W !!,">>> Adding new entries to the Rate Type File - CHAMPVA ..."
  1. F IBI=1:1 S IBX=$P($T(RTF+IBI),";;",2,999) Q:IBX="" D
  1. . S IBY=$E($P(IBX,U,1),1,30) Q:$D(^DGCR(399.3,"B",IBY))
  1. . K DD,DO S DIC="^DGCR(399.3,",DIC(0)="L",X=IBY D FILE^DICN K DA,DO Q:Y<0
  1. . S DA=+Y,DIE=DIC,DR=".02////"_$P(IBX,U,2)_";.03////"_$P(IBX,U,3)_";.04////"_$P(IBX,U,4)_";.05////"_$P(IBX,U,5)_";.06////"_$P(IBX,U,6)_";.07////"_$P(IBX,U,7)_";.08////"_$P(IBX,U,8)_";.09////"_$P(IBX,U,9) D ^DIE
  1. K DIC,DIE,DA,DR,Y
  1. Q
  1. ;
  1. RVC ; Add new revenue codes to file #399.2
  1. W !!,">>> Adding new revenue codes..."
  1. F IBI=1:1 S IBX=$P($T(RVCF+IBI),";;",2,999) Q:IBX="" D
  1. . S IBY=$P(IBX,U,1),IBZ=$G(^DGCR(399.2,+IBY,0)) Q:(+IBY'=+IBZ)!($P(IBZ,U,2)'="*RESERVED")
  1. . S DA=+IBY,DIE="^DGCR(399.2,",DR="1////"_$P(IBX,U,2)_";3////"_$P(IBX,U,4) D ^DIE
  1. K DIC,DIE,DA,DR,Y
  1. Q
  1. ;
  1. OSC ; Adding new Occurrence Span Codes
  1. W !!,">>> Adding Occurrence Span Codes..."
  1. F IBI=1:1 S IBX=$P($T(OSCF+IBI),";;",2,999) Q:IBX="" D
  1. . S IBJ=0 F S IBJ=$O(^DGCR(399.1,IBJ)) Q:'IBJ S IBY=$G(^DGCR(399.1,IBJ,0)) I $P(IBX,U,1)=$P(IBY,U,1),$P(IBX,U,2)=$P(IBY,U,2),$P(IBY,U,10) S IBY=1 Q
  1. . Q:IBY K DA,DO S DIC="^DGCR(399.1,",DIC(0)="L",X=$P(IBX,U,1) D FILE^DICN K DA,DO Q:Y<0!('$P(Y,U,3))
  1. . S DA=+Y,DIE=DIC,DR=".02////"_$P(IBX,U,2)_";.11////1;.17////1" D ^DIE
  1. K DIC,DIE,DA,DR,Y
  1. Q
  1. ;
  1. VC ; Adding new Value Codes
  1. W !!,">>> Adding Value Codes..."
  1. F IBI=1:1 S IBX=$P($T(VCF+IBI),";;",2,999) Q:IBX="" D
  1. . S IBJ=0 F S IBJ=$O(^DGCR(399.1,IBJ)) Q:'IBJ S IBY=$G(^DGCR(399.1,IBJ,0)) I $P(IBX,U,1)=$P(IBY,U,1),$P(IBX,U,2)=$P(IBY,U,2),$P(IBY,U,11) S IBY=1 Q
  1. . Q:IBY K DA,DO S DIC="^DGCR(399.1,",DIC(0)="L",X=$P(IBX,U,1) D FILE^DICN K DA,DO Q:Y<0!('$P(Y,U,3))
  1. . S DA=+Y,DIE=DIC,DR=".02////"_$P(IBX,U,2)_";.18////1;.19////"_$P(IBX,U,3) D ^DIE
  1. K DIC,DIE,DA,DR,Y
  1. Q
  1. ;
  1. ;
  1. DSF ; - new discharge status, 399.1
  1. ;;DISCHARGED TO HOME UNDER CARE OF A HOME IV PROVIDER^08
  1. ;
  1. ;
  1. RTF ; - new rate type entries
  1. ;;CHAMPVA REIMB. INS.^REIMBURSABLE INS.^1^REIM INS^1^^i^1^1
  1. ;;CHAMPVA^CHAMPVA^1^CHAMPVA^1^^i^1^1
  1. ;
  1. ;
  1. RVCF ; - new revenue codes
  1. ;;294^MED EQUIP/SUPPLIES/DRUGS^^SUPPLIES/DRUGS FOR DME EFFECTIVENESS HOME-HEALTH AGENCY ONLY
  1. ;;404^PET SCAN^^POSITRON EMMISSION TOMOGROPHY
  1. ;;547^AMBUL/PHARMACY^^PHARMACY
  1. ;;548^AMBUL/TELEPHONIC EKG^^TELEPHONE TRANSMISSION EKG
  1. ;;636^DRUGS/DETAIL CODE^^DRUGS REQUIRING DETAILED CODING
  1. ;;761^TREATMENT RM^^TREATMENT ROOM
  1. ;;762^OBSERVATION RM^^OBSERVATION ROOM
  1. ;;882^HOME DIALYSIS AID VISIT^^HOME DIALYSIS AID VISIT
  1. ;;947^CMPLX MED EQUIP-ANC^^COMPLEX MEDICAL EQUIPMENT - ANCILLARY
  1. ;
  1. ;
  1. OSCF ; - add occurrence span codes
  1. ;;QUALIFYING STAY DATES FOR SNF USE ONLY^70
  1. ;;PRIOR STAY DATES^71
  1. ;;FIRST/LAST VISIT^72
  1. ;;BENEFIT ELIGIBILITY PERIOD^73
  1. ;;NONCOVERED LEVEL OF CARE^74
  1. ;;SNF LEVEL OF CARE^75
  1. ;;PATIENT LIABILITY^76
  1. ;;PROVIDER LIABILITY PERIOD^77
  1. ;;SNF PRIOR STAY DATES^78
  1. ;;PAYER CODE^79
  1. ;;PRO/UR APPROVED STAY DATES^M0
  1. ;
  1. ;
  1. VCF ; - add value codes
  1. ;;INPATIENT PROFESSIONAL COMPONENT CHARGES, COMBINED BILLED^04
  1. ;;NO FAULT, INCLUDING AUTO/OTHER^14^1
  1. ;;WORKER'S COMPENSATION^15
  1. ;;ACCIDENT HOUR^45
  1. ;