source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRU99.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 369 bytes
Line 
1RMPRU99 ;HINCIO/HNC - HISTORICAL ITEM TRIGGER; 9/28/04 12:27pm
2 ;;3.0;PROSTHETICS;**99**,FEB 09,1996
3EN ;
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
11DEL ;
12 Q
13XREF ;
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.