source: FOIAVistA/trunk/r/MAILMAN-XM/XMUT4A.m@ 1552

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1XMUT4A ;ISC-SF/GMB- Integrity Checker for file 3.7 ;04/17/2002 11:54
2 ;;8.0;MailMan;;Jun 28, 2002
3ADDITC(XMDUZ,XMK,XMZ,XMKZ) ; "C" xref, but msg not in bskt. Fix it.
4 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:"")
5 S:'$D(^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)) ^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)=""
6 Q
7ADDITM(XMDUZ,XMK,XMZ,XMKZ) ; "M" xref, but msg not in bskt. Fix it.
8 ; out: XMKZ
9 S XMKZ=$$GETXMKZ(XMDUZ,XMK,XMZ)
10 D ADDITC(XMDUZ,XMK,XMZ,XMKZ)
11 Q
12ADDITN(XMDUZ,XMTYPE,XMK,XMZ) ; "N" or "N0" xref, but msg not in bskt. Fix it.
13 N XMKZ
14 S XMKZ=$$GETXMKZ(XMDUZ,XMK,XMZ)
15 S ^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)=XMZ_U_XMKZ_"^1"
16 S:'$D(^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)) ^XMB(3.7,"M",XMZ,XMDUZ,XMK,XMZ)=""
17 Q
18GETXMKZ(XMDUZ,XMK,XMZ) ; Find or create the message's basket sequence number.
19 N XMKZ
20 S XMKZ=0
21 F S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ)) Q:'XMKZ Q:$D(^(XMKZ,XMZ))
22 Q:XMKZ XMKZ
23 L +^XMB(3.7,XMDUZ,2,XMK)
24 S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",""),-1)+1
25 S ^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ,XMZ)=""
26 L -^XMB(3.7,XMDUZ,2,XMK)
27 Q XMKZ
Note: See TracBrowser for help on using the repository browser.