- DG53132P ;ALB/MM - POST-INSTALL DG*5.3*132 - UPDATE POST-KOREAN DATES ; 6/26/98
- ;;5.3;Registration;**132**;Aug 13, 1993
- ;
- EN ;
- D BMES^XPDUTL(">>Updating POST-KOREAN entry in PERIOD OF SERVICE file (#21).")
- D MES^XPDUTL(" END DATE field (#.05) changed from 8/4/1964 to 2/27/1961.")
- D MES^XPDUTL(" BRIEF DESCRIPTION field (#20) changed to 2/1/55-2/27/61.")
- N DA,DIC,DIE,DR,X,Y
- S (DIC,DIE)="^DIC(21,"
- S DIC(0)="X"
- S X="POST-KOREAN"
- D ^DIC
- I +Y'>0 D Q
- .D BMES^XPDUTL(">>>POST-KOREAN Entry not found. Cannot continue with installation.")
- .D MES^XPDUTL(" Please contact the PIMS National VISTA Support Team for assistance.")
- S DA=+Y
- S DR=".05////2610227;20////(2/1/55-2/27/61)"
- D ^DIE
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53132P 727 printed Jan 18, 2025@03:36:52 Page 2
- DG53132P ;ALB/MM - POST-INSTALL DG*5.3*132 - UPDATE POST-KOREAN DATES ; 6/26/98
- +1 ;;5.3;Registration;**132**;Aug 13, 1993
- +2 ;
- EN ;
- +1 DO BMES^XPDUTL(">>Updating POST-KOREAN entry in PERIOD OF SERVICE file (#21).")
- +2 DO MES^XPDUTL(" END DATE field (#.05) changed from 8/4/1964 to 2/27/1961.")
- +3 DO MES^XPDUTL(" BRIEF DESCRIPTION field (#20) changed to 2/1/55-2/27/61.")
- +4 NEW DA,DIC,DIE,DR,X,Y
- +5 SET (DIC,DIE)="^DIC(21,"
- +6 SET DIC(0)="X"
- +7 SET X="POST-KOREAN"
- +8 DO ^DIC
- +9 IF +Y'>0
- Begin DoDot:1
- +10 DO BMES^XPDUTL(">>>POST-KOREAN Entry not found. Cannot continue with installation.")
- +11 DO MES^XPDUTL(" Please contact the PIMS National VISTA Support Team for assistance.")
- End DoDot:1
- QUIT
- +12 SET DA=+Y
- +13 SET DR=".05////2610227;20////(2/1/55-2/27/61)"
- +14 DO ^DIE
- +15 QUIT