Routine: IB20P154

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

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.")

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. <<<")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P154   2086     printed  Apr 09, 2024@21:29:44                                                                                                                                                                                                    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

IB20P154.m