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 ---[H[J[2J[HSD53P519 1258 printed Dec 13, 2024@02:46:25 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
