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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1DG687PRE ;BAY/JAT;reset kill nodes of "AC" and "AADA1" on file 45
2 ;;5.3;Registration;**687*;Aug 13,1993
3 ;
4 ; This is a pre-init routine for DG*5.3*687
5 ; The purpose is to reset kill nodes on the "AC" and "AADA1"
6 ; crossreferences of the discharge date (field #70) on
7 ; the Patient Treatment file (#45)
8 ;
9EN ;
10 N DGI
11 D BMES^XPDUTL("Updating the ""AC"" cross reference...")
12 S DGI=0 F S DGI=$O(^DD(45,70,1,DGI)) Q:'DGI D
13 .Q:$P($G(^DD(45,70,1,DGI,0)),U,2)'="AC"
14 .S ^DD(45,70,1,DGI,2)="S %=$S($D(^DGPT(DA,""M"",1,0)):^(0),1:""""),%D=+$P(%,U,10),^(0)=$P(%_""^^^^^^^^^^"",U,1,9)_U_X_U_$P(%,U,11,99) K ^DGPT(DA,""M"",""AM"",%D,1),%,%D"
15 D BMES^XPDUTL("Updating the ""AADA1"" cross reference...")
16 S DGI=0 F S DGI=$O(^DD(45,70,1,DGI)) Q:'DGI D
17 .Q:$P($G(^DD(45,70,1,DGI,0)),U,2)'="AADA1"
18 .S ^DD(45,70,1,DGI,2)="S L=$P(^DGPT(DA,0),""^"",2) I L?7N.E,$G(DIK)'=""^DGPT("" S ^DGPT(""AADA"",L,DA)="""""
19 I $D(^DD(45,0,"DIK")) N X,Y,DMAX S X=^DD(45,0,"DIK"),Y=45,DMAX=$$ROUSIZE^DILF D EN^DIKZ Q ;Trigger xref re-compile if already compiled
20 Q
Note: See TracBrowser for help on using the repository browser.