source: WorldVistAEHR/trunk/r/AUTHORIZATION_SUBSCRIPTION-USR/USR30.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 792 bytes
Line 
1USR30 ; SLC/MAM - Environment check - new USR Action EDIT COSIGNER ;10/11/06
2 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**30**;Jun 20, 1997;Build 6
3 ;
4ENVCK ;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.