source:
WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRU99.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 369 bytes |
Line | |
---|---|
1 | RMPRU99 ;HINCIO/HNC - HISTORICAL ITEM TRIGGER; 9/28/04 12:27pm |
2 | ;;3.0;PROSTHETICS;**99**,FEB 09,1996 |
3 | EN ; |
4 | ;X=ien 661, DA=ien 660 |
5 | N RMPRITE,RMPR441 |
6 | S RMPR441=$P($G(^RMPR(661,X,0)),U,1) |
7 | I RMPR441="" S X="" Q |
8 | S RMPRITE=$P($G(^PRC(441,RMPR441,0)),U,2) |
9 | S X=RMPRITE |
10 | Q |
11 | DEL ; |
12 | Q |
13 | XREF ; |
14 | W !!,"Setting Cross Reference..." |
15 | S DIK="^RMPR(660,",DIK(1)="4" D ENALL^DIK |
16 | ;END |
Note:
See TracBrowser
for help on using the repository browser.