ENXYIPR.m

ENXYIPR ;WCIOFO/SAB-Pre Init to correct EIL descriptions ;8/5/97

 ;;7.0;ENGINEERING;**44**;Aug 17,1993

EN ; entry point - correct spelling of several descriptions

 N ENDA,ENFDA

 S ENDA=$$FIND1^DIC(6914.9,"","X","CHAPLIAN","D")

 I ENDA S ENFDA(6914.9,ENDA_",",1)="CHAPLAIN"

 S ENDA=$$FIND1^DIC(6914.9,"","X","CLINICAL PSYCOLOGY","D")

 I ENDA S ENFDA(6914.9,ENDA_",",1)="CLINICAL PSYCHOLOGY"

 S ENDA=$$FIND1^DIC(6914.9,"","X","PSYCHIATRY/NEURLOLGY","D")

 I ENDA S ENFDA(6914.9,ENDA_",",1)="PSYCHIATRY/NEUROLOGY"

 I $D(ENFDA) D FILE^DIE("E","ENFDA") D MSG^DIALOG()

 Q

 ;ENXYIPR

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENXYIPR   588     printed  Dec 13, 2024@01:57:10                                                                                                                                                                                                      Page 2

ENXYIPR   ;WCIOFO/SAB-Pre Init to correct EIL descriptions ;8/5/97

 +1       ;;7.0;ENGINEERING;**44**;Aug 17,1993

EN        ; entry point - correct spelling of several descriptions

 +1        NEW ENDA,ENFDA

 +2        SET ENDA=$$FIND1^DIC(6914.9,"","X","CHAPLIAN","D")

 +3        IF ENDA

               SET ENFDA(6914.9,ENDA_",",1)="CHAPLAIN"

 +4        SET ENDA=$$FIND1^DIC(6914.9,"","X","CLINICAL PSYCOLOGY","D")

 +5        IF ENDA

               SET ENFDA(6914.9,ENDA_",",1)="CLINICAL PSYCHOLOGY"

 +6        SET ENDA=$$FIND1^DIC(6914.9,"","X","PSYCHIATRY/NEURLOLGY","D")

 +7        IF ENDA

               SET ENFDA(6914.9,ENDA_",",1)="PSYCHIATRY/NEUROLOGY"

 +8        IF $DATA(ENFDA)

               DO FILE^DIE("E","ENFDA")

               DO MSG^DIALOG()

 +9        QUIT 

 +10      ;ENXYIPR