Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMUT4A

XMUT4A.m

Go to the documentation of this file.
  1. XMUT4A ;ISC-SF/GMB- Integrity Checker for file 3.7 ;04/17/2002 11:54
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. ADDITC(XMDUZ,XMK,XMZ,XMKZ) ; "C" xref, but msg not in bskt. Fix it.
  1. 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:"")
  1. S:'$D(^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)) ^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)=""
  1. Q
  1. ADDITM(XMDUZ,XMK,XMZ,XMKZ) ; "M" xref, but msg not in bskt. Fix it.
  1. ; out: XMKZ
  1. S XMKZ=$$GETXMKZ(XMDUZ,XMK,XMZ)
  1. D ADDITC(XMDUZ,XMK,XMZ,XMKZ)
  1. Q
  1. ADDITN(XMDUZ,XMTYPE,XMK,XMZ) ; "N" or "N0" xref, but msg not in bskt. Fix it.
  1. N XMKZ
  1. S XMKZ=$$GETXMKZ(XMDUZ,XMK,XMZ)
  1. S ^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)=XMZ_U_XMKZ_"^1"
  1. S:'$D(^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)) ^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)=""
  1. Q
  1. GETXMKZ(XMDUZ,XMK,XMZ) ; Find or create the message's basket sequence number.
  1. N XMKZ
  1. S XMKZ=0
  1. F S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ)) Q:'XMKZ Q:$D(^(XMKZ,XMZ))
  1. Q:XMKZ XMKZ
  1. L +^XMB(3.7,XMDUZ,2,XMK)
  1. S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",""),-1)+1
  1. S ^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ,XMZ)=""
  1. L -^XMB(3.7,XMDUZ,2,XMK)
  1. Q XMKZ