Last change
on this file since 1093 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.2 KB
|
Line | |
---|
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.