| [613] | 1 | XU8P378B ;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
|
|---|
