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

IB20P154.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; Post Init Description: This init will UPDATE the Dental entry
  1. ; in the RATE TYPE file #399.3. This post init is associated with
  1. ; patch *154*
  1. ;
  1. ; Control Logic
  1. D UPDATE ; Update entries in #399.3
  1. D LAST ; End Task
  1. Q
  1. ;
  1. ;
  1. ;
  1. ;
  1. ;
  1. UPDATE ; Update entries in the Rate Type file #399.3
  1. N IBLOOK,IBINC,IBROWZ,IBZ,IBZIEN
  1. D BMES^XPDUTL(">>>Updating the 'DENTAL' entry in the RATE TYPE file #399.3 ...")
  1. F IBZ=1:1 S IBROWZ=$P($T(MODZ+IBZ),";;",2) Q:IBROWZ="QUIT" D
  1. . S IBLOOK=$P(IBROWZ,U),IBZIEN=$O(^DGCR(399.3,"B",IBLOOK,0))
  1. . I '$D(^DGCR(399.3,+IBZIEN,0)) D Q
  1. . . S IBARR(1)=" >> The 'DENTAL' entry could not be found in this file."
  1. . . S IBARR(2)=" If you have a different entry in this file that"
  1. . . S IBARR(3)=" represents DENTAL (such as 'INELIGIBLE DENTAL')"
  1. . . S IBARR(4)=" you will need to manually change this."
  1. . . S IBARR(5)=" Please use the following option to change the value"
  1. . . S IBARR(6)=" of the ACCOUNTS RECEIVABLE CATEGORY (#.06) field"
  1. . . S IBARR(7)=" to EMERGENCY/HUMANITARIAN:"
  1. . . S IBARR(8)=" Enter/Edit Charge Master (IBCR DISPLAY CHARGE"
  1. . . S IBARR(9)=" MASTER) located on the MCCR System Definition Menu."
  1. . . D BMES^XPDUTL(.IBARR) K IBARR
  1. . I $P($G(^DGCR(399.3,IBZIEN,0)),U,6)'=$P(IBROWZ,U,6) D Q
  1. . . S IBINC=$P($G(^DGCR(399.3,IBZIEN,0)),U,6)
  1. . . S DA=IBZIEN,DIE="^DGCR(399.3,",DR=".06////"_$P(IBROWZ,U,6)
  1. . . D ^DIE K DIE,DA,DR
  1. . . D BMES^XPDUTL(">> The ACCOUNTS RECEIVABLE CATEGORY field for the 'DENTAL'")
  1. . . D MES^XPDUTL(" entry has been changed from 'INELIGIBLE HOSP.'")
  1. . . D MES^XPDUTL(" to 'EMERGENCY/HUMANITARIAN'.")
  1. . D BMES^XPDUTL(">> The 'DENTAL' entry did not require an update.")
  1. Q
  1. ;
  1. MODZ ; Update entries that are currently incorrect in file #399.3 Rate Type
  1. ;;DENTAL^DENTAL^^DENTAL^0^2^p^^1
  1. ;;QUIT
  1. ;
  1. LAST ;
  1. D BMES^XPDUTL(">>>ALL POST-INIT Activities have been completed. <<<")
  1. Q