- DGDDDTTM ;ALB/MRL,BAJ,TDM,JAM,JAM - TRIGGER DT/TM CROSS REFERENCES [PATIENT] ;18 Sept 2017 12:54 PM
- ;;5.3;Registration;**665,653,688,754,941,997,1067**;Aug 13, 1993;Build 23
- ;
- ; This routine contains the code for new style cross-reference record
- ; triggers for the PATIENT File #2.
- ;
- ; DG*5.3*997;JAM; Added Country, Province and Postal Code fields in comments for NOK/E-Contact/Designee fields
- ; DG*5.3*1067;JAM; Added Relationship Type fields in comments for NOK/E-Contact/Designee fields
- ;
- TEMP ; PATIENT File #2 Record Index: ADTTM1
- ;
- ; This code updates the TEMPORARY ADDRESS CHANGE DT/TM field when any
- ; of the following Temporary Address related data changes for a patient:
- ;
- ; TEMPORARY STREET [LINE 1] (#.1211)
- ; TEMPORARY STREET [LINE 2] (#.1212)
- ; TEMPORARY STREET [LINE 3] (#.1213)
- ; TEMPORARY CITY (#.1214)
- ; TEMPORARY STATE (#.1215)
- ; TEMPORARY ZIP CODE (#.1216)
- ; TEMPORARY ADDRESS START DATE (#.1217)
- ; TEMPORARY ADDRESS END DATE (#.1218)
- ; TEMPORARY ADDRESS ACTIVE? (#.12105)
- ; TEMPORARY ZIP+4 (#.12112)
- ; TEMPORARY ADDRESS COUNTY (#.12111)
- ; TEMPORARY ADDRESS PROVINCE (#.1221)
- ; TEMPORARY ADDRESS POSTAL CODE (#.1222)
- ; TEMPORARY ADDRESS COUNTRY (#.1223)
- ;
- Q:$G(DGRONUPD)=1 ;Suppress update for ROM (set in routine DGROHLR1)
- N DGIEN,DATA S DATA(.12113)=$$NOW^XLFDT(),DGIEN=DA
- I $$UPD^DGENDBS(2,.DGIEN,.DATA)
- Q
- ;
- CONF ; PATIENT File #2 Record Index: ADTTM2
- ;
- ; This code updates the CONFIDENTIAL ADDR CHANGE DT/TM field when any
- ; of the following Confidential Address related data changes for a
- ; patient:
- ;
- ; CONFIDENTIAL STREET [LINE 1] (#.1411)
- ; CONFIDENTIAL STREET [LINE 2] (#.1412)
- ; CONFIDENTIAL STREET [LINE 3] (#.1413)
- ; CONFIDENTIAL ADDRESS CITY (#.1414)
- ; CONFIDENTIAL ADDRESS STATE (#.1415)
- ; CONFIDENTIAL ADDRESS ZIP CODE (#.1416)
- ; CONFIDENTIAL START DATE (#.1417)
- ; CONFIDENTIAL END DATE (#.1418)
- ; CONFIDENTIAL ADDRESS ACTIVE? (#.14105)
- ; CONFIDENTIAL ADDRESS COUNTY (#.14111)
- ; CONFIDENTIAL ADDR PROVINCE (#.14114)
- ; CONFIDENTIAL ADDR POSTAL CODE (#.14115)
- ; CONFIDENTIAL ADDR COUNTRY (#.14116)
- ; CONFIDENTIAL PHONE NUMBER (#.1315)
- ;
- Q:$G(DGRONUPD)=1 ;Suppress update for ROM (set in routine DGROHLR1)
- N DGIEN,DATA S DATA(.14112)=$$NOW^XLFDT(),DGIEN=DA
- I $$UPD^DGENDBS(2,.DGIEN,.DATA)
- Q
- ;
- PNOK ; PATIENT File #2 Record Index: ADTTM3
- ;
- ; This code updates the PRIMARY NOK CHANGE DATE/TIME field when any
- ; of the following Primary Next of Kin related data changes for a
- ; patient:
- ;
- ; K-NAME OF PRIMARY NOK (#.211)
- ; K-RELATIONSHIP TO PATIENT (#.212)
- ; K-STREET ADDRESS [LINE 1] (#.213)
- ; K-STREET ADDRESS [LINE 2] (#.214)
- ; K-STREET ADDRESS [LINE 3] (#.215)
- ; K-CITY (#.216)
- ; K-STATE (#.217)
- ; K-ZIP CODE (#.218)
- ; K-ADDRESS SAME AS PATIENT'S? (#.2125)
- ; K-ZIP+4 (#.2207)
- ; K-PHONE NUMBER (#.219)
- ; K-WORK PHONE NUMBER (#.21011)
- ; K-COUNTRY (#.221)
- ; K-PROVINCE (#.222)
- ; K-POSTAL CODE (#.223)
- ; K-RELATIONSHIP TYPE (#.224)
- ;
- N DGIEN,DATA S DATA(.21012)=$$NOW^XLFDT(),DGIEN=DA
- I $$UPD^DGENDBS(2,.DGIEN,.DATA)
- Q
- ;
- SNOK ; PATIENT File #2 Record Index: ADTTM4
- ;
- ; This code updates the SECONDARY NOK CHANGE DATE/TIME field when any
- ; of the following Secondary Next of Kin related data changes for a
- ; patient:
- ;
- ; K2-NAME OF SECONDARY NOK (#.2191)
- ; K2-RELATIONSHIP TO PATIENT (#.2192)
- ; K2-STREET ADDRESS [LINE 1] (#.2193)
- ; K2-STREET ADDRESS [LINE 2] (#.2194)
- ; K2-STREET ADDRESS [LINE 3] (#.2195)
- ; K2-CITY (#.2196)
- ; K2-STATE (#.2197)
- ; K2-ZIP CODE (#.2198)
- ; K2-ADDRESS SAME AS PATIENT'S? (#.21925)
- ; K2-ZIP+4 (#.2203)
- ; K2-PHONE NUMBER (#.2199)
- ; K2-WORK PHONE NUMBER (#.211011)
- ; K2-COUNTRY (#.2101)
- ; K2-PROVINCE (#.2102)
- ; K2-POSTAL CODE (#.2103)
- ; K2-RELATIONSHIP TYPE (#.2104)
- ;
- N DGIEN,DATA S DATA(.211012)=$$NOW^XLFDT(),DGIEN=DA
- I $$UPD^DGENDBS(2,.DGIEN,.DATA)
- Q
- ;
- ECON ; PATIENT File #2 Record Index: ADTTM5
- ;
- ; This code updates the E-CONTACT CHANGE DATE/TIME field when any
- ; of the following Emergency Contact related data changes for a
- ; patient:
- ;
- ; E-NAME (#.331)
- ; E-RELATIONSHIP TO PATIENT (#.332)
- ; E-STREET ADDRESS [LINE 1] (#.333)
- ; E-STREET ADDRESS [LINE 2] (#.334)
- ; E-STREET ADDRESS [LINE 3] (#.335)
- ; E-CITY (#.336)
- ; E-STATE (#.337)
- ; E-ZIP CODE (#.338)
- ; E-EMER. CONTACT SAME AS NOK? (#.3305)
- ; E-ZIP+4 (#.2201)
- ; E-PHONE NUMBER (#.339)
- ; E-WORK PHONE NUMBER (#.33011)
- ; E-COUNTRY (#.3306)
- ; E-PROVINCE (#.3307)
- ; E-POSTAL CODE (#.3308)
- ; E-RELATIONSHIP TYPE (#.3309)
- ;
- N DGIEN,DATA S DATA(.33012)=$$NOW^XLFDT(),DGIEN=DA
- I $$UPD^DGENDBS(2,.DGIEN,.DATA)
- Q
- ;
- ECON2 ; PATIENT File #2 Record Index: ADTTM6
- ;
- ; This code updates the E2-CONTACT CHANGE DATE/TIME field when any
- ; of the following Secondary Emergency Contact related data changes
- ; for a patient:
- ;
- ; E2-NAME OF SECONDARY CONTACT (#.3311)
- ; E2-RELATIONSHIP TO PATIENT (#.3312)
- ; E2-STREET ADDRESS [LINE 1] (#.3313)
- ; E2-STREET ADDRESS [LINE 2] (#.3314)
- ; E2-STREET ADDRESS [LINE 3] (#.3315)
- ; E2-CITY (#.3316)
- ; E2-STATE (#.3317)
- ; E2-ZIP CODE (#.3318)
- ; E2-ZIP+4 (#.2204)
- ; E2-PHONE NUMBER (#.3319)
- ; E2-WORK PHONE NUMBER (#.331011)
- ; E2-COUNTRY (#.331012)
- ; E2-PROVINCE (#.331013)
- ; E2-POSTAL CODE (#.331014)
- ; E2-RELATIONSHIP TYPE (#.331015)
- ;
- N DGIEN,DATA S DATA(.33112)=$$NOW^XLFDT(),DGIEN=DA
- I $$UPD^DGENDBS(2,.DGIEN,.DATA)
- Q
- ;
- DESIG ; PATIENT File #2 Record Index: ADTTM7
- ;
- ; This code updates the DESIGNEE CHANGE DATE/TIME field when any
- ; of the following Designee related data changes for a patient:
- ;
- ; D-NAME OF DESIGNEE (#.341)
- ; D-RELATIONSHIP TO PATIENT (#.342)
- ; D-STREET ADDRESS [LINE 1] (#.343)
- ; D-STREET ADDRESS [LINE 2] (#.344)
- ; D-STREET ADDRESS [LINE 3] (#.345)
- ; D-CITY (#.346)
- ; D-STATE (#.347)
- ; D-ZIP CODE (#.348)
- ; D-DESIGNEE SAME AS NOK? (#.3405)
- ; D-ZIP+4 (#.2202)
- ; D-PHONE NUMBER (#.349)
- ; D-WORK PHONE NUMBER (#.34011)
- ; D-COUNTRY (#.34012)
- ; D-PROVINCE (#.34013)
- ; D-POSTAL CODE (#.34014)
- ; D-RELATIONSHIP TYPE (#.34015)
- ;
- N DGIEN,DATA S DATA(.3412)=$$NOW^XLFDT(),DGIEN=DA
- I $$UPD^DGENDBS(2,.DGIEN,.DATA)
- Q
- ;
- ; DG*5.3*941; JAM; Added tag RES for Residential Address
- RES ; PATIENT File #2 Record Index: ADTTM8
- ;
- ; This code updates the RESIDENTIAL ADDR CHANGE DT/TM field when any
- ; of the following Residential Address related data changes for a
- ; patient:
- ;
- ; RESIDENTIAL STREET [LINE 1] (#.1151)
- ; RESIDENTIAL STREET [LINE 2] (#.1152)
- ; RESIDENTIAL STREET [LINE 3] (#.1153)
- ; RESIDENTIAL CITY (#.1154)
- ; RESIDENTIAL STATE (#.1155)
- ; RESIDENTIAL ZIP+4 (#.1156)
- ; RESIDENTIAL PROVINCE (#.11571)
- ; RESIDENTIAL POSTAL CODE (#.11572)
- ; RESIDENTIAL COUNTRY (#.11573)
- ;
- Q:$G(DGRONUPD)=1 ;Suppress update for ROM (set in routine DGROHLR1)
- N DGIEN,DATA S DATA(.1158)=$$NOW^XLFDT(),DGIEN=DA
- I $$UPD^DGENDBS(2,.DGIEN,.DATA)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGDDDTTM 8382 printed Dec 13, 2024@02:41:51 Page 2
- DGDDDTTM ;ALB/MRL,BAJ,TDM,JAM,JAM - TRIGGER DT/TM CROSS REFERENCES [PATIENT] ;18 Sept 2017 12:54 PM
- +1 ;;5.3;Registration;**665,653,688,754,941,997,1067**;Aug 13, 1993;Build 23
- +2 ;
- +3 ; This routine contains the code for new style cross-reference record
- +4 ; triggers for the PATIENT File #2.
- +5 ;
- +6 ; DG*5.3*997;JAM; Added Country, Province and Postal Code fields in comments for NOK/E-Contact/Designee fields
- +7 ; DG*5.3*1067;JAM; Added Relationship Type fields in comments for NOK/E-Contact/Designee fields
- +8 ;
- TEMP ; PATIENT File #2 Record Index: ADTTM1
- +1 ;
- +2 ; This code updates the TEMPORARY ADDRESS CHANGE DT/TM field when any
- +3 ; of the following Temporary Address related data changes for a patient:
- +4 ;
- +5 ; TEMPORARY STREET [LINE 1] (#.1211)
- +6 ; TEMPORARY STREET [LINE 2] (#.1212)
- +7 ; TEMPORARY STREET [LINE 3] (#.1213)
- +8 ; TEMPORARY CITY (#.1214)
- +9 ; TEMPORARY STATE (#.1215)
- +10 ; TEMPORARY ZIP CODE (#.1216)
- +11 ; TEMPORARY ADDRESS START DATE (#.1217)
- +12 ; TEMPORARY ADDRESS END DATE (#.1218)
- +13 ; TEMPORARY ADDRESS ACTIVE? (#.12105)
- +14 ; TEMPORARY ZIP+4 (#.12112)
- +15 ; TEMPORARY ADDRESS COUNTY (#.12111)
- +16 ; TEMPORARY ADDRESS PROVINCE (#.1221)
- +17 ; TEMPORARY ADDRESS POSTAL CODE (#.1222)
- +18 ; TEMPORARY ADDRESS COUNTRY (#.1223)
- +19 ;
- +20 ;Suppress update for ROM (set in routine DGROHLR1)
- if $GET(DGRONUPD)=1
- QUIT
- +21 NEW DGIEN,DATA
- SET DATA(.12113)=$$NOW^XLFDT()
- SET DGIEN=DA
- +22 IF $$UPD^DGENDBS(2,.DGIEN,.DATA)
- +23 QUIT
- +24 ;
- CONF ; PATIENT File #2 Record Index: ADTTM2
- +1 ;
- +2 ; This code updates the CONFIDENTIAL ADDR CHANGE DT/TM field when any
- +3 ; of the following Confidential Address related data changes for a
- +4 ; patient:
- +5 ;
- +6 ; CONFIDENTIAL STREET [LINE 1] (#.1411)
- +7 ; CONFIDENTIAL STREET [LINE 2] (#.1412)
- +8 ; CONFIDENTIAL STREET [LINE 3] (#.1413)
- +9 ; CONFIDENTIAL ADDRESS CITY (#.1414)
- +10 ; CONFIDENTIAL ADDRESS STATE (#.1415)
- +11 ; CONFIDENTIAL ADDRESS ZIP CODE (#.1416)
- +12 ; CONFIDENTIAL START DATE (#.1417)
- +13 ; CONFIDENTIAL END DATE (#.1418)
- +14 ; CONFIDENTIAL ADDRESS ACTIVE? (#.14105)
- +15 ; CONFIDENTIAL ADDRESS COUNTY (#.14111)
- +16 ; CONFIDENTIAL ADDR PROVINCE (#.14114)
- +17 ; CONFIDENTIAL ADDR POSTAL CODE (#.14115)
- +18 ; CONFIDENTIAL ADDR COUNTRY (#.14116)
- +19 ; CONFIDENTIAL PHONE NUMBER (#.1315)
- +20 ;
- +21 ;Suppress update for ROM (set in routine DGROHLR1)
- if $GET(DGRONUPD)=1
- QUIT
- +22 NEW DGIEN,DATA
- SET DATA(.14112)=$$NOW^XLFDT()
- SET DGIEN=DA
- +23 IF $$UPD^DGENDBS(2,.DGIEN,.DATA)
- +24 QUIT
- +25 ;
- PNOK ; PATIENT File #2 Record Index: ADTTM3
- +1 ;
- +2 ; This code updates the PRIMARY NOK CHANGE DATE/TIME field when any
- +3 ; of the following Primary Next of Kin related data changes for a
- +4 ; patient:
- +5 ;
- +6 ; K-NAME OF PRIMARY NOK (#.211)
- +7 ; K-RELATIONSHIP TO PATIENT (#.212)
- +8 ; K-STREET ADDRESS [LINE 1] (#.213)
- +9 ; K-STREET ADDRESS [LINE 2] (#.214)
- +10 ; K-STREET ADDRESS [LINE 3] (#.215)
- +11 ; K-CITY (#.216)
- +12 ; K-STATE (#.217)
- +13 ; K-ZIP CODE (#.218)
- +14 ; K-ADDRESS SAME AS PATIENT'S? (#.2125)
- +15 ; K-ZIP+4 (#.2207)
- +16 ; K-PHONE NUMBER (#.219)
- +17 ; K-WORK PHONE NUMBER (#.21011)
- +18 ; K-COUNTRY (#.221)
- +19 ; K-PROVINCE (#.222)
- +20 ; K-POSTAL CODE (#.223)
- +21 ; K-RELATIONSHIP TYPE (#.224)
- +22 ;
- +23 NEW DGIEN,DATA
- SET DATA(.21012)=$$NOW^XLFDT()
- SET DGIEN=DA
- +24 IF $$UPD^DGENDBS(2,.DGIEN,.DATA)
- +25 QUIT
- +26 ;
- SNOK ; PATIENT File #2 Record Index: ADTTM4
- +1 ;
- +2 ; This code updates the SECONDARY NOK CHANGE DATE/TIME field when any
- +3 ; of the following Secondary Next of Kin related data changes for a
- +4 ; patient:
- +5 ;
- +6 ; K2-NAME OF SECONDARY NOK (#.2191)
- +7 ; K2-RELATIONSHIP TO PATIENT (#.2192)
- +8 ; K2-STREET ADDRESS [LINE 1] (#.2193)
- +9 ; K2-STREET ADDRESS [LINE 2] (#.2194)
- +10 ; K2-STREET ADDRESS [LINE 3] (#.2195)
- +11 ; K2-CITY (#.2196)
- +12 ; K2-STATE (#.2197)
- +13 ; K2-ZIP CODE (#.2198)
- +14 ; K2-ADDRESS SAME AS PATIENT'S? (#.21925)
- +15 ; K2-ZIP+4 (#.2203)
- +16 ; K2-PHONE NUMBER (#.2199)
- +17 ; K2-WORK PHONE NUMBER (#.211011)
- +18 ; K2-COUNTRY (#.2101)
- +19 ; K2-PROVINCE (#.2102)
- +20 ; K2-POSTAL CODE (#.2103)
- +21 ; K2-RELATIONSHIP TYPE (#.2104)
- +22 ;
- +23 NEW DGIEN,DATA
- SET DATA(.211012)=$$NOW^XLFDT()
- SET DGIEN=DA
- +24 IF $$UPD^DGENDBS(2,.DGIEN,.DATA)
- +25 QUIT
- +26 ;
- ECON ; PATIENT File #2 Record Index: ADTTM5
- +1 ;
- +2 ; This code updates the E-CONTACT CHANGE DATE/TIME field when any
- +3 ; of the following Emergency Contact related data changes for a
- +4 ; patient:
- +5 ;
- +6 ; E-NAME (#.331)
- +7 ; E-RELATIONSHIP TO PATIENT (#.332)
- +8 ; E-STREET ADDRESS [LINE 1] (#.333)
- +9 ; E-STREET ADDRESS [LINE 2] (#.334)
- +10 ; E-STREET ADDRESS [LINE 3] (#.335)
- +11 ; E-CITY (#.336)
- +12 ; E-STATE (#.337)
- +13 ; E-ZIP CODE (#.338)
- +14 ; E-EMER. CONTACT SAME AS NOK? (#.3305)
- +15 ; E-ZIP+4 (#.2201)
- +16 ; E-PHONE NUMBER (#.339)
- +17 ; E-WORK PHONE NUMBER (#.33011)
- +18 ; E-COUNTRY (#.3306)
- +19 ; E-PROVINCE (#.3307)
- +20 ; E-POSTAL CODE (#.3308)
- +21 ; E-RELATIONSHIP TYPE (#.3309)
- +22 ;
- +23 NEW DGIEN,DATA
- SET DATA(.33012)=$$NOW^XLFDT()
- SET DGIEN=DA
- +24 IF $$UPD^DGENDBS(2,.DGIEN,.DATA)
- +25 QUIT
- +26 ;
- ECON2 ; PATIENT File #2 Record Index: ADTTM6
- +1 ;
- +2 ; This code updates the E2-CONTACT CHANGE DATE/TIME field when any
- +3 ; of the following Secondary Emergency Contact related data changes
- +4 ; for a patient:
- +5 ;
- +6 ; E2-NAME OF SECONDARY CONTACT (#.3311)
- +7 ; E2-RELATIONSHIP TO PATIENT (#.3312)
- +8 ; E2-STREET ADDRESS [LINE 1] (#.3313)
- +9 ; E2-STREET ADDRESS [LINE 2] (#.3314)
- +10 ; E2-STREET ADDRESS [LINE 3] (#.3315)
- +11 ; E2-CITY (#.3316)
- +12 ; E2-STATE (#.3317)
- +13 ; E2-ZIP CODE (#.3318)
- +14 ; E2-ZIP+4 (#.2204)
- +15 ; E2-PHONE NUMBER (#.3319)
- +16 ; E2-WORK PHONE NUMBER (#.331011)
- +17 ; E2-COUNTRY (#.331012)
- +18 ; E2-PROVINCE (#.331013)
- +19 ; E2-POSTAL CODE (#.331014)
- +20 ; E2-RELATIONSHIP TYPE (#.331015)
- +21 ;
- +22 NEW DGIEN,DATA
- SET DATA(.33112)=$$NOW^XLFDT()
- SET DGIEN=DA
- +23 IF $$UPD^DGENDBS(2,.DGIEN,.DATA)
- +24 QUIT
- +25 ;
- DESIG ; PATIENT File #2 Record Index: ADTTM7
- +1 ;
- +2 ; This code updates the DESIGNEE CHANGE DATE/TIME field when any
- +3 ; of the following Designee related data changes for a patient:
- +4 ;
- +5 ; D-NAME OF DESIGNEE (#.341)
- +6 ; D-RELATIONSHIP TO PATIENT (#.342)
- +7 ; D-STREET ADDRESS [LINE 1] (#.343)
- +8 ; D-STREET ADDRESS [LINE 2] (#.344)
- +9 ; D-STREET ADDRESS [LINE 3] (#.345)
- +10 ; D-CITY (#.346)
- +11 ; D-STATE (#.347)
- +12 ; D-ZIP CODE (#.348)
- +13 ; D-DESIGNEE SAME AS NOK? (#.3405)
- +14 ; D-ZIP+4 (#.2202)
- +15 ; D-PHONE NUMBER (#.349)
- +16 ; D-WORK PHONE NUMBER (#.34011)
- +17 ; D-COUNTRY (#.34012)
- +18 ; D-PROVINCE (#.34013)
- +19 ; D-POSTAL CODE (#.34014)
- +20 ; D-RELATIONSHIP TYPE (#.34015)
- +21 ;
- +22 NEW DGIEN,DATA
- SET DATA(.3412)=$$NOW^XLFDT()
- SET DGIEN=DA
- +23 IF $$UPD^DGENDBS(2,.DGIEN,.DATA)
- +24 QUIT
- +25 ;
- +26 ; DG*5.3*941; JAM; Added tag RES for Residential Address
- RES ; PATIENT File #2 Record Index: ADTTM8
- +1 ;
- +2 ; This code updates the RESIDENTIAL ADDR CHANGE DT/TM field when any
- +3 ; of the following Residential Address related data changes for a
- +4 ; patient:
- +5 ;
- +6 ; RESIDENTIAL STREET [LINE 1] (#.1151)
- +7 ; RESIDENTIAL STREET [LINE 2] (#.1152)
- +8 ; RESIDENTIAL STREET [LINE 3] (#.1153)
- +9 ; RESIDENTIAL CITY (#.1154)
- +10 ; RESIDENTIAL STATE (#.1155)
- +11 ; RESIDENTIAL ZIP+4 (#.1156)
- +12 ; RESIDENTIAL PROVINCE (#.11571)
- +13 ; RESIDENTIAL POSTAL CODE (#.11572)
- +14 ; RESIDENTIAL COUNTRY (#.11573)
- +15 ;
- +16 ;Suppress update for ROM (set in routine DGROHLR1)
- if $GET(DGRONUPD)=1
- QUIT
- +17 NEW DGIEN,DATA
- SET DATA(.1158)=$$NOW^XLFDT()
- SET DGIEN=DA
- +18 IF $$UPD^DGENDBS(2,.DGIEN,.DATA)
- +19 QUIT