source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR117P.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 298 bytes
Line 
1RMPR117P ;VMP/RB - DELETE FIELD# 19 FOR FILE #660 ;11/7/05
2 ;;3.0;Prosthetics;**117**;06/20/05
3 ;;
4 ;1. Post install to delete in ^DD for file #660, field 19 (if exists)
5 ;
6FIX1 ;DELETE FIELD 19 FROM FILE #660 IF EXISTS
7 Q:'$D(^DD(660,19,0))
8 S DIK="^DD(660,",DA=19,DA(1)=660
9 D ^DIK
10 K DIK,DA
11 Q
Note: See TracBrowser for help on using the repository browser.