AQAOUSR2.m

AQAOUSR2 ; IHS/ORDC/LJF - CONTINUATION OF EDIT USER ;

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

 ;

 ;This is a continuation of the series of questions on a user's

 ;access to various menu options.  It also contains the DIP call

 ;to print the user's profile including a comparison between which

 ;keys the user curently has assigned and those based on the answers

 ;to these questions.

 ;

QUES5 ; >> should user have access to QMAN?

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

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

 S DIR("?",1)="Should "_AQAONM_" have access to the Q-Man Query System?"

 S DIR("?",2)="If you answer YES, this user will be able to use Q-Man"

 S DIR("?",3)="to run ad hoc searches on the PCC database as part of "

 S DIR("?",4)="the data collection process.  The Q-Man Query System"

 S DIR("?",5)="is duplicated in this package for convenience."

 S DIR("?")=" "

 S DIR("A")="Should "_AQAONM_" have access to Q-MAN QUERY SYSTEM"

 D ^DIR G QUES4^AQAOUSR1:$D(DIRUT) I Y=1 S AQAOARR("AMQQZMENU")=""

 ;

QUES6 ; >> should user have access to Search Template System

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

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

 S DIR("?",1)="Should "_AQAONM_" have access to the Search Template"

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

 S DIR("?",3)="compare search templates created by Q-Man as part of "

 S DIR("?",4)="the data collection and evaluation process.  The Search"

 S DIR("?",5)="Template System is available in this package for the"

 S DIR("?",6)="user's convenience. ",DIR("?")=" "

 S DIR("A")="Should "_AQAONM_" have access to SEARCH TEMPLATE SYSTEM"

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

 ;

QUES7 ; >> should user see provider reports?

 W ! K DIR S DIR(0)="YO" K AQAOARR("AQAOZPRV")

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

 S DIR("?",1)="Should "_AQAONM_" have access to PROVIDER Reports based"

 S DIR("?",2)="on occurrences entered and reviewed?  We suggest only"

 S DIR("?",3)="giving the access to users involved in the Credentialing"

 S DIR("?",4)="process (QI staff, Clinical Director, Service Chiefs)."

 S DIR("?")=" "

 S DIR("A")="Should "_AQAONM_" have access to PROVIDER REPORTS"

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

 ;

 ;

PROFILE ; >> print user profile with key allocation suggestions

 W !!,"Enter your PRINTER NAME or 'HOME' to print to your screen"

 S DIC="^AQAO(9,",L=0,FLDS="[AQAO USER PROFILE]",(TO,FR)=AQAOUSR

 S BY="@NUMBER" D EN1^DIP ;print profile

 D PRTOPT^AQAOVAR

 ;

 G NAME^AQAOUSR ;return to beginning

 ;

 ;

END ; >>> eoj

 D KILL^AQAOUTIL Q

AQAOUSR2  ; IHS/ORDC/LJF - CONTINUATION OF EDIT USER ;

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

 +2       ;

 +3       ;This is a continuation of the series of questions on a user's

 +4       ;access to various menu options.  It also contains the DIP call

 +5       ;to print the user's profile including a comparison between which

 +6       ;keys the user curently has assigned and those based on the answers

 +7       ;to these questions.

 +8       ;

QUES5     ; >> should user have access to QMAN?

 +1        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           KILL AQAOARR("AMQQZMENU")

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

 +3        SET DIR("?",1)="Should "_AQAONM_" have access to the Q-Man Query System?"

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

 +5        SET DIR("?",3)="to run ad hoc searches on the PCC database as part of "

 +6        SET DIR("?",4)="the data collection process.  The Q-Man Query System"

 +7        SET DIR("?",5)="is duplicated in this package for convenience."

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

 +9        SET DIR("A")="Should "_AQAONM_" have access to Q-MAN QUERY SYSTEM"

 +10       DO ^DIR

           IF $DATA(DIRUT)

               GOTO QUES4^AQAOUSR1

           IF Y=1

               SET AQAOARR("AMQQZMENU")=""

 +11      ;

QUES6     ; >> should user have access to Search Template System

 +1        WRITE !

           KILL DIR

           SET DIR(0)="Y"

           KILL AQAOARR("ATSZMENU")

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

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

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

 +5        SET DIR("?",3)="compare search templates created by Q-Man as part of "

 +6        SET DIR("?",4)="the data collection and evaluation process.  The Search"

 +7        SET DIR("?",5)="Template System is available in this package for the"

 +8        SET DIR("?",6)="user's convenience. "

           SET DIR("?")=" "

 +9        SET DIR("A")="Should "_AQAONM_" have access to SEARCH TEMPLATE SYSTEM"

 +10       DO ^DIR

           IF $DATA(DIRUT)

               GOTO QUES5

           IF Y=1

               SET AQAOARR("ATSZMENU")=""

 +11      ;

QUES7     ; >> should user see provider reports?

 +1        WRITE !

           KILL DIR

           SET DIR(0)="YO"

           KILL AQAOARR("AQAOZPRV")

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

 +3        SET DIR("?",1)="Should "_AQAONM_" have access to PROVIDER Reports based"

 +4        SET DIR("?",2)="on occurrences entered and reviewed?  We suggest only"

 +5        SET DIR("?",3)="giving the access to users involved in the Credentialing"

 +6        SET DIR("?",4)="process (QI staff, Clinical Director, Service Chiefs)."

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

 +8        SET DIR("A")="Should "_AQAONM_" have access to PROVIDER REPORTS"

 +9        DO ^DIR

           IF $DATA(DIRUT)

               GOTO QUES6

           IF Y=1

               SET AQAOARR("AQAOZPRV")=""

 +10      ;

 +11      ;

PROFILE   ; >> print user profile with key allocation suggestions

 +1        WRITE !!,"Enter your PRINTER NAME or 'HOME' to print to your screen"

 +2        SET DIC="^AQAO(9,"

           SET L=0

           SET FLDS="[AQAO USER PROFILE]"

           SET (TO,FR)=AQAOUSR

 +3       ;print profile

           SET BY="@NUMBER"

           DO EN1^DIP

 +4        DO PRTOPT^AQAOVAR

 +5       ;

 +6       ;return to beginning

           GOTO NAME^AQAOUSR

 +7       ;

 +8       ;

END       ; >>> eoj

 +1        DO KILL^AQAOUTIL

           QUIT