Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: RMPR117P

RMPR117P.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR117P   309     printed  Apr 09, 2024@21:34:02                                                                                                                                                                                                     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