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

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

initial load of FOIAVistA 6/30/08 version

File size: 637 bytes
Line 
1DG687PST ;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 ;
9EN ;
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.