TIULE.m

TIULE ; SLC/SBW - Environment Library Functions ;4/22/94  11:28

 ;;1.0;TEXT INTEGRATION UTILITIES;**10**;Jun 20, 1997

SETPARM ; Get parameters for user's division

 N TIUI

 ; S TIUI=$O(^TIU(8925.99,"B",+$O(^DG(40.8,"AD",+$G(DUZ(2)),0)),0))

 S TIUI=$O(^TIU(8925.99,"B",+$G(DUZ(2)),0))

 S:+TIUI'>0 TIUI=+$O(^TIU(8925.99,0))

 S TIUPRM0=$G(^TIU(8925.99,+TIUI,0)),TIUPRM1=$G(^TIU(8925.99,+TIUI,1))

 Q

GETDOCS(TIUY,TIUDUZ,TIUCLASS) ; Get personal document lists

 N TIUI,TIUDA

 S TIUI=0,TIUDA=+$O(^TIU(8925.98,"AC",TIUDUZ,TIUCLASS,0))

 I 'TIUDA S TIUY=0 Q

 S TIUY=$$PNAME^TIULC1(TIUCLASS)_U_$P($G(^TIU(8925.98,+TIUDA,0)),U,3)

 S TIUY=TIUY_U_$P($G(^TIU(8925.1,+$P(TIUY,U,2),0)),U)

 F  S TIUI=$O(^TIU(8925.98,TIUDA,10,"B",TIUI)) Q:+TIUI'>0  D

 . N TIUJ S TIUJ=$O(^TIU(8925.98,TIUDA,10,"B",TIUI,0)) Q:+TIUJ'>0

 . S TIUY(TIUI)=$P($G(^TIU(8925.98,TIUDA,10,TIUJ,0)),U,2,3)

 Q

PERSPRF(USER) ; Get USER's Personal Preferences

 N DA,Y S Y=""

 S DA=+$O(^TIU(8926,"B",USER,0)) I +DA'>0 G PERSPX

 S Y=$G(^TIU(8926,+DA,0))

PERSPX Q Y

PERSDOC(USER,TIUCLASS) ; Get Default document type, given user & class

 N TIUY,TIUTYPE,TIUDA

 S TIUDA=+$O(^TIU(8925.98,"AC",USER,TIUCLASS,0))

 I 'TIUDA S TIUY=0 G PERSDOX

 S TIUTYPE=$P($G(^TIU(8925.98,+TIUDA,0)),U,3)

 I '+$$CANPICK^TIULP(TIUTYPE) S TIUY=0 G PERSDOX

 S TIUY=TIUTYPE_U_$P($G(^TIU(8925.1,+TIUTYPE,0)),U)

PERSDOX Q TIUY

PERSLOC(USER) ; Get Default location (By day of week, if defined)

 N DA,Y S Y=""

 S DA=+$O(^TIU(8926,"B",USER,0)) I +DA'>0 G PERSLOX

 S Y=+$P(^TIU(8926,+DA,0),U,2) S:+Y Y=Y_U_$P($G(^SC(+Y,0)),U)

 I +$O(^TIU(8926,+DA,1,0)) D

 . N DOW,S1

 . S DOW=$$DOW^XLFDT(DT,1)+1,S1=+$O(^TIU(8926,DA,1,"B",DOW,0)) Q:+S1'>0

 . S Y=+$P(^TIU(8926,+DA,1,+S1,0),U,2) S:+Y Y=Y_U_$P($G(^SC(+Y,0)),U)

PERSLOX Q Y

TIULE     ; SLC/SBW - Environment Library Functions ;4/22/94  11:28

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**10**;Jun 20, 1997

