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

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

initial load of WorldVistAEHR

File size: 646 bytes
Line 
1DG696PST ;BAY/JAT;cleanup of combat vet field on file 46.1
2 ;;5.3;Registration;**696*;Aug 13,1993
3 ;
4 ; This is a post-init routine for DG*5.3*696
5 ; The purpose is to rewrite each entry that has a value in
6 ; field .08 of file #46.1 by replacing "Y" with "1" and "N" with 0.
7 ;
8EN ;
9 D BMES^XPDUTL("Updating file #46.1")
10 N DGIEN,DGSET,FDATA,DIERR
11 S DGIEN=0
12 F S DGIEN=$O(^DGICD9(46.1,DGIEN)) Q:'DGIEN D
13 .Q:$P($G(^DGICD9(46.1,DGIEN,0)),U,8)=""
14 .S DGSET=""
15 .I $P(^DGICD9(46.1,DGIEN,0),U,8)="Y" S DGSET=1
16 .I $P(^DGICD9(46.1,DGIEN,0),U,8)="N" S DGSET=0
17 .S FDATA(46.1,DGIEN_",",.08)=DGSET
18 .D FILE^DIE("","FDATA","DIERR")
19 K FDATA,DIERR
20 Q
Note: See TracBrowser for help on using the repository browser.