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