AQAOUSP ; IHS/ORDC/LJF - PRINT USER PROFILE (KEYS) ;
;;1.01;QAI MANAGEMENT;;OCT 05, 1995
;
;This rtn contains an entry point for the user interface and DIP call
;to print a user's QAI access profile. It also contains an entry
;point called by the print template to list the security keys
;assigned to the user.
;
KEYS ;ENTRY POINT to print security key portion of qi user profile
;called by print template [AQAO USER PROFILE]
W !!,"SECURITY KEYS:"
S AQAOX="AQAO"
F S AQAOX=$O(^DIC(19.1,"B",AQAOX)) Q:AQAOX="" Q:$E(AQAOX,1,4)'="AQAO" D
.S AQAOY=$O(^DIC(19.1,"B",AQAOX,0)) Q:AQAOY=""
.I $D(^XUSEC(AQAOX,AQAOUSR)) D Q ; if user has key
..W !,AQAOX,": ",$E(^DIC(19.1,AQAOY,1,1,0),1,47) ;key & descript
..Q:'$D(AQAOARR) Q:$D(AQAOARR(AQAOX)) ;okay to keep key
..W ?60,"REMOVE KEY FROM USER"
.E D ;else user doesn't have key
..Q:'$D(AQAOARR(AQAOX)) ;don't assign key
..W !,AQAOX,": ",$E(^DIC(19.1,AQAOY,1,1,0),1,47) ;key&descript
..W ?60,"ASSIGN KEY TO USER"
;
F AQAOX="AMQQZMENU","ATSZMENU" D
.S AQAOY=$O(^DIC(19.1,"B",AQAOX,0)) Q:AQAOY="" I $D(^XUSEC(AQAOX,AQAOUSR)) D Q ;if user has key
..W !,AQAOX,": ",$E(^DIC(19.1,AQAOY,1,1,0),1,47) ;key & descript
..Q:'$D(AQAOARR) Q:$D(AQAOARR(AQAOX)) ;okay to keep key
..W ?60,"REMOVE KEY FROM USER"
.E D ;else user doesn't have key
..Q:'$D(AQAOARR(AQAOX)) ;don't assign key
..W !,AQAOX,": ",$E(^DIC(19.1,AQAOY,1,1,0),1,47) ;key&descript
..W ?60,"ASSIGN KEY TO USER"
W !
K AQAOX,AQAOY Q
;
;
DISPLAY ;ENTRY POINT to print user profile from menu
;called by option AQAO USER DISPLAY
D DISPLAY^AQAOHUSR ;intro text
NAME ; >>> ask for user name
W ! K DIC S DIC="^AQAO(9,",DIC(0)="AEMZQ"
S DIC("A")="Select QI USER NAME: "
D ^DIC G END:$D(DTOUT),END:$D(DUOUT),END:X="",NAME:Y=-1
S AQAOUSR=+Y ;user ifn
;
PRINT ; >>> set variables and call dip
W !!,"Enter 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
;
END ; >>> eoj
D KILL^AQAOUTIL Q
AQAOUSP ; IHS/ORDC/LJF - PRINT USER PROFILE (KEYS) ;
+1 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
+2 ;
+3 ;This rtn contains an entry point for the user interface and DIP call
+4 ;to print a user's QAI access profile. It also contains an entry
+5 ;point called by the print template to list the security keys
+6 ;assigned to the user.
+7 ;
KEYS ;ENTRY POINT to print security key portion of qi user profile
+1 ;called by print template [AQAO USER PROFILE]
+2 WRITE !!,"SECURITY KEYS:"
+3 SET AQAOX="AQAO"
+4 FOR
SET AQAOX=$ORDER(^DIC(19.1,"B",AQAOX))
IF AQAOX=""
QUIT
IF $EXTRACT(AQAOX,1,4)'="AQAO"
QUIT
Begin DoDot:1
+5 SET AQAOY=$ORDER(^DIC(19.1,"B",AQAOX,0))
IF AQAOY=""
QUIT
+6 ; if user has key
IF $DATA(^XUSEC(AQAOX,AQAOUSR))
Begin DoDot:2
+7 ;key & descript
WRITE !,AQAOX,": ",$EXTRACT(^DIC(19.1,AQAOY,1,1,0),1,47)
+8 ;okay to keep key
IF '$DATA(AQAOARR)
QUIT
IF $DATA(AQAOARR(AQAOX))
QUIT
+9 WRITE ?60,"REMOVE KEY FROM USER"
End DoDot:2
QUIT
+10 ;else user doesn't have key
IF '$TEST
Begin DoDot:2
+11 ;don't assign key
IF '$DATA(AQAOARR(AQAOX))
QUIT
+12 ;key&descript
WRITE !,AQAOX,": ",$EXTRACT(^DIC(19.1,AQAOY,1,1,0),1,47)
+13 WRITE ?60,"ASSIGN KEY TO USER"
End DoDot:2
End DoDot:1
+14 ;
+15 FOR AQAOX="AMQQZMENU","ATSZMENU"
Begin DoDot:1
+16 ;if user has key
SET AQAOY=$ORDER(^DIC(19.1,"B",AQAOX,0))
IF AQAOY=""
QUIT
IF $DATA(^XUSEC(AQAOX,AQAOUSR))
Begin DoDot:2
+17 ;key & descript
WRITE !,AQAOX,": ",$EXTRACT(^DIC(19.1,AQAOY,1,1,0),1,47)
+18 ;okay to keep key
IF '$DATA(AQAOARR)
QUIT
IF $DATA(AQAOARR(AQAOX))
QUIT
+19 WRITE ?60,"REMOVE KEY FROM USER"
End DoDot:2
QUIT
+20 ;else user doesn't have key
IF '$TEST
Begin DoDot:2
+21 ;don't assign key
IF '$DATA(AQAOARR(AQAOX))
QUIT
+22 ;key&descript
WRITE !,AQAOX,": ",$EXTRACT(^DIC(19.1,AQAOY,1,1,0),1,47)
+23 WRITE ?60,"ASSIGN KEY TO USER"
End DoDot:2
End DoDot:1
+24 WRITE !
+25 KILL AQAOX,AQAOY
QUIT
+26 ;
+27 ;
DISPLAY ;ENTRY POINT to print user profile from menu
+1 ;called by option AQAO USER DISPLAY
+2 ;intro text
DO DISPLAY^AQAOHUSR
NAME ; >>> ask for user name
+1 WRITE !
KILL DIC
SET DIC="^AQAO(9,"
SET DIC(0)="AEMZQ"
+2 SET DIC("A")="Select QI USER NAME: "
+3 DO ^DIC
IF $DATA(DTOUT)
GOTO END
IF $DATA(DUOUT)
GOTO END
IF X=""
GOTO END
IF Y=-1
GOTO NAME
+4 ;user ifn
SET AQAOUSR=+Y
+5 ;
PRINT ; >>> set variables and call dip
+1 WRITE !!,"Enter 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 ;
END ; >>> eoj
+1 DO KILL^AQAOUTIL
QUIT
