AQAOUSR1.m

AQAOUSR1 ; IHS/ORDC/LJF - ENTER/EDIT QI USER ;

 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 ;

 ;This is a continuation of the user edit option.  This rtn asks

 ;what the user's access to various options should be.  From this

 ;a list of the appropriate security keys to assign is printed.

 ;

KEYS ; >> do you want to see a list of appropriate security keys for user

 W ! K DIR S DIR(0)="Y",DIR("B")="YES"

 S DIR("?",1)="A QI User's PROFILE gives you a quick look at the type"

 S DIR("?",2)="of access the user has to the QAI Management System."

 S DIR("?",3)="After answering the next couple of questions, it can"

 S DIR("?",4)="also give you a list of SECURITY KEYS for your site"

 S DIR("?",5)="manager to allocate to this user.",DIR("?")=" "

 S DIR("A")="Do you wish to see this QI User's Profile"

 D ^DIR G NAME^AQAOUSR:$D(DIRUT),NAME^AQAOUSR:Y=0

 ;

QUES1 ; >> should user have access to indicator data entry?

 W ! K DIR S DIR(0)="Y" K AQAOARR("AQAOZIED")

 S DIR("B")=$S($D(^XUSEC("AQAOZIED",AQAOUSR)):"YES",1:"NO")

 S DIR("?",1)="Should "_AQAONM_" have access to INDICATOR DATA ENTRY"

 S DIR("?",2)="options?  If you answer YES, this user will be able to"

 S DIR("?",3)="ENTER and EDIT Key Functions, Indicators, and Review"

 S DIR("?",4)="Criteria for any QI Team to which he/she is a "

 S DIR("?",5)="'CREATE/EDIT' member.",DIR("?")=" "

 S DIR("A")="Should "_AQAONM_" have access to add/change INDICATORS"

 D ^DIR G KEYS:$D(DIRUT) I Y=1 S AQAOARR("AQAOZIED")=""

 ;

QUES2 ; >> should user have access to occurrence data entry?

 W ! K DIR S DIR(0)="Y" K AQAOARR("AQAOZOCC")

 S DIR("B")=$S($D(^XUSEC("AQAOZOCC",AQAOUSR)):"YES",1:"NO")

 S DIR("?",1)="Should "_AQAONM_" have access to OCCURRENCE DATA ENTRY"

 S DIR("?",2)="options?  If you answer YES, this user will be able to"

 S DIR("?",3)="ENTER and EDIT Occurrences and their Reviews which are"

 S DIR("?",4)="linked to the Indicators for his/her QI Team for which"

 S DIR("?",5)="this user has 'CREATE/EDT' access."

 S DIR("?")=" "

 S DIR("A")="Should "_AQAONM_" have access to OCCURRENCE DATA ENTRY"

 D ^DIR G KEYS:$D(DIRUT) I Y=1 S AQAOARR("AQAOZOCC")=""

 ;

QUES3 ; >> should user have access to document action plans?

 W ! K DIR S DIR(0)="Y" K AQAOARR("AQAOZAPL")

 S DIR("B")=$S($D(^XUSEC("AQAOZAPL",AQAOUSR)):"YES",1:"NO")

 S DIR("?",1)="Should "_AQAONM_" have access to the ACTION EVALUATION"

 S DIR("?",2)="EDIT options?  If you answer YES, this user will be able"

 S DIR("?",3)="to ENTER and EDIT Actions taken (the implementation and"

 S DIR("?",4)="evaluation) linked to Indicators for the QI Team for"

 S DIR("?",5)="which this user has 'CREATE/EDIT' access",DIR("?")=" "

 S DIR("A")="Should "_AQAONM_" have access to add/change ACTION PLANS"

 D ^DIR G KEYS:$D(DIRUT) I Y=1 S AQAOARR("AQAOZAPL")=""

 ;

QUES4 ;ENTRY POINT can user have access to close/delete/reopen occ /actions?

 K AQAOARR("AQAOZVAL"),AQAOARR("AQAOZCLS")

 W ! K DIR S DIR(0)="SB^A:ALL;P:PARTIAL;N:NONE"

 S DIR("B")=$S($D(^XUSEC("AQAOZVAL",AQAOUSR)):"ALL",$D(^XUSEC("AQAOZCLS",AQAOUSR)):"PARTIAL",1:"NONE")

 S DIR("?",2)="Answer ALL if this user can close ALL occurrences linked"

 S DIR("?",3)="to indicators for his/her QI team."

 S DIR("?",5)="Answer PARTIAL if this user can close occurrences ONLY"

 S DIR("?",6)="after the INITIAL REVIEW.  The user will NOT be able to"

 S DIR("?",7)="DELETE or REOPEN occurences."

 S DIR("?",9)="Answer NONE for users who should NOT be able to close"

 S DIR("?",10)="any occurrences."

 S DIR("?",1)=" ",DIR("?",4)=" ",DIR("?",8)=" ",DIR("?",11)=" "

 S DIR("?")="Choose A for ALL, P for PARTIAL, or N for NONE."

 S DIR("A")="Should "_AQAONM_" have access to CLOSE OCCURRENCES?"

 D ^DIR G KEYS:$D(DIRUT)

 S:Y="A" AQAOARR("AQAOZVAL")=""  S:Y'="N" AQAOARR("AQAOZCLS")=""

 ;

 ;

 G ^AQAOUSR2

AQAOUSR1  ; IHS/ORDC/LJF - ENTER/EDIT QI USER ;

 +1       ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 +2       ;

 +3       ;This is a continuation of the user edit option.  This rtn asks

 +4       ;what the user's access to various options should be.  From this

 +5       ;a list of the appropriate security keys to assign is printed.

 +6       ;

