source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSASBUL.m@ 1710

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

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1YSASBUL ;692/DCL-SEND BULLETIN VIA E-MAIL ON ASI TO SIGN ;1/23/97 11:37
2 ;;5.01;MENTAL HEALTH;**24**;Dec 30, 1994
3 Q
4 ;
5BUL(YSASIEN,YSAST,YSASI) ;Send e-mail from transcriber to interviewer that ASI is ready for signature
6 Q:$G(YSASIEN)'>0
7 Q:$G(YSAST)'>0
8 Q:$G(YSASI)'>0
9 N XMSUB,XMTEXT,XMY,XMDUZ,YSASL,YSASTE,YSASPE,YSASDUZE
10 S YSASDUZE=$P(^VA(200,DUZ,0),"^")
11 S XMY(DUZ)=""
12 S XMY(YSAST)=""
13 S XMY(YSASI)=""
14 N DUZ
15 S (DUZ,XMDUZ)=.5,XMSUB="ASI FOR "_$$F(.02)_" IS READY FOR REVIEW AND SIGNATURE"
16 S XMTEXT="^TMP($J,""YSASBUL"","
17 K ^TMP($J,"YSASBUL")
18 ;names in external format
19 S YSASPE=$$F(.02),YSASTE=$$F(.14)
20 S ^TMP($J,"YSASBUL",$$L)="To: "_$$F(.09)
21 S ^TMP($J,"YSASBUL",$$L)=" "
22 S ^TMP($J,"YSASBUL",$$L)=$$F(.04)_" ASI, on "_$$F(.05)_", for "_$E($P(YSASPE,",",2))_". "_$P(YSASPE,",")_" has been completed, by "_$E($P(YSASTE,",",2))_". "_$P(YSASTE,",")_","
23 S ^TMP($J,"YSASBUL",$$L)="and is ready for your review and electronic signature."
24 S ^TMP($J,"YSASBUL",$$L)=" "
25 S ^TMP($J,"YSASBUL",$$L)=" "
26 S ^TMP($J,"YSASBUL",$$L)=" "
27 S ^TMP($J,"YSASBUL",$$L)="cc: "_YSASTE
28 S:YSASTE'=YSASDUZE ^TMP($J,"YSASBUL",$$L)="cc: "_YSASDUZE
29 D ^XMD
30 K ^TMP($J,"YSASBUL")
31 Q
32 ;
33L() ;Line counter
34 S YSASL=$G(YSASL)+1
35 Q YSASL
36 ;
37F(YSASF) ;Return value of field
38 N DIERR
39 Q $$GET1^DIQ(604,YSASIEN_",",YSASF)
Note: See TracBrowser for help on using the repository browser.