|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
