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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1DG53665P ;ALB/RMM - TRIGGER DT/TM CROSS REFERENCES [PATIENT] ; 05/23/2004
2 ;;5.3;Registration;**665**;Aug 13, 1993
3 ;
4 ;
5EN ; This is the post-install routine for patch DG*5.3*665.
6 ; Queue job to run in the background.
7 N ZTRTN,ZTDESC,ZTSAVE,ZTSK,ZTDTH,ZTQUEUED,ZTIO
8 D BMES^XPDUTL(" This post-install process for patch DG*5.3*665 will add")
9 D MES^XPDUTL(" seven cross-reference triggers to the PATIENT File #2 to")
10 D MES^XPDUTL(" populate the new date/time fields added by this patch.")
11 D MES^XPDUTL(" ")
12 S ZTRTN="EN1^DG53665P",ZTIO="",ZTDTH=$$NOW^XLFDT()
13 S ZTDESC="DG*5.3*665 POST-INSTALL PROCESS"
14 D ^%ZTLOAD,HOME^%ZIS
15 I '$G(ZTSK) D BMES^XPDUTL("Post-install process was not tasked.") Q
16 D BMES^XPDUTL("Post-install process has been tasked as Task #"_ZTSK)
17 Q
18EN1 ; This routine contains the code to add new style cross-reference record
19 ; triggers for the PATIENT File #2.
20 ;
21 ; The routine ^DIKCBLD was used to build routines to create the
22 ; following routines to modify the Data Dictionary:
23 ;
24TEMP ; PATIENT File #2 Record Index: ADTTM1
25 I '$D(^DD("IX","BB",2,"ADTTM1")) D ^DGADTTM1
26 ;
27CONF ; PATIENT File #2 Record Index: ADTTM2
28 I '$D(^DD("IX","BB",2,"ADTTM2")) D ^DGADTTM2
29 ;
30PNOK ; PATIENT File #2 Record Index: ADTTM3
31 I '$D(^DD("IX","BB",2,"ADTTM3")) D ^DGADTTM3
32 ;
33SNOK ; PATIENT File #2 Record Index: ADTTM4
34 I '$D(^DD("IX","BB",2,"ADTTM4")) D ^DGADTTM4
35 ;
36ECON ; PATIENT File #2 Record Index: ADTTM5
37 I '$D(^DD("IX","BB",2,"ADTTM5")) D ^DGADTTM5
38 ;
39ECON2 ; PATIENT File #2 Record Index: ADTTM6
40 I '$D(^DD("IX","BB",2,"ADTTM6")) D ^DGADTTM6
41 ;
42DESIG ; PATIENT File #2 Record Index: ADTTM7
43 I '$D(^DD("IX","BB",2,"ADTTM7")) D ^DGADTTM7
44 Q
Note: See TracBrowser for help on using the repository browser.