| 1 | PRSD450 ;HISC/GWB-UPDATE 450 POINTER ON SSN CHANGE ;4/25/95 09:47
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | SET450 ;Set PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field
|
|---|
| 4 | ;when NEW PERSON SSN field is set
|
|---|
| 5 | 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
|
|---|
| 6 | Q
|
|---|
| 7 | KILL450 ;Kill PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field
|
|---|
| 8 | ;when NEW PERSON SSN field is killed
|
|---|
| 9 | 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
|
|---|
| 10 | Q
|
|---|
| 11 | SET200 ;Set PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field
|
|---|
| 12 | ;when PAID EMPLOYEE SSN field is set
|
|---|
| 13 | 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
|
|---|
| 14 | Q
|
|---|
| 15 | KILL200 ;Kill PAID EMPLOYEE NEW PERSON field and NEW PERSON PAID EMPLOYEE field
|
|---|
| 16 | ;when PAID EMPLOYEE SSN field is killed
|
|---|
| 17 | 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
|
|---|
| 18 | Q
|
|---|
