ADE0610.m

ADE0610 ;IHS/ANMC/HMW - ADA CODE FILE CORRECTIONS

 ;;6.0;ADE;**10**;DEC 31, 2001

 ;

2382 ;IHS/ANMC/HMW 11-2-2001 **10**

 ;Change Code 2382 synonym

 N ADEFDA,ADEDA

 S ADEDA=$O(^AUTTADA("B",2382,0))

 Q:'+ADEDA

 Q:'$D(^AUTTADA(ADEDA,0))

 Q:$P(^AUTTADA(ADEDA,0),U,6)="P COMPOS 3+S PR"

 S ADEFDA(9999999.31,ADEDA_",",".06")="P COMPOS 3+S PR"

 D FILE^DIE("","ADEFDA","")

 Q

ADE0610   ;IHS/ANMC/HMW - ADA CODE FILE CORRECTIONS

 +1       ;;6.0;ADE;**10**;DEC 31, 2001

 +2       ;

2382      ;IHS/ANMC/HMW 11-2-2001 **10**

 +1       ;Change Code 2382 synonym

 +2        NEW ADEFDA,ADEDA

 +3        SET ADEDA=$ORDER(^AUTTADA("B",2382,0))

 +4        IF '+ADEDA

               QUIT 

 +5        IF '$DATA(^AUTTADA(ADEDA,0))

               QUIT 

 +6        IF $PIECE(^AUTTADA(ADEDA,0),U,6)="P COMPOS 3+S PR"

               QUIT 

 +7        SET ADEFDA(9999999.31,ADEDA_",",".06")="P COMPOS 3+S PR"

 +8        DO FILE^DIE("","ADEFDA","")

 +9        QUIT