21 lines
637 B
Mathematica
21 lines
637 B
Mathematica
DG687PST ;BAY/JAT;cleanup of "AADA" crossref on file 45
|
|
;;5.3;Registration;**687*;Aug 13,1993
|
|
;
|
|
; This is a post-init routine for DG*5.3*687
|
|
; The purpose is to cleanup the "AADA" crossreference on field #70
|
|
; of the Patient Treatment file (#45). Any entries for which
|
|
; there is no PTF zero node is to be deleted.
|
|
;
|
|
EN ;
|
|
D BMES^XPDUTL("Deleting bogus ""AADA"" cross references")
|
|
N DGDTE,DGPTIEN,CNT
|
|
S DGDTE=0
|
|
S CNT=0
|
|
F S DGDTE=$O(^DGPT("AADA",DGDTE)) Q:'DGDTE D
|
|
.S DGPTIEN=0
|
|
.F S DGPTIEN=$O(^DGPT("AADA",DGDTE,DGPTIEN)) Q:'DGPTIEN D
|
|
..I '$D(^DGPT(DGPTIEN,0)) D
|
|
...S CNT=CNT+1
|
|
...K ^DGPT("AADA",DGDTE,DGPTIEN)
|
|
Q
|