source: WorldVistAEHR/trunk/r/EQUIPMENT_TURN_IN_REQUEST-PRCN/PRCNMESG.m@ 846

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1PRCNMESG ;SSI/ALA-Build Mail Messages ;[ 03/28/96 11:24 AM ]
2 ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
3CON ; 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
9FND ; Find holders
10 S PDZ="" F S PDZ=$O(^XUSEC(KEY,PDZ)) Q:PDZ="" S XMY(PDZ)=""
11 K KEY,PDZ
12 Q
13MES ; 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))
22MS S XMTEXT="MSG(" D ^XMB
23 K NL,MSGN,II,MSG,NOD,XMY,XMDUZ,PRCNCMR,PRCNRQS,XMB
24 Q
Note: See TracBrowser for help on using the repository browser.