Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
428 bytes
|
Rev | Line | |
---|
[628] | 1 | PRSDENG ;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.