DG53111P.m

DG53111P ;ALB/ABR - POST-INSTALL DG*5.3*111 - UPDATE VIET ERA DATES ; 1/21/97

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

 ;

EN ;

 D BMES^XPDUTL(">>Changing BEGIN DATE for VIETNAM ERA POS to Feb. 28, 1961")

 D MES^XPDUTL("  per VHA Directive 96-071.")

 ;

UPD ;

 S (DIC,DIE)="^DIC(21,",DR=".04////2610228;20////(2/28/61-5/7/75)",DIC(0)="X",X="VIETNAM ERA"

 D ^DIC I Y'>0 D ERROR Q

 S DA=+Y D ^DIE

 Q

 ;

ERROR ;

 D BMES^XPDUTL(">>VIETNAM ERA entry not found.  Contact IRM.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53111P   489     printed  Apr 09, 2024@21:39:44                                                                                                                                                                                                     Page 2

DG53111P  ;ALB/ABR - POST-INSTALL DG*5.3*111 - UPDATE VIET ERA DATES ; 1/21/97

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

 +2       ;

EN        ;

 +1        DO BMES^XPDUTL(">>Changing BEGIN DATE for VIETNAM ERA POS to Feb. 28, 1961")

 +2        DO MES^XPDUTL("  per VHA Directive 96-071.")

 +3       ;

UPD       ;

 +1        SET (DIC,DIE)="^DIC(21,"

           SET DR=".04////2610228;20////(2/28/61-5/7/75)"

           SET DIC(0)="X"

           SET X="VIETNAM ERA"

 +2        DO ^DIC

           IF Y'>0

               DO ERROR

               QUIT 

 +3        SET DA=+Y

           DO ^DIE

 +4        QUIT 

 +5       ;

ERROR     ;

 +1        DO BMES^XPDUTL(">>VIETNAM ERA entry not found.  Contact IRM.")

 +2        QUIT