| 1 | YSASBUL ;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 | ;
|
|---|
| 5 | BUL(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 | ;
|
|---|
| 33 | L() ;Line counter
|
|---|
| 34 | S YSASL=$G(YSASL)+1
|
|---|
| 35 | Q YSASL
|
|---|
| 36 | ;
|
|---|
| 37 | F(YSASF) ;Return value of field
|
|---|
| 38 | N DIERR
|
|---|
| 39 | Q $$GET1^DIQ(604,YSASIEN_",",YSASF)
|
|---|
