USR30.m

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 ---USR30   806     printed  Apr 09, 2024@20:44:09                                                                                                                                                                                                        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      ;