BTIUPREF.m

BTIUPREF ; IHS/ITSC/LJF - Enter/edit personal preferences ;

 ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 ;Copy of ^TIUPREF

 ;   -- joined 2 VA menu options into one by adding MENU code below

 ;   -- only those with TIUZPPR key can edit other people's preferences

 ;   -- modified DR string in EDIT

 ;   -- removed code to say for which notes user needs cosignature (done other places)

 ;

MENU ; ask user which option to run

 S Y=$$READ^TIUU("SO^1:Personal Preferences;2:Document List Management")

 Q:Y<1  I +Y=2 D ^BTIUPLST Q

 ;

MAIN ; Control branching

 NEW DA,TIUDUZ

 S DA=+$$GETREC

 I +DA'>0 Q

 D EDIT(DA)

 Q

GETREC() ; Get record in picklist file

 S TIUDUZ=$$SETDUZ I TIUDUZ<1 Q TIUDUZ

 N DIC,DLAYGO,X,Y,ASKNEW

 S (DIC,DLAYGO)=8926,DIC(0)="ELMZQ"

 S X=$P(^VA(200,+$G(TIUDUZ),0),U)

 W !,"   Enter/edit Personal Preferences for ",X

 D ^DIC

 Q +$G(Y)

EDIT(DA) ; Call ^DIE to edit the record

 N DIE,DR,TIUCLASS

 S DIE=8926,TIUREQCS=$$REQCOS^TIUPREF(DA)

 S DR=".02:.08;.1;.11;I +TIUREQCS'>0 S Y=""@1"";.09;@1;1"

 S DR(2,8926.01)=".01;.02;.03" D ^DIE

 Q

 ;

SETDUZ() ; -- returns user to edit

 I '$D(^XUSEC("TIUZPPR",DUZ)) Q DUZ

 S DIC=200,DIC(0)="AQMEZ",DIC("A")="Select TIU User: " D ^DIC Q +Y

BTIUPREF  ; IHS/ITSC/LJF - Enter/edit personal preferences ;

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;;NOV 04, 2004

 +2       ;Copy of ^TIUPREF

 +3       ;   -- joined 2 VA menu options into one by adding MENU code below

 +4       ;   -- only those with TIUZPPR key can edit other people's preferences

 +5       ;   -- modified DR string in EDIT

 +6       ;   -- removed code to say for which notes user needs cosignature (done other places)

 +7       ;

MENU      ; ask user which option to run

 +1        SET Y=$$READ^TIUU("SO^1:Personal Preferences;2:Document List Management")

 +2        IF Y<1

               QUIT 

           IF +Y=2

               DO ^BTIUPLST

               QUIT 

 +3       ;

MAIN      ; Control branching

 +1        NEW DA,TIUDUZ

 +2        SET DA=+$$GETREC

 +3        IF +DA'>0

               QUIT 

 +4        DO EDIT(DA)

 +5        QUIT 

GETREC()  ; Get record in picklist file

 +1        SET TIUDUZ=$$SETDUZ

           IF TIUDUZ<1

               QUIT TIUDUZ

 +2        NEW DIC,DLAYGO,X,Y,ASKNEW

 +3        SET (DIC,DLAYGO)=8926

           SET DIC(0)="ELMZQ"

 +4        SET X=$PIECE(^VA(200,+$GET(TIUDUZ),0),U)

 +5        WRITE !,"   Enter/edit Personal Preferences for ",X

 +6        DO ^DIC

 +7        QUIT +$GET(Y)

EDIT(DA)  ; Call ^DIE to edit the record

 +1        NEW DIE,DR,TIUCLASS

 +2        SET DIE=8926

           SET TIUREQCS=$$REQCOS^TIUPREF(DA)

 +3        SET DR=".02:.08;.1;.11;I +TIUREQCS'>0 S Y=""@1"";.09;@1;1"

 +4        SET DR(2,8926.01)=".01;.02;.03"

           DO ^DIE

 +5        QUIT 

 +6       ;

SETDUZ()  ; -- returns user to edit

 +1        IF '$DATA(^XUSEC("TIUZPPR",DUZ))

               QUIT DUZ

 +2        SET DIC=200

           SET DIC(0)="AQMEZ"

           SET DIC("A")="Select TIU User: "

           DO ^DIC

           QUIT +Y