- 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
- XIPXREF ;OIFO/SO- CONTAINS ANYCROSS REFERENCE LOGIC;5:20 AM 21 Jun 2003
- +1 ;;8.0;KERNEL;**292**;Jul 10, 1995
- +2 ;
- X512AD ;Cross-reference to determine if any changes have been made to
- +1 ;a record during the Update process
- +2 NEW XIPXREF
- +3 SET XIPXREF=0
- +4 DO CHK
- +5 IF XIPXREF
- SET ^XIP(5.12,"AD",DA)=""
- +6 QUIT
- +7 ;
- X513AC ;
- +1 NEW XIPXREF
- +2 SET XIPXREF=0
- +3 DO CHK
- +4 IF XIPXREF
- SET ^XIP(5.13,"AC",DA)=""
- +5 QUIT
- +6 ;
- CHK ;Compare the X1(n) array to X2(n) array
- +1 NEW I
- +2 SET I=0
- +3 FOR
- SET I=$ORDER(X1(I))
- IF I<1
- QUIT
- Begin DoDot:1
- +4 IF X1(I)'=X2(I)
- SET XIPXREF=1
- End DoDot:1
- +5 QUIT