DG53620Y.m

DG53620Y ;Plano/DW-Modify NEW-STYLE XREF ;11:50 AM  29 Nov 2004

 ;;5.3;Registration;**620,1015**;Aug 13, 1993;Build 21

 ;

 ;Continued after DG53620X

ANAM341 ;ANAM341 X-REF

 N DGXR,DGRES,DGOUT

 S DGXR("FILE")=2

 S DGXR("NAME")="ANAM341"

 S DGXR("TYPE")="MU"

 S DGXR("USE")="A"

 S DGXR("EXECUTION")="F"

 S DGXR("ACTIVITY")="IR"

 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.341."

 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"

 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.341 field synchronized"

 S DGXR("DESCR",3)="with the data value stored in that field."

 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.341,.DG20NAME,1.09,+$P($G(^DPT(DA,""NAME"")),U,9),""CL35"") K DG20NAME Q"

 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.341,1.09) Q"

 S DGXR("VAL",1)=.341

 S DGXR("VAL",1,"SUBSCRIPT")=1

 S DGXR("VAL",1,"COLLATION")="F"

 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")

 Q

 ;

ANAM201 ;ANAM201 X-REF

 N DGXR,DGRES,DGOUT

 S DGXR("FILE")=2

 S DGXR("ROOT FILE")=2.01

 S DGXR("NAME")="ANAM201"

 S DGXR("TYPE")="MU"

 S DGXR("USE")="A"

 S DGXR("EXECUTION")="F"

 S DGXR("ACTIVITY")="IR"

 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with the .01 field."

 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"

 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.01 field synchronized"

 S DGXR("DESCR",3)="with the data value stored in that field."

 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2.01,.DA,.01,.DG20NAME,100.03,,""CL30"") K DG20NAME Q"

 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.01,.DA,.01,100.03) Q"

 S DGXR("VAL",1)=.01

 S DGXR("VAL",1,"SUBSCRIPT")=1

 S DGXR("VAL",1,"COLLATION")="F"

 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")

 Q

 ;

ANAM1001 ;ANAM1001 X-REF

 N DGXR,DGRES,DGOUT

 S DGXR("FILE")=2

 S DGXR("ROOT FILE")=2.101

 S DGXR("NAME")="ANAM1001"

 S DGXR("TYPE")="MU"

 S DGXR("USE")="A"

 S DGXR("EXECUTION")="F"

 S DGXR("ACTIVITY")="IR"

 S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #30."

 S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"

 S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #30 field synchronized"

 S DGXR("DESCR",3)="with the data value stored in that field."

 S DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2.101,.DA,30,.DG20NAME,100.21,,""CL30"") K DG20NAME Q"

 S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.101,.DA,30,100.21) Q"

 S DGXR("VAL",1)=30

 S DGXR("VAL",1,"SUBSCRIPT")=1

 S DGXR("VAL",1,"COLLATION")="F"

 D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")

 Q

 ;

DG53620Y  ;Plano/DW-Modify NEW-STYLE XREF ;11:50 AM  29 Nov 2004

 +1       ;;5.3;Registration;**620,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;Continued after DG53620X

ANAM341   ;ANAM341 X-REF

 +1        NEW DGXR,DGRES,DGOUT

 +2        SET DGXR("FILE")=2

 +3        SET DGXR("NAME")="ANAM341"

 +4        SET DGXR("TYPE")="MU"

 +5        SET DGXR("USE")="A"

 +6        SET DGXR("EXECUTION")="F"

 +7        SET DGXR("ACTIVITY")="IR"

 +8        SET DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.341."

 +9        SET DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"

 +10       SET DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.341 field synchronized"

 +11       SET DGXR("DESCR",3)="with the data value stored in that field."

 +12       SET DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.341,.DG20NAME,1.09,+$P($G(^DPT(DA,""NAME"")),U,9),""CL35"") K DG20NAME Q"

 +13       SET DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.341,1.09) Q"

 +14       SET DGXR("VAL",1)=.341

 +15       SET DGXR("VAL",1,"SUBSCRIPT")=1

 +16       SET DGXR("VAL",1,"COLLATION")="F"

 +17       DO CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")

 +18       QUIT 

 +19      ;

ANAM201   ;ANAM201 X-REF

 +1        NEW DGXR,DGRES,DGOUT

 +2        SET DGXR("FILE")=2

 +3        SET DGXR("ROOT FILE")=2.01

 +4        SET DGXR("NAME")="ANAM201"

 +5        SET DGXR("TYPE")="MU"

 +6        SET DGXR("USE")="A"

 +7        SET DGXR("EXECUTION")="F"

 +8        SET DGXR("ACTIVITY")="IR"

 +9        SET DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with the .01 field."

 +10       SET DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"

 +11       SET DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.01 field synchronized"

 +12       SET DGXR("DESCR",3)="with the data value stored in that field."

 +13       SET DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2.01,.DA,.01,.DG20NAME,100.03,,""CL30"") K DG20NAME Q"

 +14       SET DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.01,.DA,.01,100.03) Q"

 +15       SET DGXR("VAL",1)=.01

 +16       SET DGXR("VAL",1,"SUBSCRIPT")=1

 +17       SET DGXR("VAL",1,"COLLATION")="F"

 +18       DO CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")

 +19       QUIT 

 +20      ;

ANAM1001  ;ANAM1001 X-REF

 +1        NEW DGXR,DGRES,DGOUT

 +2        SET DGXR("FILE")=2

 +3        SET DGXR("ROOT FILE")=2.101

 +4        SET DGXR("NAME")="ANAM1001"

 +5        SET DGXR("TYPE")="MU"

 +6        SET DGXR("USE")="A"

 +7        SET DGXR("EXECUTION")="F"

 +8        SET DGXR("ACTIVITY")="IR"

 +9        SET DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #30."

 +10       SET DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"

 +11       SET DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #30 field synchronized"

 +12       SET DGXR("DESCR",3)="with the data value stored in that field."

 +13       SET DGXR("SET")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2.101,.DA,30,.DG20NAME,100.21,,""CL30"") K DG20NAME Q"

 +14       SET DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.101,.DA,30,100.21) Q"

 +15       SET DGXR("VAL",1)=30

 +16       SET DGXR("VAL",1,"SUBSCRIPT")=1

 +17       SET DGXR("VAL",1,"COLLATION")="F"

 +18       DO CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")

 +19       QUIT 

 +20      ;