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

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

initial load of WorldVistAEHR

File size: 699 bytes
Line 
1DG696PRE ;BAY/JAT;
2 ;;5.3;Registration;**696*;Aug 13,1993
3 ;
4 ; This is a pre-init routine for DG*5.3*696
5 ;
6EN ;
7 ; replace Y/N set with 1/0
8 D BMES^XPDUTL("Updating field #.08 of file #46.1")
9 S ^DD(46.1,.08,0)="COMBAT VET^S^1:YES;0:NO;^0;8^Q"
10 S ^DD(46.1,.08,"DT")=3060519
11 ; replace $N with $O
12 D BMES^XPDUTL("Updating field #7.4 of file #45")
13 S ^DD(45,7.4,0)="TRANSMISSION DATE^DCJ8,0X^^ ; ^S X=$S($D(^DGP(45.83,""C"",D0)):$O(^DGP(45.83,""C"",D0,0)),1:""""),X=$S($D(^DGP(45.83,+X,""P"",D0,0)):$P(^(0),U,2),1:"""")"
14 S ^DD(45,7.4,"DT")=3060519
15 S ^DD(45,7.4,9.1)="S X=$S($D(^DGP(45.83,""C"",D0)):$O(^DGP(45.83,""C"",D0,0)),1:""""),X=$S($D(^DGP(45.83,+X,""P"",D0,0)):$P(^(0),U,2),1:"""")"
16 Q
Note: See TracBrowser for help on using the repository browser.