| 1 | XUHUIMSG ;SFISC/SO- Create Mail Message Of Change ;6:27 AM 10 Jun 2002
|
|---|
| 2 | ;;8.0;KERNEL;**236**;Jul 10, 1995
|
|---|
| 3 | I XUHUIXR="AXUHUI" D M200 Q
|
|---|
| 4 | D MKEY
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | M200 ; Build message for top level file 200 stuff
|
|---|
| 8 | N I,MTEXT,SUBJ
|
|---|
| 9 | S I=1,MTEXT=""
|
|---|
| 10 | S MTEXT(I)=" ",I=I+1
|
|---|
| 11 | S MTEXT(I)="Event Change - Name or Termination Date or DOB or SSN or several of these.",I=I+1
|
|---|
| 12 | S MTEXT(I)=" ",I=I+1
|
|---|
| 13 | S MTEXT(I)="Orginal Name: "_XUHUIX1,I=I+1
|
|---|
| 14 | S MTEXT(I)=" ",I=I+1
|
|---|
| 15 | S MTEXT(I)="Old Name: "_XUHUIX1(1)_" New Name: "_XUHUIX2(1),I=I+1
|
|---|
| 16 | S MTEXT(I)="Old Termination Date: "_XUHUIX1(2)_" New Termination Date: "_XUHUIX2(2),I=I+1
|
|---|
| 17 | S MTEXT(I)="Old DOB: "_XUHUIX1(3)_" New DOB: "_XUHUIX2(3),I=I+1
|
|---|
| 18 | S MTEXT(I)="Old SSN: "_XUHUIX1(4)_" New SSN: "_XUHUIX2(4)
|
|---|
| 19 | S SUBJ="Hui Change Event (New Person)"
|
|---|
| 20 | D SENDIT
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | MKEY ; Build message for Provider Key change of status
|
|---|
| 24 | N MTEXT,I,SUBJ,NAME,SSN
|
|---|
| 25 | S I=1,MTEXT=""
|
|---|
| 26 | S MTEXT(I)=" ",I=I+1
|
|---|
| 27 | D CLEAN^DILF
|
|---|
| 28 | S NAME=$$GET1^DIQ(200,XUHUIDA(1)_",","NAME")
|
|---|
| 29 | S SSN=$$GET1^DIQ(200,XUHUIDA(1)_",","SSN")
|
|---|
| 30 | D CLEAN^DILF
|
|---|
| 31 | S MTEXT(I)="Name: "_NAME_" SSN: "_SSN,I=I+1
|
|---|
| 32 | D CLEAN^DILF
|
|---|
| 33 | I $P(^DIC(19.1,XUHUIX,0),U)="PROVIDER" S MTEXT(I)="Provider Key: "_$S(XUHUIA="S":"Allocated",1:"De-allocated")
|
|---|
| 34 | S SUBJ="Hui Change Event (Provider Key)"
|
|---|
| 35 | D SENDIT
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | SENDIT ; Send the message
|
|---|
| 39 | ; Test to see if there are MEMBERS to prevent Unreferenced message
|
|---|
| 40 | I '$$GOTLOCAL^XMXAPIG("XUHUI CHANGE EVENT") Q ;Mail Group Has No Members
|
|---|
| 41 | ; Mail Group Has Memebers so send the message
|
|---|
| 42 | D SENDMSG^XMXAPI(DUZ,SUBJ,"MTEXT","G.XUHUI CHANGE EVENT")
|
|---|
| 43 | Q
|
|---|
