source: FOIAVistA/trunk/r/AUTHORIZATION_SUBSCRIPTION-USR/USR27.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 761 bytes
Line 
1USR27 ; SLC/MAM - Environment check - new USR Action Link to Flag ;2/17/05
2 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**27**;Jun 20, 1997
3 ;
4ENVCK ;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.