Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.2 KB
|
Rev | Line | |
---|
[628] | 1 | SD53P519 ;ALB/JAM - POST-INSTALL FOR PATCH SD*5.3*519 ; 6/21/07 8:15am
|
---|
| 2 | ;;5.3;Scheduling;**519**;Aug 13, 1993;Build 6
|
---|
| 3 | Q
|
---|
| 4 | POST ;Post-Install
|
---|
| 5 | D MES^XPDUTL("****** ******")
|
---|
| 6 | D BMES^XPDUTL("This installation will update the Combat Veteran DEFAULT field (#.04) value")
|
---|
| 7 | D MES^XPDUTL("in the OUTPATIENT CLASSIFICATION TYPE file (#409.41) to 'YES'.")
|
---|
| 8 | D MES^XPDUTL(" ")
|
---|
| 9 | D POST1
|
---|
| 10 | D BMES^XPDUTL("****** ******")
|
---|
| 11 | Q
|
---|
| 12 | POST1 ;Update OUTPATIENT CLASSIFICATION TYPE file #409.41, DEFAULT field #.04
|
---|
| 13 | N X,Y,DIC,DIE,DA,DR
|
---|
| 14 | S DIC(0)="MX",DIC="^SD(409.41,",X="COMBAT VETERAN" D ^DIC
|
---|
| 15 | I +Y'>0 D Q
|
---|
| 16 | .D MES^XPDUTL(" COMBAT VETERAN record not found. No change done.")
|
---|
| 17 | I +Y'=7 D Q
|
---|
| 18 | .D MES^XPDUTL(" COMBAT VETERAN record doesn't match nationally distributed entry number.")
|
---|
| 19 | S DA=7
|
---|
| 20 | I $$GET1^DIQ(409.41,DA,.04)="YES" D Q
|
---|
| 21 | .D MES^XPDUTL(" COMBAT VETERAN DEFAULT field (#.04) already updated to YES.")
|
---|
| 22 | S DIE=DIC,DR=".04////"_"YES" D ^DIE
|
---|
| 23 | I $D(DTOUT)!($D(Y)'=0) D K DTOUT Q
|
---|
| 24 | . D MES^XPDUTL(" COMBAT VETERAN record not updated.")
|
---|
| 25 | D MES^XPDUTL(" COMBAT VETERAN DEFAULT field (#.04) updated successfully.")
|
---|
| 26 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.