SD53P519.m

SD53P519 ;ALB/JAM - POST-INSTALL FOR PATCH SD*5.3*519 ; 6/21/07 8:15am

 ;;5.3;Scheduling;**519**;Aug 13, 1993;Build 6

 Q

POST ;Post-Install

 D MES^XPDUTL("******                                                               ******")

 D BMES^XPDUTL("This installation will update the Combat Veteran DEFAULT field (#.04) value")

 D MES^XPDUTL("in the OUTPATIENT CLASSIFICATION TYPE file (#409.41) to 'YES'.")

 D MES^XPDUTL(" ")

 D POST1

 D BMES^XPDUTL("******                                                               ******")

 Q

POST1 ;Update OUTPATIENT CLASSIFICATION TYPE file #409.41, DEFAULT field #.04

 N X,Y,DIC,DIE,DA,DR

 S DIC(0)="MX",DIC="^SD(409.41,",X="COMBAT VETERAN" D ^DIC

 I +Y'>0 D  Q

 .D MES^XPDUTL("     COMBAT VETERAN record not found. No change done.")

 I +Y'=7 D  Q

 .D MES^XPDUTL("     COMBAT VETERAN record doesn't match nationally distributed entry number.")

 S DA=7

 I $$GET1^DIQ(409.41,DA,.04)="YES" D  Q

 .D MES^XPDUTL("     COMBAT VETERAN DEFAULT field (#.04) already updated to YES.")

 S DIE=DIC,DR=".04////"_"YES" D ^DIE

 I $D(DTOUT)!($D(Y)'=0) D  K DTOUT Q

 . D MES^XPDUTL("    COMBAT VETERAN record not updated.")

 D MES^XPDUTL("     COMBAT VETERAN DEFAULT field (#.04) updated successfully.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53P519   1258     printed  Apr 09, 2024@21:42:56                                                                                                                                                                                                    Page 2

SD53P519  ;ALB/JAM - POST-INSTALL FOR PATCH SD*5.3*519 ; 6/21/07 8:15am

 +1       ;;5.3;Scheduling;**519**;Aug 13, 1993;Build 6

 +2        QUIT 

POST      ;Post-Install

 +1        DO MES^XPDUTL("******                                                               ******")

 +2        DO BMES^XPDUTL("This installation will update the Combat Veteran DEFAULT field (#.04) value")

 +3        DO MES^XPDUTL("in the OUTPATIENT CLASSIFICATION TYPE file (#409.41) to 'YES'.")

 +4        DO MES^XPDUTL(" ")

 +5        DO POST1

 +6        DO BMES^XPDUTL("******                                                               ******")

 +7        QUIT 

POST1     ;Update OUTPATIENT CLASSIFICATION TYPE file #409.41, DEFAULT field #.04

 +1        NEW X,Y,DIC,DIE,DA,DR

 +2        SET DIC(0)="MX"

           SET DIC="^SD(409.41,"

           SET X="COMBAT VETERAN"

           DO ^DIC

 +3        IF +Y'>0

               Begin DoDot:1

 +4                DO MES^XPDUTL("     COMBAT VETERAN record not found. No change done.")

               End DoDot:1

               QUIT 

 +5        IF +Y'=7

               Begin DoDot:1

 +6                DO MES^XPDUTL("     COMBAT VETERAN record doesn't match nationally distributed entry number.")

               End DoDot:1

               QUIT 

 +7        SET DA=7

 +8        IF $$GET1^DIQ(409.41,DA,.04)="YES"

               Begin DoDot:1

 +9                DO MES^XPDUTL("     COMBAT VETERAN DEFAULT field (#.04) already updated to YES.")

               End DoDot:1

               QUIT 

 +10       SET DIE=DIC

           SET DR=".04////"_"YES"

           DO ^DIE

 +11       IF $DATA(DTOUT)!($DATA(Y)'=0)

               Begin DoDot:1

 +12               DO MES^XPDUTL("    COMBAT VETERAN record not updated.")

               End DoDot:1

               KILL DTOUT

               QUIT 

 +13       DO MES^XPDUTL("     COMBAT VETERAN DEFAULT field (#.04) updated successfully.")

 +14       QUIT