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 ---[H[J[2J[HDG53583P 905 printed Dec 13, 2024@02:37:51 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 ;
