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 | |
| Rev | Line | |
|---|---|---|
| [613] | 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.
