Routine: PRSD450

PRSD450 ;HISC/GWB-UPDATE 450 POINTER ON SSN CHANGE ;4/25/95  09:47

 ;;4.0;PAID;;Sep 21, 1995

SET450 ;Set PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field

 ;when NEW PERSON SSN field is set

 I $D(^PRSPC("SSN",X)) S IEN450=$O(^PRSPC("SSN",X,0)),$P(^PRSPC(IEN450,200),"^",1)=DA,$P(^VA(200,DA,450),"^",1)=IEN450 K IEN450

KILL450 ;Kill PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field

 ;when NEW PERSON SSN field is killed

 I $D(^PRSPC("SSN",X)) S IEN450=$O(^PRSPC("SSN",X,0)),$P(^PRSPC(IEN450,200),"^",1)="",$P(^VA(200,DA,450),"^",1)="" K IEN450

SET200 ;Set PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field

 ;when PAID EMPLOYEE SSN field is set

 I $D(^VA(200,"SSN",X)) S IEN200=$O(^VA(200,"SSN",X,0)),$P(^VA(200,IEN200,450),"^",1)=DA,$P(^PRSPC(DA,200),"^",1)=IEN200 K IEN200

KILL200 ;Kill PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field

 ;when PAID EMPLOYEE SSN field is killed

 I $D(^VA(200,"SSN",X)) S IEN200=$O(^VA(200,"SSN",X,0)),$P(^VA(200,IEN200,450),"^",1)="",$P(^PRSPC(DA,200),"^",1)="" K IEN200

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSD450   1099     printed  Feb 18, 2025@23:51:33                                                                                                                                                                                                     Page 2

PRSD450   ;HISC/GWB-UPDATE 450 POINTER ON SSN CHANGE ;4/25/95  09:47

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

SET450    ;Set PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field

 +1       ;when NEW PERSON SSN field is set

 +2        IF $DATA(^PRSPC("SSN",X))

               SET IEN450=$ORDER(^PRSPC("SSN",X,0))

               SET $PIECE(^PRSPC(IEN450,200),"^",1)=DA

               SET $PIECE(^VA(200,DA,450),"^",1)=IEN450

               KILL IEN450

 +3        QUIT

KILL450   ;Kill PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field

 +1       ;when NEW PERSON SSN field is killed

 +2        IF $DATA(^PRSPC("SSN",X))

               SET IEN450=$ORDER(^PRSPC("SSN",X,0))

               SET $PIECE(^PRSPC(IEN450,200),"^",1)=""

               SET $PIECE(^VA(200,DA,450),"^",1)=""

               KILL IEN450

 +3        QUIT

SET200    ;Set PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field

 +1       ;when PAID EMPLOYEE SSN field is set

 +2        IF $DATA(^VA(200,"SSN",X))

               SET IEN200=$ORDER(^VA(200,"SSN",X,0))

               SET $PIECE(^VA(200,IEN200,450),"^",1)=DA

               SET $PIECE(^PRSPC(DA,200),"^",1)=IEN200

               KILL IEN200

 +3        QUIT

KILL200   ;Kill PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field

 +1       ;when PAID EMPLOYEE SSN field is killed

 +2        IF $DATA(^VA(200,"SSN",X))

               SET IEN200=$ORDER(^VA(200,"SSN",X,0))

               SET $PIECE(^VA(200,IEN200,450),"^",1)=""

               SET $PIECE(^PRSPC(DA,200),"^",1)=""

               KILL IEN200

 +3        QUIT

PRSD450.m