GMPLO009 ; ; 25-AUG-1994
;;2.0;Problem List;;Aug 25, 1994
F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,"PRO",2531,1,5,0)
;;=problem(s) or change which problems appear on the displayed view of the
;;^UTILITY(U,$J,"PRO",2531,1,6,0)
;;=list. A new patient's list may be selected or a printout of the list
;;^UTILITY(U,$J,"PRO",2531,1,7,0)
;;=generated.
;;^UTILITY(U,$J,"PRO",2531,4)
;;=26^4
;;^UTILITY(U,$J,"PRO",2531,10,0)
;;=^101.01PA^11^12
;;^UTILITY(U,$J,"PRO",2531,10,1,0)
;;=2350^SP^23^^^
;;^UTILITY(U,$J,"PRO",2531,10,1,"^")
;;=GMPL PATIENT
;;^UTILITY(U,$J,"PRO",2531,10,2,0)
;;=2345^AD^1
;;^UTILITY(U,$J,"PRO",2531,10,2,"^")
;;=GMPL NEW PROBLEM
;;^UTILITY(U,$J,"PRO",2531,10,3,0)
;;=2347^CM^13^^^
;;^UTILITY(U,$J,"PRO",2531,10,3,1)
;;=^^^
;;^UTILITY(U,$J,"PRO",2531,10,3,"^")
;;=GMPL ANNOTATE
;;^UTILITY(U,$J,"PRO",2531,10,4,0)
;;=2356^IN^11
;;^UTILITY(U,$J,"PRO",2531,10,4,"^")
;;=GMPL INACTIVATE
;;^UTILITY(U,$J,"PRO",2531,10,5,0)
;;=2348^DT^15
;;^UTILITY(U,$J,"PRO",2531,10,5,"^")
;;=GMPL DETAILED DISPLAY
;;^UTILITY(U,$J,"PRO",2531,10,6,0)
;;=2362^ED^5
;;^UTILITY(U,$J,"PRO",2531,10,6,"^")
;;=GMPL EDIT PROBLEM
;;^UTILITY(U,$J,"PRO",2531,10,7,0)
;;=2422^RM^3
;;^UTILITY(U,$J,"PRO",2531,10,7,"^")
;;=GMPL DELETE
;;^UTILITY(U,$J,"PRO",2531,10,8,0)
;;=2802^VW^21
;;^UTILITY(U,$J,"PRO",2531,10,8,"^")
;;=GMPL VIEW
;;^UTILITY(U,$J,"PRO",2531,10,9,0)
;;=2357^^7
;;^UTILITY(U,$J,"PRO",2531,10,9,"^")
;;=GMPLX BLANK1
;;^UTILITY(U,$J,"PRO",2531,10,10,0)
;;=2355^PP^25
;;^UTILITY(U,$J,"PRO",2531,10,10,"^")
;;=GMPL PRINT
;;^UTILITY(U,$J,"PRO",2531,10,11,0)
;;=2494^$^17^^^
;;^UTILITY(U,$J,"PRO",2531,10,11,"^")
;;=GMPL VERIFY
;;^UTILITY(U,$J,"PRO",2531,20)
;;=
;;^UTILITY(U,$J,"PRO",2531,24)
;;=I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),"^"),24)) ^(24)
;;^UTILITY(U,$J,"PRO",2531,25,0)
;;=2494
;;^UTILITY(U,$J,"PRO",2531,25,2)
;;=CF
;;^UTILITY(U,$J,"PRO",2531,26)
;;=D KEYS^GMPLMGR1,SHOW^VALM S:'$G(GMPCOUNT) XQORM("B")="Add New Problems"
;;^UTILITY(U,$J,"PRO",2531,28)
;;=Select Action:
;;^UTILITY(U,$J,"PRO",2531,99)
;;=56019,56192
;;^UTILITY(U,$J,"PRO",2531,"B",2494,25)
;;=
;;^UTILITY(U,$J,"PRO",2532,0)
;;=GMPL VIEW ALL PROV^All Providers^^A^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2532,1,0)
;;=^^2^2^2930811^^
;;^UTILITY(U,$J,"PRO",2532,1,1,0)
;;=This action will remove any current screen on primary providers of care
;;^UTILITY(U,$J,"PRO",2532,1,2,0)
;;=for problems, and include problems being treated by all providers.
;;^UTILITY(U,$J,"PRO",2532,20)
;;=S:GMPLVIEW("PROV")'=0 GMPLVIEW("PROV")=0,GMPREBLD=1
;;^UTILITY(U,$J,"PRO",2532,99)
;;=55908,59667
;;^UTILITY(U,$J,"PRO",2533,0)
;;=GMPL VIEW ALL SERV^All Services^^A^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2533,1,0)
;;=^^2^2^2930811^^
;;^UTILITY(U,$J,"PRO",2533,1,1,0)
;;=This action will remove any current screen on services associated with
;;^UTILITY(U,$J,"PRO",2533,1,2,0)
;;=problems, and include problems being treated by all services.
;;^UTILITY(U,$J,"PRO",2533,20)
;;=S:"S"'[GMPLVIEW("VIEW") GMPLVIEW("VIEW")="S",GMPREBLD=1
;;^UTILITY(U,$J,"PRO",2533,24)
;;=
;;^UTILITY(U,$J,"PRO",2533,99)
;;=55908,59668
;;^UTILITY(U,$J,"PRO",2534,0)
;;=GMPL USER PREFS^Preferred View of Problem List^^M^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2534,1,0)
;;=^^6^6^2930811^^
;;^UTILITY(U,$J,"PRO",2534,1,1,0)
;;=This menu contains actions allowing a user to change his/her preferred
;;^UTILITY(U,$J,"PRO",2534,1,2,0)
;;=view of patient problem lists. A set of services may be defined here
;;^UTILITY(U,$J,"PRO",2534,1,3,0)
;;=that will be used as a default screen when displaying patient problem
GMPLO009 ; ; 25-AUG-1994
+1 ;;2.0;Problem List;;Aug 25, 1994
+2 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,"PRO",2531,1,5,0)
+2 ;;=problem(s) or change which problems appear on the displayed view of the
+3 ;;^UTILITY(U,$J,"PRO",2531,1,6,0)
+4 ;;=list. A new patient's list may be selected or a printout of the list
+5 ;;^UTILITY(U,$J,"PRO",2531,1,7,0)
+6 ;;=generated.
+7 ;;^UTILITY(U,$J,"PRO",2531,4)
+8 ;;=26^4
+9 ;;^UTILITY(U,$J,"PRO",2531,10,0)
+10 ;;=^101.01PA^11^12
+11 ;;^UTILITY(U,$J,"PRO",2531,10,1,0)
+12 ;;=2350^SP^23^^^
+13 ;;^UTILITY(U,$J,"PRO",2531,10,1,"^")
+14 ;;=GMPL PATIENT
+15 ;;^UTILITY(U,$J,"PRO",2531,10,2,0)
+16 ;;=2345^AD^1
+17 ;;^UTILITY(U,$J,"PRO",2531,10,2,"^")
+18 ;;=GMPL NEW PROBLEM
+19 ;;^UTILITY(U,$J,"PRO",2531,10,3,0)
+20 ;;=2347^CM^13^^^
+21 ;;^UTILITY(U,$J,"PRO",2531,10,3,1)
+22 ;;=^^^
+23 ;;^UTILITY(U,$J,"PRO",2531,10,3,"^")
+24 ;;=GMPL ANNOTATE
+25 ;;^UTILITY(U,$J,"PRO",2531,10,4,0)
+26 ;;=2356^IN^11
+27 ;;^UTILITY(U,$J,"PRO",2531,10,4,"^")
+28 ;;=GMPL INACTIVATE
+29 ;;^UTILITY(U,$J,"PRO",2531,10,5,0)
+30 ;;=2348^DT^15
+31 ;;^UTILITY(U,$J,"PRO",2531,10,5,"^")
+32 ;;=GMPL DETAILED DISPLAY
+33 ;;^UTILITY(U,$J,"PRO",2531,10,6,0)
+34 ;;=2362^ED^5
+35 ;;^UTILITY(U,$J,"PRO",2531,10,6,"^")
+36 ;;=GMPL EDIT PROBLEM
+37 ;;^UTILITY(U,$J,"PRO",2531,10,7,0)
+38 ;;=2422^RM^3
+39 ;;^UTILITY(U,$J,"PRO",2531,10,7,"^")
+40 ;;=GMPL DELETE
+41 ;;^UTILITY(U,$J,"PRO",2531,10,8,0)
+42 ;;=2802^VW^21
+43 ;;^UTILITY(U,$J,"PRO",2531,10,8,"^")
+44 ;;=GMPL VIEW
+45 ;;^UTILITY(U,$J,"PRO",2531,10,9,0)
+46 ;;=2357^^7
+47 ;;^UTILITY(U,$J,"PRO",2531,10,9,"^")
+48 ;;=GMPLX BLANK1
+49 ;;^UTILITY(U,$J,"PRO",2531,10,10,0)
+50 ;;=2355^PP^25
+51 ;;^UTILITY(U,$J,"PRO",2531,10,10,"^")
+52 ;;=GMPL PRINT
+53 ;;^UTILITY(U,$J,"PRO",2531,10,11,0)
+54 ;;=2494^$^17^^^
+55 ;;^UTILITY(U,$J,"PRO",2531,10,11,"^")
+56 ;;=GMPL VERIFY
+57 ;;^UTILITY(U,$J,"PRO",2531,20)
+58 ;;=
+59 ;;^UTILITY(U,$J,"PRO",2531,24)
+60 ;;=I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),"^"),24)) ^(24)
+61 ;;^UTILITY(U,$J,"PRO",2531,25,0)
+62 ;;=2494
+63 ;;^UTILITY(U,$J,"PRO",2531,25,2)
+64 ;;=CF
+65 ;;^UTILITY(U,$J,"PRO",2531,26)
+66 ;;=D KEYS^GMPLMGR1,SHOW^VALM S:'$G(GMPCOUNT) XQORM("B")="Add New Problems"
+67 ;;^UTILITY(U,$J,"PRO",2531,28)
+68 ;;=Select Action:
+69 ;;^UTILITY(U,$J,"PRO",2531,99)
+70 ;;=56019,56192
+71 ;;^UTILITY(U,$J,"PRO",2531,"B",2494,25)
+72 ;;=
+73 ;;^UTILITY(U,$J,"PRO",2532,0)
+74 ;;=GMPL VIEW ALL PROV^All Providers^^A^^^^^^^^PROBLEM LIST
+75 ;;^UTILITY(U,$J,"PRO",2532,1,0)
+76 ;;=^^2^2^2930811^^
+77 ;;^UTILITY(U,$J,"PRO",2532,1,1,0)
+78 ;;=This action will remove any current screen on primary providers of care
+79 ;;^UTILITY(U,$J,"PRO",2532,1,2,0)
+80 ;;=for problems, and include problems being treated by all providers.
+81 ;;^UTILITY(U,$J,"PRO",2532,20)
+82 ;;=S:GMPLVIEW("PROV")'=0 GMPLVIEW("PROV")=0,GMPREBLD=1
+83 ;;^UTILITY(U,$J,"PRO",2532,99)
+84 ;;=55908,59667
+85 ;;^UTILITY(U,$J,"PRO",2533,0)
+86 ;;=GMPL VIEW ALL SERV^All Services^^A^^^^^^^^PROBLEM LIST
+87 ;;^UTILITY(U,$J,"PRO",2533,1,0)
+88 ;;=^^2^2^2930811^^
+89 ;;^UTILITY(U,$J,"PRO",2533,1,1,0)
+90 ;;=This action will remove any current screen on services associated with
+91 ;;^UTILITY(U,$J,"PRO",2533,1,2,0)
+92 ;;=problems, and include problems being treated by all services.
+93 ;;^UTILITY(U,$J,"PRO",2533,20)
+94 ;;=S:"S"'[GMPLVIEW("VIEW") GMPLVIEW("VIEW")="S",GMPREBLD=1
+95 ;;^UTILITY(U,$J,"PRO",2533,24)
+96 ;;=
+97 ;;^UTILITY(U,$J,"PRO",2533,99)
+98 ;;=55908,59668
+99 ;;^UTILITY(U,$J,"PRO",2534,0)
+100 ;;=GMPL USER PREFS^Preferred View of Problem List^^M^^^^^^^^PROBLEM LIST
+101 ;;^UTILITY(U,$J,"PRO",2534,1,0)
+102 ;;=^^6^6^2930811^^
+103 ;;^UTILITY(U,$J,"PRO",2534,1,1,0)
+104 ;;=This menu contains actions allowing a user to change his/her preferred
+105 ;;^UTILITY(U,$J,"PRO",2534,1,2,0)
+106 ;;=view of patient problem lists. A set of services may be defined here
+107 ;;^UTILITY(U,$J,"PRO",2534,1,3,0)
+108 ;;=that will be used as a default screen when displaying patient problem
