RMPR115P.m

RMPR115P ;VMP/RB - DELETE FIELD# 19 FOR FILE #660 ;11/7/05

 ;;3.0;Prosthetics;**115**;06/20/05

 ;;

 ;1. Post install to delete in ^DIC(19,int#,20), Entry Action for menu RMPR CLERK 

 ;

FIX1 ;Null Entry Action field for menu RMPR CLERK

 S OIEN=0,SRCH="R"

 F  S SRCH=$O(^DIC(19,"B",SRCH)) I SRCH="RMPR CLERK" S OIEN=$O(^DIC(19,"B",SRCH,OIEN)) Q

 I OIEN D

 . S DR="20////@",DIE="^DIC(19,",DA=OIEN D ^DIE

 K OIEN,SRCH,DR,DIE,DA

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPR115P   439     printed  Nov 22, 2024@17:41:39                                                                                                                                                                                                     Page 2

RMPR115P  ;VMP/RB - DELETE FIELD# 19 FOR FILE #660 ;11/7/05

 +1       ;;3.0;Prosthetics;**115**;06/20/05

 +2       ;;

 +3       ;1. Post install to delete in ^DIC(19,int#,20), Entry Action for menu RMPR CLERK 

 +4       ;

FIX1      ;Null Entry Action field for menu RMPR CLERK

 +1        SET OIEN=0

           SET SRCH="R"

 +2        FOR 

               SET SRCH=$ORDER(^DIC(19,"B",SRCH))

               IF SRCH="RMPR CLERK"

                   SET OIEN=$ORDER(^DIC(19,"B",SRCH,OIEN))

                   QUIT 

 +3        IF OIEN

               Begin DoDot:1

 +4                SET DR="20////@"

                   SET DIE="^DIC(19,"

                   SET DA=OIEN

                   DO ^DIE

               End DoDot:1

 +5        KILL OIEN,SRCH,DR,DIE,DA

 +6        QUIT