|
Last change
on this file since 677 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
637 bytes
|
| Line | |
|---|
| 1 | DG687PST ;BAY/JAT;cleanup of "AADA" crossref on file 45
|
|---|
| 2 | ;;5.3;Registration;**687*;Aug 13,1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; This is a post-init routine for DG*5.3*687
|
|---|
| 5 | ; The purpose is to cleanup the "AADA" crossreference on field #70
|
|---|
| 6 | ; of the Patient Treatment file (#45). Any entries for which
|
|---|
| 7 | ; there is no PTF zero node is to be deleted.
|
|---|
| 8 | ;
|
|---|
| 9 | EN ;
|
|---|
| 10 | D BMES^XPDUTL("Deleting bogus ""AADA"" cross references")
|
|---|
| 11 | N DGDTE,DGPTIEN,CNT
|
|---|
| 12 | S DGDTE=0
|
|---|
| 13 | S CNT=0
|
|---|
| 14 | F S DGDTE=$O(^DGPT("AADA",DGDTE)) Q:'DGDTE D
|
|---|
| 15 | .S DGPTIEN=0
|
|---|
| 16 | .F S DGPTIEN=$O(^DGPT("AADA",DGDTE,DGPTIEN)) Q:'DGPTIEN D
|
|---|
| 17 | ..I '$D(^DGPT(DGPTIEN,0)) D
|
|---|
| 18 | ...S CNT=CNT+1
|
|---|
| 19 | ...K ^DGPT("AADA",DGDTE,DGPTIEN)
|
|---|
| 20 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
