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 Dec 13, 2024@02:01:41 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
