USR27 ; SLC/MAM - Environment check - new USR Action Link to Flag ;2/17/05
;;1.0;AUTHORIZATION/SUBSCRIPTION;**27**;Jun 20, 1997
;
ENVCK ;Environment check
; Check if already have 26=LINK TO FLAG:
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
; Check if current file is correct:
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
. W !!,"Your last USR ACTION FILE entry should be ATTACH ID ENTRY, IEN #25."
. W !,"I cannot create new USR Action LINK TO FLAG unless your current"
. W !,"file is correct. Please contact EVS. Aborting."
W !!,"Current file looks OK; I will create new USR Action LINK TO FLAG."
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HUSR27 775 printed Sep 15, 2024@21:02:52 Page 2
USR27 ; SLC/MAM - Environment check - new USR Action Link to Flag ;2/17/05
+1 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**27**;Jun 20, 1997
+2 ;
ENVCK ;Environment check
+1 ; Check if already have 26=LINK TO FLAG:
+2 IF $PIECE(^USR(8930.8,0),U,3)=26
IF $PIECE($GET(^USR(8930.8,26,0)),U)="LINK TO FLAG"
WRITE !!,"You already have action LINK TO FLAG. I will overwrite it."
QUIT
+3 ; Check if current file is correct:
+4 IF ($PIECE(^USR(8930.8,0),U,3)'=25)!($PIECE($GET(^USR(8930.8,25,0)),U)'="ATTACH ID ENTRY")
SET XPDQUIT=2
Begin DoDot:1
+5 WRITE !!,"Your last USR ACTION FILE entry should be ATTACH ID ENTRY, IEN #25."
+6 WRITE !,"I cannot create new USR Action LINK TO FLAG unless your current"
+7 WRITE !,"file is correct. Please contact EVS. Aborting."
End DoDot:1
QUIT
+8 WRITE !!,"Current file looks OK; I will create new USR Action LINK TO FLAG."
+9 QUIT
+10 ;
