source: FOIAVistA/trunk/r/PROBLEM_LIST-GMPL/GMPLPRF0.m@ 757

Last change on this file since 757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1GMPLPRF0 ; SLC/MKB -- Problem List User Prefs cont ;;9-5-95 11:54am
2 ;;2.0;Problem List;**3**;Aug 25, 1994
3CURRENT(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 ;
11CHANGE() ; 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 ;
19VIEW(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 ;
28ALL(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
Note: See TracBrowser for help on using the repository browser.