36 lines
2.2 KiB
Mathematica
36 lines
2.2 KiB
Mathematica
GMPLPRF0 ; SLC/MKB -- Problem List User Prefs cont ;;9-5-95 11:54am
|
|
;;2.0;Problem List;**3**;Aug 25, 1994
|
|
CURRENT(USER) ; Show user's current preference
|
|
N VIEW,NUM W !!,"CURRENT VIEW: "
|
|
S VIEW=$P($G(^VA(200,USER,125)),U),NUM=$S($L(VIEW,"/")<3:"all",1:$L(VIEW,"/")-2)
|
|
I $E(VIEW)="S" W "Inpatient, "_NUM_" services included",! Q
|
|
I $E(VIEW)="C" W "Outpatient, "_NUM_" clinics included",! Q
|
|
W "None defined",!," (Default is outpatient, all clinics included)",!
|
|
Q
|
|
;
|
|
CHANGE() ; Want to change preferred view?
|
|
N DIR,X,Y S DIR(0)="YA",DIR("B")="NO"
|
|
S DIR("A")="Do you want to change your preferred view? "
|
|
S DIR("?",1)="Enter YES if you want to change your preferred view of patient",DIR("?",2)="problem lists; NO will exit this option, leaving your view unchanged."
|
|
S DIR("?",3)="Your preferred view will determine what information you see about",DIR("?")="each problem, and whether you see a complete or partial list."
|
|
D ^DIR
|
|
Q +Y
|
|
;
|
|
VIEW(MODE) ; Returns user's preferred view, by 'S'ervice or 'C'linic
|
|
N DIR,X,Y S DIR("B")=$S(MODE="S":"INPATIENT",1:"OUTPATIENT")
|
|
S DIR(0)="SAOM^C:OUTPATIENT;S:INPATIENT;",DIR("A")="Select VIEW: "
|
|
S DIR("?",1)="Choose from: Outpatient"
|
|
S DIR("?",2)=" Inpatient"
|
|
S DIR("?",3)="An OUTPATIENT view will display information regarding the clinic that",DIR("?",4)="is following each problem; an INPATIENT view will display service and",DIR("?")="responsible provider information."
|
|
D ^DIR S:$D(DTOUT)!($D(DUOUT)) Y="^"
|
|
Q Y
|
|
;
|
|
ALL(MODE,DEFLT) ; Include all problems, or select from clinics/services?
|
|
N DIR,X,Y
|
|
S DIR(0)="SAOM^A:ALL;S:SELECTED;",DIR("B")=$S(DEFLT<3:"ALL",1:"SELECTED")
|
|
S DIR("A")="Include (A)ll problems or only those from (S)elected "_$S(MODE="S":"services",1:"clinics")_"? "
|
|
S DIR("?",1)="Enter A to display all active problems for the selected patient, or S to",DIR("?",2)="see a partial list. You may select specific "_$S(MODE="S":"inpatient services",1:"outpatient clinics")_", and only"
|
|
S DIR("?",3)="those problems associated with them will be shown at first; the remainder",DIR("?",4)="of the patient's problems are always available to display through the",DIR("?")="""Select View"" action."
|
|
D ^DIR S:$D(DTOUT)!($D(DUOUT)) Y="^" S:Y="A" Y=1 S:Y="S" Y=0
|
|
Q Y
|