PRSDENG ;HINES CAMPUS/GWB-ENGINEERING API ;7/3/95  10:06
 ;;4.0;PAID;;Sep 21, 1995
 K PRS
 F FLD=".01",6,8,13,16,17,19,28,31,32,38,591,186.1,186.2,186.3,186.4 D
 .S Y="",LOC=$P(^DD(450,FLD,0),"^",4)
 .S NODE=$P(LOC,";",1),PIECE=$P(LOC,";",2)
 .I $D(^PRSPC(PRSIEN,NODE)) S Y=$P(^PRSPC(PRSIEN,NODE),"^",PIECE)
 .S $P(PRS(FLD),"^",1)=Y
 .S C=$P(^DD(450,FLD,0),"^",2)
 .D Y^DIQ
 .S $P(PRS(FLD),"^",2)=Y
 K FLD,Y,LOC,NODE,PIECE,C
 Q