USR30 ; SLC/MAM - Environment check - new USR Action EDIT COSIGNER ;10/11/06
;;1.0;AUTHORIZATION/SUBSCRIPTION;**30**;Jun 20, 1997;Build 6
;
ENVCK ;Environment check
; Check if already have 27 = EDIT COSIGNER:
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
; Check if current file is correct:
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
. W !!,"Your last USR ACTION FILE entry should be LINK TO FLAG, IEN #26."
. W !,"I cannot create new USR Action EDIT COSIGNER unless"
. W !,"your current file is correct. Please contact EVS. Aborting."
W !!,"Current file looks OK; I will create new USR Action EDIT COSIGNER with IEN 27."
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HUSR30 806 printed Nov 22, 2024@16:48:51 Page 2
USR30 ; SLC/MAM - Environment check - new USR Action EDIT COSIGNER ;10/11/06
+1 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**30**;Jun 20, 1997;Build 6
+2 ;
ENVCK ;Environment check
+1 ; Check if already have 27 = EDIT COSIGNER:
+2 IF $PIECE(^USR(8930.8,0),U,3)=27
IF $PIECE($GET(^USR(8930.8,27,0)),U)="EDIT COSIGNER"
WRITE !!,"You already have action EDIT COSIGNER, IEN 27. I will overwrite it."
QUIT
+3 ; Check if current file is correct:
+4 IF ($PIECE(^USR(8930.8,0),U,3)'=26)!($PIECE($GET(^USR(8930.8,26,0)),U)'="LINK TO FLAG")
SET XPDQUIT=2
Begin DoDot:1
+5 WRITE !!,"Your last USR ACTION FILE entry should be LINK TO FLAG, IEN #26."
+6 WRITE !,"I cannot create new USR Action EDIT COSIGNER unless"
+7 WRITE !,"your current file is correct. Please contact EVS. Aborting."
End DoDot:1
QUIT
+8 WRITE !!,"Current file looks OK; I will create new USR Action EDIT COSIGNER with IEN 27."
+9 QUIT
+10 ;
