XU8P378B.m

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 ---XU8P378B   2171     printed  Apr 09, 2024@21:15:26                                                                                                                                                                                                    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