SETPARM   ; Get parameters for user's division

 +1        NEW TIUI

 +2       ; S TIUI=$O(^TIU(8925.99,"B",+$O(^DG(40.8,"AD",+$G(DUZ(2)),0)),0))

 +3        SET TIUI=$ORDER(^TIU(8925.99,"B",+$GET(DUZ(2)),0))

 +4        IF +TIUI'>0

               SET TIUI=+$ORDER(^TIU(8925.99,0))

 +5        SET TIUPRM0=$GET(^TIU(8925.99,+TIUI,0))

           SET TIUPRM1=$GET(^TIU(8925.99,+TIUI,1))

 +6        QUIT 

GETDOCS(TIUY,TIUDUZ,TIUCLASS) ; Get personal document lists

 +1        NEW TIUI,TIUDA

 +2        SET TIUI=0

           SET TIUDA=+$ORDER(^TIU(8925.98,"AC",TIUDUZ,TIUCLASS,0))

 +3        IF 'TIUDA

               SET TIUY=0

               QUIT 

 +4        SET TIUY=$$PNAME^TIULC1(TIUCLASS)_U_$PIECE($GET(^TIU(8925.98,+TIUDA,0)),U,3)

 +5        SET TIUY=TIUY_U_$PIECE($GET(^TIU(8925.1,+$PIECE(TIUY,U,2),0)),U)

 +6        FOR 

               SET TIUI=$ORDER(^TIU(8925.98,TIUDA,10,"B",TIUI))

               IF +TIUI'>0

                   QUIT 

               Begin DoDot:1

 +7                NEW TIUJ

                   SET TIUJ=$ORDER(^TIU(8925.98,TIUDA,10,"B",TIUI,0))

                   IF +TIUJ'>0

                       QUIT 

 +8                SET TIUY(TIUI)=$PIECE($GET(^TIU(8925.98,TIUDA,10,TIUJ,0)),U,2,3)

               End DoDot:1

 +9        QUIT 

PERSPRF(USER) ; Get USER's Personal Preferences

 +1        NEW DA,Y

           SET Y=""

 +2        SET DA=+$ORDER(^TIU(8926,"B",USER,0))

           IF +DA'>0

               GOTO PERSPX

 +3        SET Y=$GET(^TIU(8926,+DA,0))

PERSPX     QUIT Y

PERSDOC(USER,TIUCLASS) ; Get Default document type, given user & class

 +1        NEW TIUY,TIUTYPE,TIUDA

 +2        SET TIUDA=+$ORDER(^TIU(8925.98,"AC",USER,TIUCLASS,0))

 +3        IF 'TIUDA

               SET TIUY=0

               GOTO PERSDOX

 +4        SET TIUTYPE=$PIECE($GET(^TIU(8925.98,+TIUDA,0)),U,3)

 +5        IF '+$$CANPICK^TIULP(TIUTYPE)

               SET TIUY=0

               GOTO PERSDOX

 +6        SET TIUY=TIUTYPE_U_$PIECE($GET(^TIU(8925.1,+TIUTYPE,0)),U)

PERSDOX    QUIT TIUY

PERSLOC(USER) ; Get Default location (By day of week, if defined)

 +1        NEW DA,Y

           SET Y=""

 +2        SET DA=+$ORDER(^TIU(8926,"B",USER,0))

           IF +DA'>0

               GOTO PERSLOX

 +3        SET Y=+$PIECE(^TIU(8926,+DA,0),U,2)

           IF +Y

               SET Y=Y_U_$PIECE($GET(^SC(+Y,0)),U)

 +4        IF +$ORDER(^TIU(8926,+DA,1,0))

               Begin DoDot:1

 +5                NEW DOW,S1

 +6                SET DOW=$$DOW^XLFDT(DT,1)+1

                   SET S1=+$ORDER(^TIU(8926,DA,1,"B",DOW,0))

                   IF +S1'>0

                       QUIT 

 +7                SET Y=+$PIECE(^TIU(8926,+DA,1,+S1,0),U,2)

                   IF +Y

                       SET Y=Y_U_$PIECE($GET(^SC(+Y,0)),U)

               End DoDot:1

PERSLOX    QUIT Y