| 1 | XUSECBUL ;SFISC/BT-SEND SEPARATION MESSAGE TO G.XUSEC/PRS PAID SEPARATION ;10 AM 10 Jan 2006
|
|---|
| 2 | ;;8.0;KERNEL;**384**;Jul 10, 1995;Build 8
|
|---|
| 3 | N TMP,NAME,SSN,SERVICE,MSGSBJ,WHO,LN,OUT,IEN200
|
|---|
| 4 | S (NAME,SSN,SERVICE,OUT)=""
|
|---|
| 5 | D I OUT'="Y" Q ;Person's 'SEPARATION IND' not equal to Y
|
|---|
| 6 | . N DIERR,IENS,Z,ZERR
|
|---|
| 7 | . S IENS=DA_","
|
|---|
| 8 | . D GETS^DIQ(450,IENS,".01;8;80;700","EI","Z","ZERR")
|
|---|
| 9 | . S OUT=Z(450,IENS,80,"E")
|
|---|
| 10 | . I OUT'="Y" Q
|
|---|
| 11 | . S NAME=Z(450,IENS,.01,"E")
|
|---|
| 12 | . S SSN="***-**-"_$P(Z(450,IENS,8,"E"),"-",3)
|
|---|
| 13 | . I Z(450,IENS,700,"I") S SERVICE=$$GET1^DIQ(200,Z(450,IENS,700,"I")_",",29,"","","ZERR"),IEN200=Z(450,IENS,700,"I")
|
|---|
| 14 | . Q
|
|---|
| 15 | I +IEN200,'$$ACTIVE^XUSER(+IEN200) Q
|
|---|
| 16 | ; Mail back message
|
|---|
| 17 | S LN=1
|
|---|
| 18 | S TMP(LN)=NAME_" ("_SSN_") separated from "_SERVICE_".",LN=LN+1
|
|---|
| 19 | S TMP(LN)="Please terminate the employee.",LN=LN+1
|
|---|
| 20 | S WHO(DUZ)=""
|
|---|
| 21 | I $$GOTLOCAL^XMXAPIG("XUSEC/PRS PAID SEPARATION") S WHO("G.XUSEC/PRS PAID SEPARATION")=""
|
|---|
| 22 | S MSGSBJ="Employee ("_NAME_") Seperated From Station Notification"
|
|---|
| 23 | ;
|
|---|
| 24 | SEND D SENDMSG^XMXAPI(DUZ,MSGSBJ,"TMP",.WHO)
|
|---|
| 25 | D CLEAN^DILF
|
|---|
| 26 | Q
|
|---|
