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

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

initial load of WorldVistAEHR

File size: 879 bytes
Line 
1DG53583P ;ALB/TMK - DG*5.3*583 DELETE XREF FIELD .312 ; 09/29/2006
2 ;;5.3;Registration;**583**;Aug 13, 1993;Build 20
3 Q
4EN ; Delete xref 1 on field .312 of patient file and re-compile input templates
5 ;
6 D BMES^XPDUTL("Deleting 'ACFL2' xref on *CLAIM FOLDER LOCATION (#.312) of PATIENT file (#2)")
7 D DELIX^DDMOD(2,.312,1)
8 D BMES^XPDUTL("Re-compiling input template DG LOAD EDIT SCREEN 7 of PATIENT FILE (#2)")
9 N X,Y,DMAX
10 S Y=$O(^DIE("B","DG LOAD EDIT SCREEN 7",""))
11 I Y'="" D
12 . S X=$G(^DIE(Y,"ROU")) I $E(X)="^" S X=$E(X,2,99)
13 . S DMAX=$$ROUSIZE^DILF
14 . D EN^DIEZ
15 . Q
16 D BMES^XPDUTL("Re-compiling input template DVBHINQ UPDATE of PATIENT FILE (#2)")
17 N X,Y,DMAX
18 S Y=$O(^DIE("B","DVBHINQ UPDATE",""))
19 I Y'="" D
20 . S X=$G(^DIE(Y,"ROU")) I $E(X)="^" S X=$E(X,2,99)
21 . S DMAX=$$ROUSIZE^DILF
22 . D EN^DIEZ
23 . Q
24 D BMES^XPDUTL("Step complete ... post install complete")
25 Q
26 ;
Note: See TracBrowser for help on using the repository browser.