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