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

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

initial load of FOIAVistA 6/30/08 version
File size: 5.1 KB
Line 
1DGDDDTTM ;ALB/MRL,BAJ - TRIGGER DT/TM CROSS REFERENCES [PATIENT] ; 05/18/2006
2 ;;5.3;Registration;**665,653**;Aug 13, 1993;Build 2
3 ;
4 ; This routine contains the code for new style cross-reference record
5 ; triggers for the PATIENT File #2.
6 ;
7TEMP ; PATIENT File #2 Record Index: ADTTM1
8 ;
9 ; This code updates the TEMPORARY ADDRESS CHANGE DT/TM field when any
10 ; of the following Temporary Address related data changes for a patient:
11 ;
12 ; TEMPORARY STREET [LINE 1] (#.1211)
13 ; TEMPORARY STREET [LINE 2] (#.1212)
14 ; TEMPORARY STREET [LINE 3] (#.1213)
15 ; TEMPORARY CITY (#.1214)
16 ; TEMPORARY STATE (#.1215)
17 ; TEMPORARY ZIP CODE (#.1216)
18 ; TEMPORARY ADDRESS START DATE (#.1217)
19 ; TEMPORARY ADDRESS END DATE (#.1218)
20 ; TEMPORARY ADDRESS ACTIVE? (#.12105)
21 ; TEMPORARY ZIP+4 (#.12112)
22 ;
23 N DGIEN,DATA S DATA(.12113)=$$NOW^XLFDT(),DGIEN=DA
24 I $$UPD^DGENDBS(2,.DGIEN,.DATA)
25 Q
26 ;
27CONF ; PATIENT File #2 Record Index: ADTTM2
28 ;
29 ; This code updates the CONFIDENTIAL ADDR CHANGE DT/TM field when any
30 ; of the following Confidential Address related data changes for a
31 ; patient:
32 ;
33 ; CONFIDENTIAL STREET [LINE 1] (#.1411)
34 ; CONFIDENTIAL STREET [LINE 2] (#.1412)
35 ; CONFIDENTIAL STREET [LINE 3] (#.1413)
36 ; CONFIDENTIAL ADDRESS CITY (#.1414)
37 ; CONFIDENTIAL ADDRESS STATE (#.1415)
38 ; CONFIDENTIAL ADDRESS ZIP CODE (#.1416)
39 ; CONFIDENTIAL START DATE (#.1417)
40 ; CONFIDENTIAL END DATE (#.1418)
41 ; CONFIDENTIAL ADDRESS ACTIVE? (#.14105)
42 ; CONFIDENTIAL ADDRESS COUNTY (#.14111)
43 ;
44 N DGIEN,DATA S DATA(.14112)=$$NOW^XLFDT(),DGIEN=DA
45 I $$UPD^DGENDBS(2,.DGIEN,.DATA)
46 Q
47 ;
48PNOK ; PATIENT File #2 Record Index: ADTTM3
49 ;
50 ; This code updates the PRIMARY NOK CHANGE DATE/TIME field when any
51 ; of the following Primary Next of Kin related data changes for a
52 ; patient:
53 ;
54 ; K-NAME OF PRIMARY NOK (#.211)
55 ; K-RELATIONSHIP TO PATIENT (#.212)
56 ; K-STREET ADDRESS [LINE 1] (#.213)
57 ; K-STREET ADDRESS [LINE 2] (#.214)
58 ; K-STREET ADDRESS [LINE 3] (#.215)
59 ; K-CITY (#.216)
60 ; K-STATE (#.217)
61 ; K-ZIP CODE (#.218)
62 ; K-ADDRESS SAME AS PATIENT'S? (#.2125)
63 ; K-ZIP+4 (#.2207)
64 ;
65 N DGIEN,DATA S DATA(.21012)=$$NOW^XLFDT(),DGIEN=DA
66 I $$UPD^DGENDBS(2,.DGIEN,.DATA)
67 Q
68 ;
69SNOK ; PATIENT File #2 Record Index: ADTTM4
70 ;
71 ; This code updates the SECONDARY NOK CHANGE DATE/TIME field when any
72 ; of the following Secondary Next of Kin related data changes for a
73 ; patient:
74 ;
75 ; K2-NAME OF SECONDARY NOK (#.2191)
76 ; K2-RELATIONSHIP TO PATIENT (#.2192)
77 ; K2-STREET ADDRESS [LINE 1] (#.2193)
78 ; K2-STREET ADDRESS [LINE 2] (#.2194)
79 ; K2-STREET ADDRESS [LINE 3] (#.2195)
80 ; K2-CITY (#.2196)
81 ; K2-STATE (#.2197)
82 ; K2-ZIP CODE (#.2198)
83 ; K2-ADDRESS SAME AS PATIENT'S? (#.21925)
84 ; K2-ZIP+4 (#.2203)
85 ;
86 N DGIEN,DATA S DATA(.211012)=$$NOW^XLFDT(),DGIEN=DA
87 I $$UPD^DGENDBS(2,.DGIEN,.DATA)
88 Q
89 ;
90ECON ; PATIENT File #2 Record Index: ADTTM5
91 ;
92 ; This code updates the E-CONTACT CHANGE DATE/TIME field when any
93 ; of the following Emergency Contact related data changes for a
94 ; patient:
95 ;
96 ; E-NAME (#.331)
97 ; E-RELATIONSHIP TO PATIENT (#.332)
98 ; E-STREET ADDRESS [LINE 1] (#.333)
99 ; E-STREET ADDRESS [LINE 2] (#.334)
100 ; E-STREET ADDRESS [LINE 3] (#.335)
101 ; E-CITY (#.336)
102 ; E-STATE (#.337)
103 ; E-ZIP CODE (#.338)
104 ; E-EMER. CONTACT SAME AS NOK? (#.3305)
105 ; E-ZIP+4 (#.2201)
106 ;
107 N DGIEN,DATA S DATA(.33012)=$$NOW^XLFDT(),DGIEN=DA
108 I $$UPD^DGENDBS(2,.DGIEN,.DATA)
109 Q
110 ;
111ECON2 ; PATIENT File #2 Record Index: ADTTM6
112 ;
113 ; This code updates the E2-CONTACT CHANGE DATE/TIME field when any
114 ; of the following Secondary Emergency Contact related data changes
115 ; for a patient:
116 ;
117 ; E2-NAME OF SECONDARY CONTACT (#.3311)
118 ; E2-RELATIONSHIP TO PATIENT (#.3312)
119 ; E2-STREET ADDRESS [LINE 1] (#.3313)
120 ; E2-STREET ADDRESS [LINE 2] (#.3314)
121 ; E2-STREET ADDRESS [LINE 3] (#.3315)
122 ; E2-CITY (#.3316)
123 ; E2-STATE (#.3317)
124 ; E2-ZIP CODE (#.3318)
125 ; E2-ZIP+4 (#.2204)
126 ;
127 N DGIEN,DATA S DATA(.33112)=$$NOW^XLFDT(),DGIEN=DA
128 I $$UPD^DGENDBS(2,.DGIEN,.DATA)
129 Q
130 ;
131DESIG ; PATIENT File #2 Record Index: ADTTM7
132 ;
133 ; This code updates the DESIGNEE CHANGE DATE/TIME field when any
134 ; of the following Designee related data changes for a patient:
135 ;
136 ; D-NAME OF DESIGNEE (#.341)
137 ; D-RELATIONSHIP TO PATIENT (#.342)
138 ; D-STREET ADDRESS [LINE 1] (#.343)
139 ; D-STREET ADDRESS [LINE 2] (#.344)
140 ; D-STREET ADDRESS [LINE 3] (#.345)
141 ; D-CITY (#.346)
142 ; D-STATE (#.347)
143 ; D-ZIP CODE (#.348)
144 ; D-DESIGNEE SAME AS NOK? (#.3405)
145 ; D-ZIP+4 (#.2202)
146 ;
147 N DGIEN,DATA S DATA(.3412)=$$NOW^XLFDT(),DGIEN=DA
148 I $$UPD^DGENDBS(2,.DGIEN,.DATA)
149 Q
Note: See TracBrowser for help on using the repository browser.