IB20P159.m

IB20P159 ;ALB/MR - Diagnostic Measures Updates POST-INIT ;13-JUL-01

 ;;2.0;INTEGRATED BILLING;**159**;21-MAR-94

 ;

 ; -  Fix the wrong entry 'BILL PURGE' if necessary. The correct name

 ;    is 'BILL PURGED'.

 I $D(^IBE(356.8,"B","BILL PURGE")) D RNB

 ;

 Q

 ;

RNB ; - Fix the 'BILL PURGE' entry in the RNB file (#356.8)

 N IBRNB,DIE,DA,DR,DD,DINUM,Y

 ;

 D BMES^XPDUTL("Fixing 'BILL PURGED' entry in the RNB file")

 ;

 S IBRNB=$O(^IBE(356.8,"B","BILL PURGE",""))

 I IBRNB S DA=IBRNB,DIE="^IBE(356.8,",DR=".01///BILL PURGED" D ^DIE

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P159   554     printed  Mar 13, 2025@21:06:30                                                                                                                                                                                                     Page 2

IB20P159  ;ALB/MR - Diagnostic Measures Updates POST-INIT ;13-JUL-01

 +1       ;;2.0;INTEGRATED BILLING;**159**;21-MAR-94

 +2       ;

 +3       ; -  Fix the wrong entry 'BILL PURGE' if necessary. The correct name

 +4       ;    is 'BILL PURGED'.

 +5        IF $DATA(^IBE(356.8,"B","BILL PURGE"))

               DO RNB

 +6       ;

 +7        QUIT 

 +8       ;

RNB       ; - Fix the 'BILL PURGE' entry in the RNB file (#356.8)

 +1        NEW IBRNB,DIE,DA,DR,DD,DINUM,Y

 +2       ;

 +3        DO BMES^XPDUTL("Fixing 'BILL PURGED' entry in the RNB file")

 +4       ;

 +5        SET IBRNB=$ORDER(^IBE(356.8,"B","BILL PURGE",""))

 +6        IF IBRNB

               SET DA=IBRNB

               SET DIE="^IBE(356.8,"

               SET DR=".01///BILL PURGED"

               DO ^DIE

 +7       ;

 +8        QUIT