source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDENG.m@ 767

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

initial load of WorldVistAEHR

File size: 428 bytes
Line 
1PRSDENG ;HINES CAMPUS/GWB-ENGINEERING API ;7/3/95 10:06
2 ;;4.0;PAID;;Sep 21, 1995
3 K PRS
4 F FLD=".01",6,8,13,16,17,19,28,31,32,38,591,186.1,186.2,186.3,186.4 D
5 .S Y="",LOC=$P(^DD(450,FLD,0),"^",4)
6 .S NODE=$P(LOC,";",1),PIECE=$P(LOC,";",2)
7 .I $D(^PRSPC(PRSIEN,NODE)) S Y=$P(^PRSPC(PRSIEN,NODE),"^",PIECE)
8 .S $P(PRS(FLD),"^",1)=Y
9 .S C=$P(^DD(450,FLD,0),"^",2)
10 .D Y^DIQ
11 .S $P(PRS(FLD),"^",2)=Y
12 K FLD,Y,LOC,NODE,PIECE,C
13 Q
Note: See TracBrowser for help on using the repository browser.