source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUHUIMSG.m@ 833

Last change on this file since 833 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.5 KB
RevLine 
[613]1XUHUIMSG ;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 ;
7M200 ; 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 ;
23MKEY ; 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 ;
38SENDIT ; 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
Note: See TracBrowser for help on using the repository browser.