XMUT4A ;ISC-SF/GMB- Integrity Checker for file 3.7 ;04/17/2002 11:54
;;8.0;MailMan;;Jun 28, 2002
ADDITC(XMDUZ,XMK,XMZ,XMKZ) ; "C" xref, but msg not in bskt. Fix it.
S ^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)=XMZ_U_XMKZ_U_$S($D(^XMB(3.7,XMDUZ,"N0",XMK,XMZ)):"1",$D(^XMB(3.7,XMDUZ,"N",XMK,XMZ)):"1",1:"")
S:'$D(^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)) ^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)=""
Q
ADDITM(XMDUZ,XMK,XMZ,XMKZ) ; "M" xref, but msg not in bskt. Fix it.
; out: XMKZ
S XMKZ=$$GETXMKZ(XMDUZ,XMK,XMZ)
D ADDITC(XMDUZ,XMK,XMZ,XMKZ)
Q
ADDITN(XMDUZ,XMTYPE,XMK,XMZ) ; "N" or "N0" xref, but msg not in bskt. Fix it.
N XMKZ
S XMKZ=$$GETXMKZ(XMDUZ,XMK,XMZ)
S ^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)=XMZ_U_XMKZ_"^1"
S:'$D(^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)) ^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)=""
Q
GETXMKZ(XMDUZ,XMK,XMZ) ; Find or create the message's basket sequence number.
N XMKZ
S XMKZ=0
F S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ)) Q:'XMKZ Q:$D(^(XMKZ,XMZ))
Q:XMKZ XMKZ
L +^XMB(3.7,XMDUZ,2,XMK)
S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",""),-1)+1
S ^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ,XMZ)=""
L -^XMB(3.7,XMDUZ,2,XMK)
Q XMKZ
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMUT4A 1131 printed Dec 13, 2024@02:13:34 Page 2
XMUT4A ;ISC-SF/GMB- Integrity Checker for file 3.7 ;04/17/2002 11:54
+1 ;;8.0;MailMan;;Jun 28, 2002
ADDITC(XMDUZ,XMK,XMZ,XMKZ) ; "C" xref, but msg not in bskt. Fix it.
+1 SET ^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)=XMZ_U_XMKZ_U_$SELECT($DATA(^XMB(3.7,XMDUZ,"N0",XMK,XMZ)):"1",$DATA(^XMB(3.7,XMDUZ,"N",XMK,XMZ)):"1",1:"")
+2 if '$DATA(^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ))
SET ^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)=""
+3 QUIT
ADDITM(XMDUZ,XMK,XMZ,XMKZ) ; "M" xref, but msg not in bskt. Fix it.
+1 ; out: XMKZ
+2 SET XMKZ=$$GETXMKZ(XMDUZ,XMK,XMZ)
+3 DO ADDITC(XMDUZ,XMK,XMZ,XMKZ)
+4 QUIT
ADDITN(XMDUZ,XMTYPE,XMK,XMZ) ; "N" or "N0" xref, but msg not in bskt. Fix it.
+1 NEW XMKZ
+2 SET XMKZ=$$GETXMKZ(XMDUZ,XMK,XMZ)
+3 SET ^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)=XMZ_U_XMKZ_"^1"
+4 if '$DATA(^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ))
SET ^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)=""
+5 QUIT
GETXMKZ(XMDUZ,XMK,XMZ) ; Find or create the message's basket sequence number.
+1 NEW XMKZ
+2 SET XMKZ=0
+3 FOR
SET XMKZ=$ORDER(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ))
if 'XMKZ
QUIT
if $DATA(^(XMKZ,XMZ))
QUIT
+4 if XMKZ
QUIT XMKZ
+5 LOCK +^XMB(3.7,XMDUZ,2,XMK)
+6 SET XMKZ=$ORDER(^XMB(3.7,XMDUZ,2,XMK,1,"C",""),-1)+1
+7 SET ^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ,XMZ)=""
+8 LOCK -^XMB(3.7,XMDUZ,2,XMK)
+9 QUIT XMKZ
