- XMA1B ;ISC-SF/GMB-Save/Delete Message APIs ;04/17/2002 07:09
- ;;8.0;MailMan;;Jun 28, 2002
- ; Was (WASH ISC)/CAP/THM
- ;
- ; Entry points (DBIA 10065):
- ; KL Delete a message from a basket
- ; KLQ Delete a message from a basket and put it in the WASTE basket.
- ; S2 Put a message in a basket
- ;
- KL ; Delete a message from a basket
- ; In:
- ; XMDUZ User's DUZ
- ; XMK Basket number (optional)
- ; XMZ Message number
- I '$D(XMK) S XMK=$O(^XMB(3.7,"M",XMZ,XMDUZ,0)) Q:'XMK
- I XMK,'$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) S XMK=$O(^XMB(3.7,"M",XMZ,XMDUZ,0)) Q:'XMK
- D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ)
- Q
- KLQ ; Delete a message from a basket AND put it in waste basket
- ; In:
- ; XMDUZ User's DUZ
- ; XMK Basket number (optional)
- ; XMZ Message number
- D KL Q:XMK=.5
- S XMKM=.5
- ; Fall through to S2
- S2 ; Put a message in a basket.
- ; In:
- ; XMDUZ User's DUZ
- ; XMKM Basket number
- ; XMZ Message number
- N XMK,XMKN
- K XMERR,^TMP("XMERR",$J)
- S XMK=$$XMK^XMXPARM(XMDUZ,"XMKM",.XMKM)
- I $D(XMERR) K XMERR,^TMP("XMERR",$J) Q
- I XMK>1 S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
- E S XMKN=$$EZBLD^DIALOG($S(XMK=.5:37004,1:37005)) ; WASTE / IN
- D PUTMSG^XMXMSGS2(XMDUZ,XMK,XMKN,XMZ)
- K XMKM
- Q
- XMA1B ;ISC-SF/GMB-Save/Delete Message APIs ;04/17/2002 07:09
- +1 ;;8.0;MailMan;;Jun 28, 2002
- +2 ; Was (WASH ISC)/CAP/THM
- +3 ;
- +4 ; Entry points (DBIA 10065):
- +5 ; KL Delete a message from a basket
- +6 ; KLQ Delete a message from a basket and put it in the WASTE basket.
- +7 ; S2 Put a message in a basket
- +8 ;
- KL ; Delete a message from a basket
- +1 ; In:
- +2 ; XMDUZ User's DUZ
- +3 ; XMK Basket number (optional)
- +4 ; XMZ Message number
- +5 IF '$DATA(XMK)
- SET XMK=$ORDER(^XMB(3.7,"M",XMZ,XMDUZ,0))
- IF 'XMK
- QUIT
- +6 IF XMK
- IF '$DATA(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0))
- SET XMK=$ORDER(^XMB(3.7,"M",XMZ,XMDUZ,0))
- IF 'XMK
- QUIT
- +7 DO ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ)
- +8 QUIT
- KLQ ; Delete a message from a basket AND put it in waste basket
- +1 ; In:
- +2 ; XMDUZ User's DUZ
- +3 ; XMK Basket number (optional)
- +4 ; XMZ Message number
- +5 DO KL
- IF XMK=.5
- QUIT
- +6 SET XMKM=.5
- +7 ; Fall through to S2
- S2 ; Put a message in a basket.
- +1 ; In:
- +2 ; XMDUZ User's DUZ
- +3 ; XMKM Basket number
- +4 ; XMZ Message number
- +5 NEW XMK,XMKN
- +6 KILL XMERR,^TMP("XMERR",$JOB)
- +7 SET XMK=$$XMK^XMXPARM(XMDUZ,"XMKM",.XMKM)
- +8 IF $DATA(XMERR)
- KILL XMERR,^TMP("XMERR",$JOB)
- QUIT
- +9 IF XMK>1
- SET XMKN=$PIECE(^XMB(3.7,XMDUZ,2,XMK,0),U,1)
- +10 ; WASTE / IN
- IF '$TEST
- SET XMKN=$$EZBLD^DIALOG($SELECT(XMK=.5:37004,1:37005))
- +11 DO PUTMSG^XMXMSGS2(XMDUZ,XMK,XMKN,XMZ)
- +12 KILL XMKM
- +13 QUIT