DG696PRE.m

DG696PRE ;BAY/JAT;

 ;;5.3;Registration;**696*;Aug 13,1993

 ;

 ; This is a pre-init routine for DG*5.3*696

 ;

EN ;

 ; replace Y/N set with 1/0

 D BMES^XPDUTL("Updating field #.08 of file #46.1")

 S ^DD(46.1,.08,0)="COMBAT VET^S^1:YES;0:NO;^0;8^Q"

 S ^DD(46.1,.08,"DT")=3060519

 ; replace $N with $O

 D BMES^XPDUTL("Updating field #7.4 of file #45")

 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:"""")"

    S ^DD(45,7.4,"DT")=3060519

 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:"""")"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG696PRE   715     printed  Apr 09, 2024@21:58:44                                                                                                                                                                                                     Page 2

DG696PRE  ;BAY/JAT;

 +1       ;;5.3;Registration;**696*;Aug 13,1993

 +2       ;

 +3       ; This is a pre-init routine for DG*5.3*696

 +4       ;

EN        ;

 +1       ; replace Y/N set with 1/0

 +2        DO BMES^XPDUTL("Updating field #.08 of file #46.1")

 +3        SET ^DD(46.1,.08,0)="COMBAT VET^S^1:YES;0:NO;^0;8^Q"

 +4        SET ^DD(46.1,.08,"DT")=3060519

 +5       ; replace $N with $O

 +6        DO BMES^XPDUTL("Updating field #7.4 of file #45")

 +7        SET ^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:"""")"

 +8        SET ^DD(45,7.4,"DT")=3060519

 +9        SET ^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:"""")"

 +10       QUIT