Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
792 bytes
|
Line | |
---|
1 | USR30 ; SLC/MAM - Environment check - new USR Action EDIT COSIGNER ;10/11/06
|
---|
2 | ;;1.0;AUTHORIZATION/SUBSCRIPTION;**30**;Jun 20, 1997;Build 6
|
---|
3 | ;
|
---|
4 | ENVCK ;Environment check
|
---|
5 | ; Check if already have 27 = EDIT COSIGNER:
|
---|
6 | I $P(^USR(8930.8,0),U,3)=27,$P($G(^USR(8930.8,27,0)),U)="EDIT COSIGNER" W !!,"You already have action EDIT COSIGNER, IEN 27. I will overwrite it." Q
|
---|
7 | ; Check if current file is correct:
|
---|
8 | I ($P(^USR(8930.8,0),U,3)'=26)!($P($G(^USR(8930.8,26,0)),U)'="LINK TO FLAG") S XPDQUIT=2 D Q
|
---|
9 | . W !!,"Your last USR ACTION FILE entry should be LINK TO FLAG, IEN #26."
|
---|
10 | . W !,"I cannot create new USR Action EDIT COSIGNER unless"
|
---|
11 | . W !,"your current file is correct. Please contact EVS. Aborting."
|
---|
12 | W !!,"Current file looks OK; I will create new USR Action EDIT COSIGNER with IEN 27."
|
---|
13 | Q
|
---|
14 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.