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/XU8P378B.m@ 660

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

initial load of WorldVistAEHR
File size: 2.1 KB
Line 
1XU8P378B ;SFISC/SO-CREATE NEW-STYLE XREF ;8:38 AM 30 Aug 2005
2 ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
3 ;
4 N ZZXR,ZZRES,ZZOUT
5 S ZZXR("FILE")=5
6 S ZZXR("NAME")="ADUALC"
7 S ZZXR("TYPE")="MU"
8 S ZZXR("USE")="S"
9 S ZZXR("EXECUTION")="R"
10 S ZZXR("ACTIVITY")="IR"
11 S ZZXR("SHORT DESCR")="MU"
12 S ZZXR("DESCR",1)="This cross reference is used to maintain the dual REGULAR ""C"" cross "
13 S ZZXR("DESCR",2)="reference on the ABBREVIATION(#1) field and the VA STATE CODE(#2) field "
14 S ZZXR("DESCR",3)="and replaces the SET and KILL logic on the REGULAR traditional cross "
15 S ZZXR("DESCR",4)="reference. The REGULAR traditional cross references SET and KILL "
16 S ZZXR("DESCR",5)="logic are set to a ""Q"" so look ups will not error out."
17 S ZZXR("DESCR",6)=" "
18 S ZZXR("DESCR",7)="5,1 ABBREVIATION 0;2 FREE TEXT (Required)"
19 S ZZXR("DESCR",8)=" CROSS-REFERENCE: 5^C "
20 S ZZXR("DESCR",9)=" 1)= Q"
21 S ZZXR("DESCR",10)=" 2)= Q"
22 S ZZXR("DESCR",11)=" 3)= Used in conjunction with the 'ADUALC' "
23 S ZZXR("DESCR",12)=" xref."
24 S ZZXR("DESCR",13)=" "
25 S ZZXR("DESCR",14)="5,2 VA STATE CODE 0;3 FREE TEXT"
26 S ZZXR("DESCR",15)=" CROSS-REFERENCE: 5^C "
27 S ZZXR("DESCR",16)=" 1)= Q"
28 S ZZXR("DESCR",17)=" 2)= Q"
29 S ZZXR("DESCR",18)=" 3)= Used in conjunction with the 'ADUALC' "
30 S ZZXR("DESCR",19)=" xref."
31 S ZZXR("SET")="I ((X2(1)'="""")!(X1(1)'=X2(1))),X2(1)'="""" S ^DIC(5,""C"",X2(1),DA)="""" I ((X2(2)'="""")!(X1(2)'=X2(2))),X2(2)'="""" S ^DIC(5,""C"",X2(2),DA)="""" Q"
32 S ZZXR("KILL")="I ((X2(1)="""")!(X1(1)'=X2(1))),X1(1)'="""" K ^DIC(5,""C"",X1(1),DA) I ((X2(2)="""")!(X1(2)'=X2(2))),X1(2)'="""" K ^DIC(5,""C"",X1(2),DA) Q"
33 S ZZXR("WHOLE KILL")="K ^DIC(5,""C"")"
34 S ZZXR("VAL",1)=1
35 S ZZXR("VAL",1,"COLLATION")="F"
36 S ZZXR("VAL",2)=2
37 S ZZXR("VAL",2,"COLLATION")="F"
38 D CREIXN^DDMOD(.ZZXR,"SW",.ZZRES,"ZZOUT")
39 Q
Note: See TracBrowser for help on using the repository browser.