| 1 | DG53620Y ;Plano/DW-Modify NEW-STYLE XREF ;11:50 AM 29 Nov 2004
|
|---|
| 2 | ;;5.3;Registration;**620**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;Continued after DG53620X
|
|---|
| 5 | ANAM341 ;ANAM341 X-REF
|
|---|
| 6 | N DGXR,DGRES,DGOUT
|
|---|
| 7 | S DGXR("FILE")=2
|
|---|
| 8 | S DGXR("NAME")="ANAM341"
|
|---|
| 9 | S DGXR("TYPE")="MU"
|
|---|
| 10 | S DGXR("USE")="A"
|
|---|
| 11 | S DGXR("EXECUTION")="F"
|
|---|
| 12 | S DGXR("ACTIVITY")="IR"
|
|---|
| 13 | S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #.341."
|
|---|
| 14 | S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
|
|---|
| 15 | S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.341 field synchronized"
|
|---|
| 16 | S DGXR("DESCR",3)="with the data value stored in that field."
|
|---|
| 17 | 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"
|
|---|
| 18 | S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.341,1.09) Q"
|
|---|
| 19 | S DGXR("VAL",1)=.341
|
|---|
| 20 | S DGXR("VAL",1,"SUBSCRIPT")=1
|
|---|
| 21 | S DGXR("VAL",1,"COLLATION")="F"
|
|---|
| 22 | D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | ANAM201 ;ANAM201 X-REF
|
|---|
| 26 | N DGXR,DGRES,DGOUT
|
|---|
| 27 | S DGXR("FILE")=2
|
|---|
| 28 | S DGXR("ROOT FILE")=2.01
|
|---|
| 29 | S DGXR("NAME")="ANAM201"
|
|---|
| 30 | S DGXR("TYPE")="MU"
|
|---|
| 31 | S DGXR("USE")="A"
|
|---|
| 32 | S DGXR("EXECUTION")="F"
|
|---|
| 33 | S DGXR("ACTIVITY")="IR"
|
|---|
| 34 | S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with the .01 field."
|
|---|
| 35 | S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
|
|---|
| 36 | S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #.01 field synchronized"
|
|---|
| 37 | S DGXR("DESCR",3)="with the data value stored in that field."
|
|---|
| 38 | 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"
|
|---|
| 39 | S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.01,.DA,.01,100.03) Q"
|
|---|
| 40 | S DGXR("VAL",1)=.01
|
|---|
| 41 | S DGXR("VAL",1,"SUBSCRIPT")=1
|
|---|
| 42 | S DGXR("VAL",1,"COLLATION")="F"
|
|---|
| 43 | D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
|
|---|
| 44 | Q
|
|---|
| 45 | ;
|
|---|
| 46 | ANAM1001 ;ANAM1001 X-REF
|
|---|
| 47 | N DGXR,DGRES,DGOUT
|
|---|
| 48 | S DGXR("FILE")=2
|
|---|
| 49 | S DGXR("ROOT FILE")=2.101
|
|---|
| 50 | S DGXR("NAME")="ANAM1001"
|
|---|
| 51 | S DGXR("TYPE")="MU"
|
|---|
| 52 | S DGXR("USE")="A"
|
|---|
| 53 | S DGXR("EXECUTION")="F"
|
|---|
| 54 | S DGXR("ACTIVITY")="IR"
|
|---|
| 55 | S DGXR("SHORT DESCR")="This index keeps the NAME COMPONENTS file in synch with field #30."
|
|---|
| 56 | S DGXR("DESCR",1)="This cross reference uses Kernel name standardization APIs to keep the NAME"
|
|---|
| 57 | S DGXR("DESCR",2)="COMPONENTS (#20) file record associated with the #30 field synchronized"
|
|---|
| 58 | S DGXR("DESCR",3)="with the data value stored in that field."
|
|---|
| 59 | 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"
|
|---|
| 60 | S DGXR("KILL")="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.101,.DA,30,100.21) Q"
|
|---|
| 61 | S DGXR("VAL",1)=30
|
|---|
| 62 | S DGXR("VAL",1,"SUBSCRIPT")=1
|
|---|
| 63 | S DGXR("VAL",1,"COLLATION")="F"
|
|---|
| 64 | D CREIXN^DDMOD(.DGXR,"kW",.DGRES,"DGOUT")
|
|---|
| 65 | Q
|
|---|
| 66 | ;
|
|---|
