DG53754B.m

DG53754B ;ALB/TDM - POST-INSTALL DG*5.3*754 ; 12/16/10 9:53am

 ;;5.3;Registration;**754**;Aug 13, 1993;Build 46

 Q

EN ;Post-install entry point

 N X,Y,DMAX,ZTMP

 S DMAX=$$ROUSIZE^DILF

 D BMES^XPDUTL("Re-compiling input templates")

 D ADDPTID

 D RECOMP("DG LOAD EDIT SCREEN 7","DGRPX7")

 Q

 ;

RECOMP(ZTMP,X) ;Recompile Input Templates

 Q:((ZTMP="")!(X=""))

 S Y=$$FIND1^DIC(.402,"","MX",ZTMP)

 I Y<0 D BMES^XPDUTL("Error re-compiling '"_ZTMP_"' input template") Q

 D EN^DIEZ

 D BMES^XPDUTL("' "_ZTMP_"' input template has been re-compiled.")

 Q

 ;

ADDPTID ; DBIA #4139 - This is a one-time agreement to allow Registration to

 ; set the IDENTIFIER node as follows for the PATIENT (#2) file:

 ; ^DD(2,0,"ID",.03)="D EN^DDIOL($TR($$DOB^DPTLK1(Y,1),""/"",""-""),,""?$X+2"")"

 ; 

 ; This api will add the IDENTIFIER parameter back to the PATIENT

 ; file (#2).  It was an unknown fact that the IDENTIFIER parameter

 ; would be removed when the DG*5.3*754 pre-init routine (DG53754P)

 ; initialized the field definition for the DATE OF BIRTH field (#.03)

 ; from the PATIENT file (#2).

 ;

 S ^DD(2,0,"ID",.03)="D EN^DDIOL($TR($$DOB^DPTLK1(Y,1),"_"""/"""_","_"""-"""_"),,"_"""?$X+2"""_")"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53754B   1214     printed  Mar 13, 2025@21:43:15                                                                                                                                                                                                    Page 2

DG53754B  ;ALB/TDM - POST-INSTALL DG*5.3*754 ; 12/16/10 9:53am

 +1       ;;5.3;Registration;**754**;Aug 13, 1993;Build 46

 +2        QUIT 

EN        ;Post-install entry point

 +1        NEW X,Y,DMAX,ZTMP

 +2        SET DMAX=$$ROUSIZE^DILF

 +3        DO BMES^XPDUTL("Re-compiling input templates")

 +4        DO ADDPTID

 +5        DO RECOMP("DG LOAD EDIT SCREEN 7","DGRPX7")

 +6        QUIT 

 +7       ;

RECOMP(ZTMP,X) ;Recompile Input Templates

 +1        if ((ZTMP="")!(X=""))

               QUIT 

 +2        SET Y=$$FIND1^DIC(.402,"","MX",ZTMP)

 +3        IF Y<0

               DO BMES^XPDUTL("Error re-compiling '"_ZTMP_"' input template")

               QUIT 

 +4        DO EN^DIEZ

 +5        DO BMES^XPDUTL("' "_ZTMP_"' input template has been re-compiled.")

 +6        QUIT 

 +7       ;

ADDPTID   ; DBIA #4139 - This is a one-time agreement to allow Registration to

 +1       ; set the IDENTIFIER node as follows for the PATIENT (#2) file:

 +2       ; ^DD(2,0,"ID",.03)="D EN^DDIOL($TR($$DOB^DPTLK1(Y,1),""/"",""-""),,""?$X+2"")"

 +3       ; 

 +4       ; This api will add the IDENTIFIER parameter back to the PATIENT

 +5       ; file (#2).  It was an unknown fact that the IDENTIFIER parameter

 +6       ; would be removed when the DG*5.3*754 pre-init routine (DG53754P)

 +7       ; initialized the field definition for the DATE OF BIRTH field (#.03)

 +8       ; from the PATIENT file (#2).

 +9       ;

 +10       SET ^DD(2,0,"ID",.03)="D EN^DDIOL($TR($$DOB^DPTLK1(Y,1),"_"""/"""_","_"""-"""_"),,"_"""?$X+2"""_")"

 +11       QUIT