- 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