KEYS      ; >> do you want to see a list of appropriate security keys for user

 +1        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           SET DIR("B")="YES"

 +2        SET DIR("?",1)="A QI User's PROFILE gives you a quick look at the type"

 +3        SET DIR("?",2)="of access the user has to the QAI Management System."

 +4        SET DIR("?",3)="After answering the next couple of questions, it can"

 +5        SET DIR("?",4)="also give you a list of SECURITY KEYS for your site"

 +6        SET DIR("?",5)="manager to allocate to this user."

           SET DIR("?")=" "

 +7        SET DIR("A")="Do you wish to see this QI User's Profile"

 +8        DO ^DIR

           IF $DATA(DIRUT)

               GOTO NAME^AQAOUSR

           IF Y=0

               GOTO NAME^AQAOUSR

 +9       ;

QUES1     ; >> should user have access to indicator data entry?

 +1        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           KILL AQAOARR("AQAOZIED")

 +2        SET DIR("B")=$SELECT($DATA(^XUSEC("AQAOZIED",AQAOUSR)):"YES",1:"NO")

 +3        SET DIR("?",1)="Should "_AQAONM_" have access to INDICATOR DATA ENTRY"

 +4        SET DIR("?",2)="options?  If you answer YES, this user will be able to"

 +5        SET DIR("?",3)="ENTER and EDIT Key Functions, Indicators, and Review"

 +6        SET DIR("?",4)="Criteria for any QI Team to which he/she is a "

 +7        SET DIR("?",5)="'CREATE/EDIT' member."

           SET DIR("?")=" "

 +8        SET DIR("A")="Should "_AQAONM_" have access to add/change INDICATORS"

 +9        DO ^DIR

           IF $DATA(DIRUT)

               GOTO KEYS

           IF Y=1

               SET AQAOARR("AQAOZIED")=""

 +10      ;

QUES2     ; >> should user have access to occurrence data entry?

 +1        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           KILL AQAOARR("AQAOZOCC")

 +2        SET DIR("B")=$SELECT($DATA(^XUSEC("AQAOZOCC",AQAOUSR)):"YES",1:"NO")

 +3        SET DIR("?",1)="Should "_AQAONM_" have access to OCCURRENCE DATA ENTRY"

 +4        SET DIR("?",2)="options?  If you answer YES, this user will be able to"

 +5        SET DIR("?",3)="ENTER and EDIT Occurrences and their Reviews which are"

 +6        SET DIR("?",4)="linked to the Indicators for his/her QI Team for which"

 +7        SET DIR("?",5)="this user has 'CREATE/EDT' access."

 +8        SET DIR("?")=" "

 +9        SET DIR("A")="Should "_AQAONM_" have access to OCCURRENCE DATA ENTRY"

 +10       DO ^DIR

           IF $DATA(DIRUT)

               GOTO KEYS

           IF Y=1

               SET AQAOARR("AQAOZOCC")=""

 +11      ;

QUES3     ; >> should user have access to document action plans?

 +1        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           KILL AQAOARR("AQAOZAPL")

 +2        SET DIR("B")=$SELECT($DATA(^XUSEC("AQAOZAPL",AQAOUSR)):"YES",1:"NO")

 +3        SET DIR("?",1)="Should "_AQAONM_" have access to the ACTION EVALUATION"

 +4        SET DIR("?",2)="EDIT options?  If you answer YES, this user will be able"

 +5        SET DIR("?",3)="to ENTER and EDIT Actions taken (the implementation and"

 +6        SET DIR("?",4)="evaluation) linked to Indicators for the QI Team for"

 +7        SET DIR("?",5)="which this user has 'CREATE/EDIT' access"

           SET DIR("?")=" "

 +8        SET DIR("A")="Should "_AQAONM_" have access to add/change ACTION PLANS"

 +9        DO ^DIR

           IF $DATA(DIRUT)

               GOTO KEYS

           IF Y=1

               SET AQAOARR("AQAOZAPL")=""

 +10      ;

QUES4     ;ENTRY POINT can user have access to close/delete/reopen occ /actions?

 +1        KILL AQAOARR("AQAOZVAL"),AQAOARR("AQAOZCLS")

 +2        WRITE !

           KILL DIR

           SET DIR(0)="SB^A:ALL;P:PARTIAL;N:NONE"

 +3        SET DIR("B")=$SELECT($DATA(^XUSEC("AQAOZVAL",AQAOUSR)):"ALL",$DATA(^XUSEC("AQAOZCLS",AQAOUSR)):"PARTIAL",1:"NONE")

 +4        SET DIR("?",2)="Answer ALL if this user can close ALL occurrences linked"

 +5        SET DIR("?",3)="to indicators for his/her QI team."

 +6        SET DIR("?",5)="Answer PARTIAL if this user can close occurrences ONLY"

 +7        SET DIR("?",6)="after the INITIAL REVIEW.  The user will NOT be able to"

 +8        SET DIR("?",7)="DELETE or REOPEN occurences."

 +9        SET DIR("?",9)="Answer NONE for users who should NOT be able to close"

 +10       SET DIR("?",10)="any occurrences."

 +11       SET DIR("?",1)=" "

           SET DIR("?",4)=" "

           SET DIR("?",8)=" "

           SET DIR("?",11)=" "

 +12       SET DIR("?")="Choose A for ALL, P for PARTIAL, or N for NONE."

 +13       SET DIR("A")="Should "_AQAONM_" have access to CLOSE OCCURRENCES?"

 +14       DO ^DIR

           IF $DATA(DIRUT)

               GOTO KEYS

 +15       IF Y="A"

               SET AQAOARR("AQAOZVAL")=""

           IF Y'="N"

               SET AQAOARR("AQAOZCLS")=""

 +16      ;

 +17      ;

 +18       GOTO ^AQAOUSR2