XIPXREF.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XIPXREF   511     printed  Apr 09, 2024@21:15:38                                                                                                                                                                                                      Page 2

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