| [613] | 1 | GMPLPRF0 ; SLC/MKB -- Problem List User Prefs cont ;;9-5-95 11:54am
|
|---|
| 2 | ;;2.0;Problem List;**3**;Aug 25, 1994
|
|---|
| 3 | CURRENT(USER) ; Show user's current preference
|
|---|
| 4 | N VIEW,NUM W !!,"CURRENT VIEW: "
|
|---|
| 5 | S VIEW=$P($G(^VA(200,USER,125)),U),NUM=$S($L(VIEW,"/")<3:"all",1:$L(VIEW,"/")-2)
|
|---|
| 6 | I $E(VIEW)="S" W "Inpatient, "_NUM_" services included",! Q
|
|---|
| 7 | I $E(VIEW)="C" W "Outpatient, "_NUM_" clinics included",! Q
|
|---|
| 8 | W "None defined",!," (Default is outpatient, all clinics included)",!
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | CHANGE() ; Want to change preferred view?
|
|---|
| 12 | N DIR,X,Y S DIR(0)="YA",DIR("B")="NO"
|
|---|
| 13 | S DIR("A")="Do you want to change your preferred view? "
|
|---|
| 14 | 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."
|
|---|
| 15 | 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."
|
|---|
| 16 | D ^DIR
|
|---|
| 17 | Q +Y
|
|---|
| 18 | ;
|
|---|
| 19 | VIEW(MODE) ; Returns user's preferred view, by 'S'ervice or 'C'linic
|
|---|
| 20 | N DIR,X,Y S DIR("B")=$S(MODE="S":"INPATIENT",1:"OUTPATIENT")
|
|---|
| 21 | S DIR(0)="SAOM^C:OUTPATIENT;S:INPATIENT;",DIR("A")="Select VIEW: "
|
|---|
| 22 | S DIR("?",1)="Choose from: Outpatient"
|
|---|
| 23 | S DIR("?",2)=" Inpatient"
|
|---|
| 24 | 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."
|
|---|
| 25 | D ^DIR S:$D(DTOUT)!($D(DUOUT)) Y="^"
|
|---|
| 26 | Q Y
|
|---|
| 27 | ;
|
|---|
| 28 | ALL(MODE,DEFLT) ; Include all problems, or select from clinics/services?
|
|---|
| 29 | N DIR,X,Y
|
|---|
| 30 | S DIR(0)="SAOM^A:ALL;S:SELECTED;",DIR("B")=$S(DEFLT<3:"ALL",1:"SELECTED")
|
|---|
| 31 | S DIR("A")="Include (A)ll problems or only those from (S)elected "_$S(MODE="S":"services",1:"clinics")_"? "
|
|---|
| 32 | 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"
|
|---|
| 33 | 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."
|
|---|
| 34 | D ^DIR S:$D(DTOUT)!($D(DUOUT)) Y="^" S:Y="A" Y=1 S:Y="S" Y=0
|
|---|
| 35 | Q Y
|
|---|
