25 lines
487 B
Mathematica
25 lines
487 B
Mathematica
|
XIPXREF ;OIFO/SO- CONTAINS ANYCROSS REFERENCE LOGIC;5:20 AM 21 Jun 2003
|
||
|
|
;;8.0;KERNEL;**292**;Jul 10, 1995
|
||
|
|
;
|
||
|
|
X512AD ;Cross-reference to determine if any changes have been made to
|
||
|
|
;a record during the Update process
|
||
|
|
N XIPXREF
|
||
|
|
S XIPXREF=0
|
||
|
|
D CHK
|
||
|
|
I XIPXREF S ^XIP(5.12,"AD",DA)=""
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
X513AC ;
|
||
|
|
N XIPXREF
|
||
|
|
S XIPXREF=0
|
||
|
|
D CHK
|
||
|
|
I XIPXREF S ^XIP(5.13,"AC",DA)=""
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
CHK ;Compare the X1(n) array to X2(n) array
|
||
|
|
N I
|
||
|
|
S I=0
|
||
|
|
F S I=$O(X1(I)) Q:I<1 D
|
||
|
|
. I X1(I)'=X2(I) S XIPXREF=1
|
||
|
|
Q
|