source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR115P.m@ 861

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

initial load of WorldVistAEHR

File size: 427 bytes
Line 
1RMPR115P ;VMP/RB - DELETE FIELD# 19 FOR FILE #660 ;11/7/05
2 ;;3.0;Prosthetics;**115**;06/20/05
3 ;;
4 ;1. Post install to delete in ^DIC(19,int#,20), Entry Action for menu RMPR CLERK
5 ;
6FIX1 ;Null Entry Action field for menu RMPR CLERK
7 S OIEN=0,SRCH="R"
8 F S SRCH=$O(^DIC(19,"B",SRCH)) I SRCH="RMPR CLERK" S OIEN=$O(^DIC(19,"B",SRCH,OIEN)) Q
9 I OIEN D
10 . S DR="20////@",DIE="^DIC(19,",DA=OIEN D ^DIE
11 K OIEN,SRCH,DR,DIE,DA
12 Q
Note: See TracBrowser for help on using the repository browser.