|
Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
428 bytes
|
| Line | |
|---|
| 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.
