RMPR117P.m

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

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

 ;;

 ;1. Post install to delete in ^DD for file #660, field 19 (if exists) 

 ;

FIX1 ;DELETE FIELD 19 FROM FILE #660 IF EXISTS

 Q:'$D(^DD(660,19,0))

 S DIK="^DD(660,",DA=19,DA(1)=660

 D ^DIK

 K DIK,DA

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPR117P   309     printed  Dec 13, 2024@02:31:39                                                                                                                                                                                                     Page 2

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

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

 +2       ;;

 +3       ;1. Post install to delete in ^DD for file #660, field 19 (if exists) 

 +4       ;

FIX1      ;DELETE FIELD 19 FROM FILE #660 IF EXISTS

 +1        if '$DATA(^DD(660,19,0))

               QUIT 

 +2        SET DIK="^DD(660,"

           SET DA=19

           SET DA(1)=660

 +3        DO ^DIK

 +4        KILL DIK,DA

 +5        QUIT