| 1 | PRCNMESG ;SSI/ALA-Build Mail Messages ;[ 03/28/96 11:24 AM ]
|
|---|
| 2 | ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
|
|---|
| 3 | CON ; Get the selected concurring officials to send message to
|
|---|
| 4 | S CFL=0 Q:'$D(^PRCN(413,DA,5))
|
|---|
| 5 | S N=0 F S N=$O(^PRCN(413,DA,5,N)) Q:'N D
|
|---|
| 6 | . S CFL=1,NUM=^PRCN(413,DA,5,N,0)
|
|---|
| 7 | . S XMY(+^PRCN(413.3,+NUM,0))=""
|
|---|
| 8 | Q
|
|---|
| 9 | FND ; Find holders
|
|---|
| 10 | S PDZ="" F S PDZ=$O(^XUSEC(KEY,PDZ)) Q:PDZ="" S XMY(PDZ)=""
|
|---|
| 11 | K KEY,PDZ
|
|---|
| 12 | Q
|
|---|
| 13 | MES ; Send mail message to requestor and CMR Official
|
|---|
| 14 | S PRCNCMR=$P(^PRCN(413,IN,0),U,6),PRCNRQS=$P(^(0),U,2)
|
|---|
| 15 | S XMB(1)=$P(^PRCN(413,IN,0),U) S:$G(MSGN)=53 XMB(2)=$P(^PRCN(413,IN,0),U,18)
|
|---|
| 16 | S XMDUZ=DUZ,XMY(PRCNCMR)="",XMY(PRCNRQS)=""
|
|---|
| 17 | S XMB=$S(MSGN=39:"PRCNEQC1",MSGN=40:"PRCNEQC2",MSGN=43:"PRCNEQC3",MSGN=44:"PRCNEQC4",MSGN=53:"PRCNEQFN",1:$G(XMB))
|
|---|
| 18 | I $G(NOD)="" G MS
|
|---|
| 19 | ; Append the explanation text to end of this mail message
|
|---|
| 20 | S NL=$P($G(^PRCN(413,IN,NOD,0)),U,3)
|
|---|
| 21 | I NL'="" F II=1:1:NL S MSG(II)=$G(^PRCN(413,IN,NOD,II,0))
|
|---|
| 22 | MS S XMTEXT="MSG(" D ^XMB
|
|---|
| 23 | K NL,MSGN,II,MSG,NOD,XMY,XMDUZ,PRCNCMR,PRCNRQS,XMB
|
|---|
| 24 | Q
|
|---|
