XU8P378B ;SFISC/SO-CREATE NEW-STYLE XREF ;8:38 AM 30 Aug 2005
;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
;
N ZZXR,ZZRES,ZZOUT
S ZZXR("FILE")=5
S ZZXR("NAME")="ADUALC"
S ZZXR("TYPE")="MU"
S ZZXR("USE")="S"
S ZZXR("EXECUTION")="R"
S ZZXR("ACTIVITY")="IR"
S ZZXR("SHORT DESCR")="MU"
S ZZXR("DESCR",1)="This cross reference is used to maintain the dual REGULAR ""C"" cross "
S ZZXR("DESCR",2)="reference on the ABBREVIATION(#1) field and the VA STATE CODE(#2) field "
S ZZXR("DESCR",3)="and replaces the SET and KILL logic on the REGULAR traditional cross "
S ZZXR("DESCR",4)="reference. The REGULAR traditional cross references SET and KILL "
S ZZXR("DESCR",5)="logic are set to a ""Q"" so look ups will not error out."
S ZZXR("DESCR",6)=" "
S ZZXR("DESCR",7)="5,1 ABBREVIATION 0;2 FREE TEXT (Required)"
S ZZXR("DESCR",8)=" CROSS-REFERENCE: 5^C "
S ZZXR("DESCR",9)=" 1)= Q"
S ZZXR("DESCR",10)=" 2)= Q"
S ZZXR("DESCR",11)=" 3)= Used in conjunction with the 'ADUALC' "
S ZZXR("DESCR",12)=" xref."
S ZZXR("DESCR",13)=" "
S ZZXR("DESCR",14)="5,2 VA STATE CODE 0;3 FREE TEXT"
S ZZXR("DESCR",15)=" CROSS-REFERENCE: 5^C "
S ZZXR("DESCR",16)=" 1)= Q"
S ZZXR("DESCR",17)=" 2)= Q"
S ZZXR("DESCR",18)=" 3)= Used in conjunction with the 'ADUALC' "
S ZZXR("DESCR",19)=" xref."
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"
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"
S ZZXR("WHOLE KILL")="K ^DIC(5,""C"")"
S ZZXR("VAL",1)=1
S ZZXR("VAL",1,"COLLATION")="F"
S ZZXR("VAL",2)=2
S ZZXR("VAL",2,"COLLATION")="F"
D CREIXN^DDMOD(.ZZXR,"SW",.ZZRES,"ZZOUT")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P378B 2171 printed Nov 22, 2024@17:17:35 Page 2
XU8P378B ;SFISC/SO-CREATE NEW-STYLE XREF ;8:38 AM 30 Aug 2005
+1 ;;8.0;KERNEL;**378**;Jul 10, 1995;Build 59
+2 ;
+3 NEW ZZXR,ZZRES,ZZOUT
+4 SET ZZXR("FILE")=5
+5 SET ZZXR("NAME")="ADUALC"
+6 SET ZZXR("TYPE")="MU"
+7 SET ZZXR("USE")="S"
+8 SET ZZXR("EXECUTION")="R"
+9 SET ZZXR("ACTIVITY")="IR"
+10 SET ZZXR("SHORT DESCR")="MU"
+11 SET ZZXR("DESCR",1)="This cross reference is used to maintain the dual REGULAR ""C"" cross "
+12 SET ZZXR("DESCR",2)="reference on the ABBREVIATION(#1) field and the VA STATE CODE(#2) field "
+13 SET ZZXR("DESCR",3)="and replaces the SET and KILL logic on the REGULAR traditional cross "
+14 SET ZZXR("DESCR",4)="reference. The REGULAR traditional cross references SET and KILL "
+15 SET ZZXR("DESCR",5)="logic are set to a ""Q"" so look ups will not error out."
+16 SET ZZXR("DESCR",6)=" "
+17 SET ZZXR("DESCR",7)="5,1 ABBREVIATION 0;2 FREE TEXT (Required)"
+18 SET ZZXR("DESCR",8)=" CROSS-REFERENCE: 5^C "
+19 SET ZZXR("DESCR",9)=" 1)= Q"
+20 SET ZZXR("DESCR",10)=" 2)= Q"
+21 SET ZZXR("DESCR",11)=" 3)= Used in conjunction with the 'ADUALC' "
+22 SET ZZXR("DESCR",12)=" xref."
+23 SET ZZXR("DESCR",13)=" "
+24 SET ZZXR("DESCR",14)="5,2 VA STATE CODE 0;3 FREE TEXT"
+25 SET ZZXR("DESCR",15)=" CROSS-REFERENCE: 5^C "
+26 SET ZZXR("DESCR",16)=" 1)= Q"
+27 SET ZZXR("DESCR",17)=" 2)= Q"
+28 SET ZZXR("DESCR",18)=" 3)= Used in conjunction with the 'ADUALC' "
+29 SET ZZXR("DESCR",19)=" xref."
+30 SET 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"
+31 SET 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"
+32 SET ZZXR("WHOLE KILL")="K ^DIC(5,""C"")"
+33 SET ZZXR("VAL",1)=1
+34 SET ZZXR("VAL",1,"COLLATION")="F"
+35 SET ZZXR("VAL",2)=2
+36 SET ZZXR("VAL",2,"COLLATION")="F"
+37 DO CREIXN^DDMOD(.ZZXR,"SW",.ZZRES,"ZZOUT")
+38 QUIT
