DG53583P.m

DG53583P ;ALB/TMK - DG*5.3*583 DELETE XREF FIELD .312 ; 09/29/2006

 ;;5.3;Registration;**583**;Aug 13, 1993;Build 20

 Q

EN ; Delete xref 1 on field .312 of patient file and re-compile input templates

 ;

 D BMES^XPDUTL("Deleting 'ACFL2' xref on *CLAIM FOLDER LOCATION (#.312) of PATIENT file (#2)")

 D DELIX^DDMOD(2,.312,1)

 D BMES^XPDUTL("Re-compiling input template DG LOAD EDIT SCREEN 7 of PATIENT FILE (#2)")

 N X,Y,DMAX

 S Y=$O(^DIE("B","DG LOAD EDIT SCREEN 7",""))

 I Y'="" D

 . S X=$G(^DIE(Y,"ROU")) I $E(X)="^" S X=$E(X,2,99)

 . S DMAX=$$ROUSIZE^DILF

 . D EN^DIEZ

 . Q

 D BMES^XPDUTL("Re-compiling input template DVBHINQ UPDATE of PATIENT FILE (#2)")

 N X,Y,DMAX

 S Y=$O(^DIE("B","DVBHINQ UPDATE",""))

 I Y'="" D

 . S X=$G(^DIE(Y,"ROU")) I $E(X)="^" S X=$E(X,2,99)

 . S DMAX=$$ROUSIZE^DILF

 . D EN^DIEZ

 . Q

 D BMES^XPDUTL("Step complete ... post install complete")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53583P   905     printed  Apr 23, 2025@18:51:54                                                                                                                                                                                                     Page 2

DG53583P  ;ALB/TMK - DG*5.3*583 DELETE XREF FIELD .312 ; 09/29/2006

 +1       ;;5.3;Registration;**583**;Aug 13, 1993;Build 20

 +2        QUIT 

EN        ; Delete xref 1 on field .312 of patient file and re-compile input templates

 +1       ;

 +2        DO BMES^XPDUTL("Deleting 'ACFL2' xref on *CLAIM FOLDER LOCATION (#.312) of PATIENT file (#2)")

 +3        DO DELIX^DDMOD(2,.312,1)

 +4        DO BMES^XPDUTL("Re-compiling input template DG LOAD EDIT SCREEN 7 of PATIENT FILE (#2)")

 +5        NEW X,Y,DMAX

 +6        SET Y=$ORDER(^DIE("B","DG LOAD EDIT SCREEN 7",""))

 +7        IF Y'=""

               Begin DoDot:1

 +8                SET X=$GET(^DIE(Y,"ROU"))

                   IF $EXTRACT(X)="^"

                       SET X=$EXTRACT(X,2,99)

 +9                SET DMAX=$$ROUSIZE^DILF

 +10               DO EN^DIEZ

 +11               QUIT 

               End DoDot:1

 +12       DO BMES^XPDUTL("Re-compiling input template DVBHINQ UPDATE of PATIENT FILE (#2)")

 +13       NEW X,Y,DMAX

 +14       SET Y=$ORDER(^DIE("B","DVBHINQ UPDATE",""))

 +15       IF Y'=""

               Begin DoDot:1

 +16               SET X=$GET(^DIE(Y,"ROU"))

                   IF $EXTRACT(X)="^"

                       SET X=$EXTRACT(X,2,99)

 +17               SET DMAX=$$ROUSIZE^DILF

 +18               DO EN^DIEZ

 +19               QUIT 

               End DoDot:1

 +20       DO BMES^XPDUTL("Step complete ... post install complete")

 +21       QUIT 

 +22      ;