source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XIPXREF.m@ 1073

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

initial load of WorldVistAEHR

File size: 487 bytes
Line 
1XIPXREF ;OIFO/SO- CONTAINS ANYCROSS REFERENCE LOGIC;5:20 AM 21 Jun 2003
2 ;;8.0;KERNEL;**292**;Jul 10, 1995
3 ;
4X512AD ;Cross-reference to determine if any changes have been made to
5 ;a record during the Update process
6 N XIPXREF
7 S XIPXREF=0
8 D CHK
9 I XIPXREF S ^XIP(5.12,"AD",DA)=""
10 Q
11 ;
12X513AC ;
13 N XIPXREF
14 S XIPXREF=0
15 D CHK
16 I XIPXREF S ^XIP(5.13,"AC",DA)=""
17 Q
18 ;
19CHK ;Compare the X1(n) array to X2(n) array
20 N I
21 S I=0
22 F S I=$O(X1(I)) Q:I<1 D
23 . I X1(I)'=X2(I) S XIPXREF=1
24 Q
Note: See TracBrowser for help on using the repository browser.