IBYEPT.m

IBYEPT ;ALB/BGA - PATCH IB*2*40 POST - INITIALIZATION ; 1-AUG-95

 ;;Version 2.0 ; INTEGRATED BILLING ;**40**; 21-MAR-94

 ;

EN ; Patch IB*2*40 post initialization.

 ;

 D FIX ;       Fix spelling of Non-Acute Classification entry

 D ^IBYEPT1 ;  Queue job to clean up 'Name of Insured'

 Q

 ;

 ;

FIX ; This call corrects a problem with the spelling of the

 ; entry 'ADMISSION TO CIRCUMENT SLOWNESS' (code 3.03) in

 ; file 356.4.  'CIRCUMENT' should be spelled 'CIRCUMVENT.'

 ;

 W !!,">>> Correcting the spelling of the entry 'ADMISSION TO CIRCUMENT SLOWNESS'"

 W !,"    (code 3.03) in file #356.4 ...   "

 N IBENT,DA,DR,DIE

 I '$D(^IBE(356.4,"C","3.03")) W *7,!,"    This entry is not cross-referenced correctly!",!,"    Please contact IRMFO Customer Service staff for assistance." Q

 S IBENT=$O(^IBE(356.4,"C","3.03",0)) I IBENT'>0 W *7,!,"    This entry could not be found!",!,"    Please contact IRMFO Customer Service staff for assistance." Q

 S DR=".01////ADMISSION TO CIRCUMVENT SLOWNESS",DIE="^IBE(356.4,",DA=IBENT D ^DIE

 W "done."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBYEPT   1061     printed  Apr 09, 2024@21:05:33                                                                                                                                                                                                      Page 2

IBYEPT    ;ALB/BGA - PATCH IB*2*40 POST - INITIALIZATION ; 1-AUG-95

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;**40**; 21-MAR-94

 +2       ;

EN        ; Patch IB*2*40 post initialization.

 +1       ;

 +2       ;       Fix spelling of Non-Acute Classification entry

           DO FIX

 +3       ;  Queue job to clean up 'Name of Insured'

           DO ^IBYEPT1

 +4        QUIT 

 +5       ;

 +6       ;

FIX       ; This call corrects a problem with the spelling of the

 +1       ; entry 'ADMISSION TO CIRCUMENT SLOWNESS' (code 3.03) in

 +2       ; file 356.4.  'CIRCUMENT' should be spelled 'CIRCUMVENT.'

 +3       ;

 +4        WRITE !!,">>> Correcting the spelling of the entry 'ADMISSION TO CIRCUMENT SLOWNESS'"

 +5        WRITE !,"    (code 3.03) in file #356.4 ...   "

 +6        NEW IBENT,DA,DR,DIE

 +7        IF '$DATA(^IBE(356.4,"C","3.03"))

               WRITE *7,!,"    This entry is not cross-referenced correctly!",!,"    Please contact IRMFO Customer Service staff for assistance."

               QUIT 

 +8        SET IBENT=$ORDER(^IBE(356.4,"C","3.03",0))

           IF IBENT'>0

               WRITE *7,!,"    This entry could not be found!",!,"    Please contact IRMFO Customer Service staff for assistance."

               QUIT 

 +9        SET DR=".01////ADMISSION TO CIRCUMVENT SLOWNESS"

           SET DIE="^IBE(356.4,"

           SET DA=IBENT

           DO ^DIE

 +10       WRITE "done."

 +11       QUIT