DG53665P.m

DG53665P ;ALB/RMM - TRIGGER DT/TM CROSS REFERENCES [PATIENT] ; 05/23/2004

 ;;5.3;Registration;**665**;Aug 13, 1993

 ;

 ;

EN ; This is the post-install routine for patch DG*5.3*665.

 ; Queue job to run in the background.

 N ZTRTN,ZTDESC,ZTSAVE,ZTSK,ZTDTH,ZTQUEUED,ZTIO

 D BMES^XPDUTL("  This post-install process for patch DG*5.3*665 will add")

 D MES^XPDUTL("  seven cross-reference triggers to the PATIENT File #2 to")

 D MES^XPDUTL("  populate the new date/time fields added by this patch.")

 D MES^XPDUTL("      ")

 S ZTRTN="EN1^DG53665P",ZTIO="",ZTDTH=$$NOW^XLFDT()

 S ZTDESC="DG*5.3*665 POST-INSTALL PROCESS"

 D ^%ZTLOAD,HOME^%ZIS

 I '$G(ZTSK) D BMES^XPDUTL("Post-install process was not tasked.") Q

 D BMES^XPDUTL("Post-install process has been tasked as Task #"_ZTSK)

 Q

EN1 ; This routine contains the code to add new style cross-reference record

 ; triggers for the PATIENT File #2.

 ;

 ; The routine ^DIKCBLD was used to build routines to create the

 ; following routines to modify the Data Dictionary:

 ;

TEMP ; PATIENT File #2 Record Index: ADTTM1

 I '$D(^DD("IX","BB",2,"ADTTM1")) D ^DGADTTM1

 ;

CONF ; PATIENT File #2 Record Index: ADTTM2

 I '$D(^DD("IX","BB",2,"ADTTM2")) D ^DGADTTM2

 ;

PNOK ; PATIENT File #2 Record Index: ADTTM3

 I '$D(^DD("IX","BB",2,"ADTTM3")) D ^DGADTTM3

 ;

SNOK ; PATIENT File #2 Record Index: ADTTM4

 I '$D(^DD("IX","BB",2,"ADTTM4")) D ^DGADTTM4

 ;

ECON ; PATIENT File #2 Record Index: ADTTM5

 I '$D(^DD("IX","BB",2,"ADTTM5")) D ^DGADTTM5

 ;

ECON2 ; PATIENT File #2 Record Index: ADTTM6

 I '$D(^DD("IX","BB",2,"ADTTM6")) D ^DGADTTM6

 ;

DESIG ; PATIENT File #2 Record Index: ADTTM7

 I '$D(^DD("IX","BB",2,"ADTTM7")) D ^DGADTTM7

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53665P   1713     printed  Apr 09, 2024@21:47:55                                                                                                                                                                                                    Page 2

DG53665P  ;ALB/RMM - TRIGGER DT/TM CROSS REFERENCES [PATIENT] ; 05/23/2004

 +1       ;;5.3;Registration;**665**;Aug 13, 1993

 +2       ;

 +3       ;

EN        ; This is the post-install routine for patch DG*5.3*665.

 +1       ; Queue job to run in the background.

 +2        NEW ZTRTN,ZTDESC,ZTSAVE,ZTSK,ZTDTH,ZTQUEUED,ZTIO

 +3        DO BMES^XPDUTL("  This post-install process for patch DG*5.3*665 will add")

 +4        DO MES^XPDUTL("  seven cross-reference triggers to the PATIENT File #2 to")

 +5        DO MES^XPDUTL("  populate the new date/time fields added by this patch.")

 +6        DO MES^XPDUTL("      ")

 +7        SET ZTRTN="EN1^DG53665P"

           SET ZTIO=""

           SET ZTDTH=$$NOW^XLFDT()

 +8        SET ZTDESC="DG*5.3*665 POST-INSTALL PROCESS"

 +9        DO ^%ZTLOAD

           DO HOME^%ZIS

 +10       IF '$GET(ZTSK)

               DO BMES^XPDUTL("Post-install process was not tasked.")

               QUIT 

 +11       DO BMES^XPDUTL("Post-install process has been tasked as Task #"_ZTSK)

 +12       QUIT 

EN1       ; This routine contains the code to add new style cross-reference record

 +1       ; triggers for the PATIENT File #2.

 +2       ;

 +3       ; The routine ^DIKCBLD was used to build routines to create the

 +4       ; following routines to modify the Data Dictionary:

 +5       ;

TEMP      ; PATIENT File #2 Record Index: ADTTM1

 +1        IF '$DATA(^DD("IX","BB",2,"ADTTM1"))

               DO ^DGADTTM1

 +2       ;

CONF      ; PATIENT File #2 Record Index: ADTTM2

 +1        IF '$DATA(^DD("IX","BB",2,"ADTTM2"))

               DO ^DGADTTM2

 +2       ;

PNOK      ; PATIENT File #2 Record Index: ADTTM3

 +1        IF '$DATA(^DD("IX","BB",2,"ADTTM3"))

               DO ^DGADTTM3

 +2       ;

SNOK      ; PATIENT File #2 Record Index: ADTTM4

 +1        IF '$DATA(^DD("IX","BB",2,"ADTTM4"))

               DO ^DGADTTM4

 +2       ;

ECON      ; PATIENT File #2 Record Index: ADTTM5

 +1        IF '$DATA(^DD("IX","BB",2,"ADTTM5"))

               DO ^DGADTTM5

 +2       ;

ECON2     ; PATIENT File #2 Record Index: ADTTM6

 +1        IF '$DATA(^DD("IX","BB",2,"ADTTM6"))

               DO ^DGADTTM6

 +2       ;

DESIG     ; PATIENT File #2 Record Index: ADTTM7

 +1        IF '$DATA(^DD("IX","BB",2,"ADTTM7"))

               DO ^DGADTTM7

 +2        QUIT