PRSDENG.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDENG   441     printed  Oct 16, 2024@18:25:55                                                                                                                                                                                                      Page 2

PRSDENG   ;HINES CAMPUS/GWB-ENGINEERING API ;7/3/95  10:06

 +1       ;;4.0;PAID;;Sep 21, 1995

 +2        KILL PRS

 +3        FOR FLD=".01",6,8,13,16,17,19,28,31,32,38,591,186.1,186.2,186.3,186.4

               Begin DoDot:1

 +4                SET Y=""

                   SET LOC=$PIECE(^DD(450,FLD,0),"^",4)

 +5                SET NODE=$PIECE(LOC,";",1)

                   SET PIECE=$PIECE(LOC,";",2)

 +6                IF $DATA(^PRSPC(PRSIEN,NODE))

                       SET Y=$PIECE(^PRSPC(PRSIEN,NODE),"^",PIECE)

 +7                SET $PIECE(PRS(FLD),"^",1)=Y

 +8                SET C=$PIECE(^DD(450,FLD,0),"^",2)

 +9                DO Y^DIQ

 +10               SET $PIECE(PRS(FLD),"^",2)=Y

               End DoDot:1

 +11       KILL FLD,Y,LOC,NODE,PIECE,C

 +12       QUIT