XMUT4A.m

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 ---XMUT4A   1131     printed  Apr 09, 2024@21:15:15                                                                                                                                                                                                      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