source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53620Y.m@ 1096

Last change on this file since 1096 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 2.9 KB
Line 
1DG53620Y ;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
5ANAM341 ;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 ;
25ANAM201 ;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 ;
46ANAM1001 ;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 ;
Note: See TracBrowser for help on using the repository browser.