GMPLO003 ; ; 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",2423,99)
;;=55985,55649
;;^UTILITY(U,$J,"PRO",2424,0)
;;=GMPL EDIT PROVIDER^Primary Provider^^A^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2424,1,0)
;;=^^2^2^2930811^
;;^UTILITY(U,$J,"PRO",2424,1,1,0)
;;=This action allows the entry/editing of the primary provider of care
;;^UTILITY(U,$J,"PRO",2424,1,2,0)
;;=for this problem.
;;^UTILITY(U,$J,"PRO",2424,15)
;;=D CK^GMPLEDT3
;;^UTILITY(U,$J,"PRO",2424,20)
;;=D PROV^GMPLEDT1
;;^UTILITY(U,$J,"PRO",2424,99)
;;=55908,59536
;;^UTILITY(U,$J,"PRO",2425,0)
;;=GMPL EDIT SAVE^Save Changes and Exit^^A^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2425,1,0)
;;=^^4^4^2930908^^
;;^UTILITY(U,$J,"PRO",2425,1,1,0)
;;=This action allows the user to save any changes made to the current
;;^UTILITY(U,$J,"PRO",2425,1,2,0)
;;=problem, and return to the entire problem list. If this action is
;;^UTILITY(U,$J,"PRO",2425,1,3,0)
;;=not selected and the problem has been changed, the user will be asked
;;^UTILITY(U,$J,"PRO",2425,1,4,0)
;;=when exiting if s/he wishes to save the changes.
;;^UTILITY(U,$J,"PRO",2425,15)
;;=S VALMBCK="Q"
;;^UTILITY(U,$J,"PRO",2425,20)
;;=W !!,"Saving ..." D EN^GMPLSAVE W " done."
;;^UTILITY(U,$J,"PRO",2425,99)
;;=55908,59537
;;^UTILITY(U,$J,"PRO",2427,0)
;;=GMPL EDIT REMOVE^Remove Problem from List^^A^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2427,1,0)
;;=^^4^4^2930811^^
;;^UTILITY(U,$J,"PRO",2427,1,1,0)
;;=This action will remove the current entry from the patient's list;
;;^UTILITY(U,$J,"PRO",2427,1,2,0)
;;=the problem is not physically deleted from the file, but flagged
;;^UTILITY(U,$J,"PRO",2427,1,3,0)
;;=as "removed" and, except for historical purposes, generally ignored.
;;^UTILITY(U,$J,"PRO",2427,1,4,0)
;;=The user is then returned to the entire problem list.
;;^UTILITY(U,$J,"PRO",2427,20)
;;=D DELETE^GMPLEDT2
;;^UTILITY(U,$J,"PRO",2427,99)
;;=55908,59537
;;^UTILITY(U,$J,"PRO",2429,0)
;;=GMPL EDIT NOTES^Edit Existing Note(s)^^A^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2429,1,0)
;;=^^5^5^2930908^^^
;;^UTILITY(U,$J,"PRO",2429,1,1,0)
;;=This action will allow editing of comments that have previously been
;;^UTILITY(U,$J,"PRO",2429,1,2,0)
;;=appended to a problem entry. Notes will be displayed for editing
;;^UTILITY(U,$J,"PRO",2429,1,3,0)
;;=only if the current user is the author of the note; accessing this
;;^UTILITY(U,$J,"PRO",2429,1,4,0)
;;=action through the Manager's Menu will set a flag allowing all notes
;;^UTILITY(U,$J,"PRO",2429,1,5,0)
;;=for the current problem to be displayed and edited.
;;^UTILITY(U,$J,"PRO",2429,2,0)
;;=^101.02A^^0
;;^UTILITY(U,$J,"PRO",2429,15)
;;=D CK^GMPLEDT3
;;^UTILITY(U,$J,"PRO",2429,20)
;;=D NTES^GMPLEDT4
;;^UTILITY(U,$J,"PRO",2429,24)
;;=
;;^UTILITY(U,$J,"PRO",2429,99)
;;=55908,59536
;;^UTILITY(U,$J,"PRO",2430,0)
;;=GMPL EDIT STATUS^Status^^A^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2430,1,0)
;;=^^2^2^2930908^
;;^UTILITY(U,$J,"PRO",2430,1,1,0)
;;=This action allows editing the status assigned to a problem; if the
;;^UTILITY(U,$J,"PRO",2430,1,2,0)
;;=problem is inactivated, the user will be asked for Date Resolved also.
;;^UTILITY(U,$J,"PRO",2430,2,0)
;;=^101.02A^^0
;;^UTILITY(U,$J,"PRO",2430,15)
;;=D CK^GMPLEDT3
;;^UTILITY(U,$J,"PRO",2430,20)
;;=D STATUS^GMPLEDT1
;;^UTILITY(U,$J,"PRO",2430,99)
;;=55908,59538
;;^UTILITY(U,$J,"PRO",2431,0)
;;=GMPL EDIT ONSET^Onset^^A^^^^^^^^PROBLEM LIST
;;^UTILITY(U,$J,"PRO",2431,1,0)
;;=^^1^1^2931126^^
;;^UTILITY(U,$J,"PRO",2431,1,1,0)
;;=This action allows the entry/editing of the date of onset of a problem.
GMPLO003 ; ; 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",2423,99)
+2 ;;=55985,55649
+3 ;;^UTILITY(U,$J,"PRO",2424,0)
+4 ;;=GMPL EDIT PROVIDER^Primary Provider^^A^^^^^^^^PROBLEM LIST
+5 ;;^UTILITY(U,$J,"PRO",2424,1,0)
+6 ;;=^^2^2^2930811^
+7 ;;^UTILITY(U,$J,"PRO",2424,1,1,0)
+8 ;;=This action allows the entry/editing of the primary provider of care
+9 ;;^UTILITY(U,$J,"PRO",2424,1,2,0)
+10 ;;=for this problem.
+11 ;;^UTILITY(U,$J,"PRO",2424,15)
+12 ;;=D CK^GMPLEDT3
+13 ;;^UTILITY(U,$J,"PRO",2424,20)
+14 ;;=D PROV^GMPLEDT1
+15 ;;^UTILITY(U,$J,"PRO",2424,99)
+16 ;;=55908,59536
+17 ;;^UTILITY(U,$J,"PRO",2425,0)
+18 ;;=GMPL EDIT SAVE^Save Changes and Exit^^A^^^^^^^^PROBLEM LIST
+19 ;;^UTILITY(U,$J,"PRO",2425,1,0)
+20 ;;=^^4^4^2930908^^
+21 ;;^UTILITY(U,$J,"PRO",2425,1,1,0)
+22 ;;=This action allows the user to save any changes made to the current
+23 ;;^UTILITY(U,$J,"PRO",2425,1,2,0)
+24 ;;=problem, and return to the entire problem list. If this action is
+25 ;;^UTILITY(U,$J,"PRO",2425,1,3,0)
+26 ;;=not selected and the problem has been changed, the user will be asked
+27 ;;^UTILITY(U,$J,"PRO",2425,1,4,0)
+28 ;;=when exiting if s/he wishes to save the changes.
+29 ;;^UTILITY(U,$J,"PRO",2425,15)
+30 ;;=S VALMBCK="Q"
+31 ;;^UTILITY(U,$J,"PRO",2425,20)
+32 ;;=W !!,"Saving ..." D EN^GMPLSAVE W " done."
+33 ;;^UTILITY(U,$J,"PRO",2425,99)
+34 ;;=55908,59537
+35 ;;^UTILITY(U,$J,"PRO",2427,0)
+36 ;;=GMPL EDIT REMOVE^Remove Problem from List^^A^^^^^^^^PROBLEM LIST
+37 ;;^UTILITY(U,$J,"PRO",2427,1,0)
+38 ;;=^^4^4^2930811^^
+39 ;;^UTILITY(U,$J,"PRO",2427,1,1,0)
+40 ;;=This action will remove the current entry from the patient's list;
+41 ;;^UTILITY(U,$J,"PRO",2427,1,2,0)
+42 ;;=the problem is not physically deleted from the file, but flagged
+43 ;;^UTILITY(U,$J,"PRO",2427,1,3,0)
+44 ;;=as "removed" and, except for historical purposes, generally ignored.
+45 ;;^UTILITY(U,$J,"PRO",2427,1,4,0)
+46 ;;=The user is then returned to the entire problem list.
+47 ;;^UTILITY(U,$J,"PRO",2427,20)
+48 ;;=D DELETE^GMPLEDT2
+49 ;;^UTILITY(U,$J,"PRO",2427,99)
+50 ;;=55908,59537
+51 ;;^UTILITY(U,$J,"PRO",2429,0)
+52 ;;=GMPL EDIT NOTES^Edit Existing Note(s)^^A^^^^^^^^PROBLEM LIST
+53 ;;^UTILITY(U,$J,"PRO",2429,1,0)
+54 ;;=^^5^5^2930908^^^
+55 ;;^UTILITY(U,$J,"PRO",2429,1,1,0)
+56 ;;=This action will allow editing of comments that have previously been
+57 ;;^UTILITY(U,$J,"PRO",2429,1,2,0)
+58 ;;=appended to a problem entry. Notes will be displayed for editing
+59 ;;^UTILITY(U,$J,"PRO",2429,1,3,0)
+60 ;;=only if the current user is the author of the note; accessing this
+61 ;;^UTILITY(U,$J,"PRO",2429,1,4,0)
+62 ;;=action through the Manager's Menu will set a flag allowing all notes
+63 ;;^UTILITY(U,$J,"PRO",2429,1,5,0)
+64 ;;=for the current problem to be displayed and edited.
+65 ;;^UTILITY(U,$J,"PRO",2429,2,0)
+66 ;;=^101.02A^^0
+67 ;;^UTILITY(U,$J,"PRO",2429,15)
+68 ;;=D CK^GMPLEDT3
+69 ;;^UTILITY(U,$J,"PRO",2429,20)
+70 ;;=D NTES^GMPLEDT4
+71 ;;^UTILITY(U,$J,"PRO",2429,24)
+72 ;;=
+73 ;;^UTILITY(U,$J,"PRO",2429,99)
+74 ;;=55908,59536
+75 ;;^UTILITY(U,$J,"PRO",2430,0)
+76 ;;=GMPL EDIT STATUS^Status^^A^^^^^^^^PROBLEM LIST
+77 ;;^UTILITY(U,$J,"PRO",2430,1,0)
+78 ;;=^^2^2^2930908^
+79 ;;^UTILITY(U,$J,"PRO",2430,1,1,0)
+80 ;;=This action allows editing the status assigned to a problem; if the
+81 ;;^UTILITY(U,$J,"PRO",2430,1,2,0)
+82 ;;=problem is inactivated, the user will be asked for Date Resolved also.
+83 ;;^UTILITY(U,$J,"PRO",2430,2,0)
+84 ;;=^101.02A^^0
+85 ;;^UTILITY(U,$J,"PRO",2430,15)
+86 ;;=D CK^GMPLEDT3
+87 ;;^UTILITY(U,$J,"PRO",2430,20)
+88 ;;=D STATUS^GMPLEDT1
+89 ;;^UTILITY(U,$J,"PRO",2430,99)
+90 ;;=55908,59538
+91 ;;^UTILITY(U,$J,"PRO",2431,0)
+92 ;;=GMPL EDIT ONSET^Onset^^A^^^^^^^^PROBLEM LIST
+93 ;;^UTILITY(U,$J,"PRO",2431,1,0)
+94 ;;=^^1^1^2931126^^
+95 ;;^UTILITY(U,$J,"PRO",2431,1,1,0)
+96 ;;=This action allows the entry/editing of the date of onset of a problem.
