- IB20P154 ;ALB/BGA - IB V2.0 POST INIT,UPDATE DENTAL ENTRY IN RATE TYPE FILE ; 5-16-2001
- ;;2.0;INTEGRATED BILLING;**154**;21-MAR-94
- ;
- ; Post Init Description: This init will UPDATE the Dental entry
- ; in the RATE TYPE file #399.3. This post init is associated with
- ; patch *154*
- ;
- ; Control Logic
- D UPDATE ; Update entries in #399.3
- D LAST ; End Task
- Q
- ;
- ;
- ;
- ;
- ;
- UPDATE ; Update entries in the Rate Type file #399.3
- N IBLOOK,IBINC,IBROWZ,IBZ,IBZIEN
- D BMES^XPDUTL(">>>Updating the 'DENTAL' entry in the RATE TYPE file #399.3 ...")
- F IBZ=1:1 S IBROWZ=$P($T(MODZ+IBZ),";;",2) Q:IBROWZ="QUIT" D
- . S IBLOOK=$P(IBROWZ,U),IBZIEN=$O(^DGCR(399.3,"B",IBLOOK,0))
- . I '$D(^DGCR(399.3,+IBZIEN,0)) D Q
- . . S IBARR(1)=" >> The 'DENTAL' entry could not be found in this file."
- . . S IBARR(2)=" If you have a different entry in this file that"
- . . S IBARR(3)=" represents DENTAL (such as 'INELIGIBLE DENTAL')"
- . . S IBARR(4)=" you will need to manually change this."
- . . S IBARR(5)=" Please use the following option to change the value"
- . . S IBARR(6)=" of the ACCOUNTS RECEIVABLE CATEGORY (#.06) field"
- . . S IBARR(7)=" to EMERGENCY/HUMANITARIAN:"
- . . S IBARR(8)=" Enter/Edit Charge Master (IBCR DISPLAY CHARGE"
- . . S IBARR(9)=" MASTER) located on the MCCR System Definition Menu."
- . . D BMES^XPDUTL(.IBARR) K IBARR
- . I $P($G(^DGCR(399.3,IBZIEN,0)),U,6)'=$P(IBROWZ,U,6) D Q
- . . S IBINC=$P($G(^DGCR(399.3,IBZIEN,0)),U,6)
- . . S DA=IBZIEN,DIE="^DGCR(399.3,",DR=".06////"_$P(IBROWZ,U,6)
- . . D ^DIE K DIE,DA,DR
- . . D BMES^XPDUTL(">> The ACCOUNTS RECEIVABLE CATEGORY field for the 'DENTAL'")
- . . D MES^XPDUTL(" entry has been changed from 'INELIGIBLE HOSP.'")
- . . D MES^XPDUTL(" to 'EMERGENCY/HUMANITARIAN'.")
- . D BMES^XPDUTL(">> The 'DENTAL' entry did not require an update.")
- Q
- ;
- MODZ ; Update entries that are currently incorrect in file #399.3 Rate Type
- ;;DENTAL^DENTAL^^DENTAL^0^2^p^^1
- ;;QUIT
- ;
- LAST ;
- D BMES^XPDUTL(">>>ALL POST-INIT Activities have been completed. <<<")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P154 2086 printed Jan 18, 2025@03:02:54 Page 2
- IB20P154 ;ALB/BGA - IB V2.0 POST INIT,UPDATE DENTAL ENTRY IN RATE TYPE FILE ; 5-16-2001
- +1 ;;2.0;INTEGRATED BILLING;**154**;21-MAR-94
- +2 ;
- +3 ; Post Init Description: This init will UPDATE the Dental entry
- +4 ; in the RATE TYPE file #399.3. This post init is associated with
- +5 ; patch *154*
- +6 ;
- +7 ; Control Logic
- +8 ; Update entries in #399.3
- DO UPDATE
- +9 ; End Task
- DO LAST
- +10 QUIT
- +11 ;
- +12 ;
- +13 ;
- +14 ;
- +15 ;
- UPDATE ; Update entries in the Rate Type file #399.3
- +1 NEW IBLOOK,IBINC,IBROWZ,IBZ,IBZIEN
- +2 DO BMES^XPDUTL(">>>Updating the 'DENTAL' entry in the RATE TYPE file #399.3 ...")
- +3 FOR IBZ=1:1
- SET IBROWZ=$PIECE($TEXT(MODZ+IBZ),";;",2)
- if IBROWZ="QUIT"
- QUIT
- Begin DoDot:1
- +4 SET IBLOOK=$PIECE(IBROWZ,U)
- SET IBZIEN=$ORDER(^DGCR(399.3,"B",IBLOOK,0))
- +5 IF '$DATA(^DGCR(399.3,+IBZIEN,0))
- Begin DoDot:2
- +6 SET IBARR(1)=" >> The 'DENTAL' entry could not be found in this file."
- +7 SET IBARR(2)=" If you have a different entry in this file that"
- +8 SET IBARR(3)=" represents DENTAL (such as 'INELIGIBLE DENTAL')"
- +9 SET IBARR(4)=" you will need to manually change this."
- +10 SET IBARR(5)=" Please use the following option to change the value"
- +11 SET IBARR(6)=" of the ACCOUNTS RECEIVABLE CATEGORY (#.06) field"
- +12 SET IBARR(7)=" to EMERGENCY/HUMANITARIAN:"
- +13 SET IBARR(8)=" Enter/Edit Charge Master (IBCR DISPLAY CHARGE"
- +14 SET IBARR(9)=" MASTER) located on the MCCR System Definition Menu."
- +15 DO BMES^XPDUTL(.IBARR)
- KILL IBARR
- End DoDot:2
- QUIT
- +16 IF $PIECE($GET(^DGCR(399.3,IBZIEN,0)),U,6)'=$PIECE(IBROWZ,U,6)
- Begin DoDot:2
- +17 SET IBINC=$PIECE($GET(^DGCR(399.3,IBZIEN,0)),U,6)
- +18 SET DA=IBZIEN
- SET DIE="^DGCR(399.3,"
- SET DR=".06////"_$PIECE(IBROWZ,U,6)
- +19 DO ^DIE
- KILL DIE,DA,DR
- +20 DO BMES^XPDUTL(">> The ACCOUNTS RECEIVABLE CATEGORY field for the 'DENTAL'")
- +21 DO MES^XPDUTL(" entry has been changed from 'INELIGIBLE HOSP.'")
- +22 DO MES^XPDUTL(" to 'EMERGENCY/HUMANITARIAN'.")
- End DoDot:2
- QUIT
- +23 DO BMES^XPDUTL(">> The 'DENTAL' entry did not require an update.")
- End DoDot:1
- +24 QUIT
- +25 ;
- MODZ ; Update entries that are currently incorrect in file #399.3 Rate Type
- +1 ;;DENTAL^DENTAL^^DENTAL^0^2^p^^1
- +2 ;;QUIT
- +3 ;
- LAST ;
- +1 DO BMES^XPDUTL(">>>ALL POST-INIT Activities have been completed. <<<")
- +2 QUIT