Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
879 bytes
|
Line | |
---|
1 | DG53583P ;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
|
---|
4 | EN ; 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.