- GMPLO017 ; ; 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",2790,10,7,0)
- ;;=2798^CL^12
- ;;^UTILITY(U,$J,"PRO",2790,10,7,"^")
- ;;=GMPL VIEW ALL CLIN
- ;;^UTILITY(U,$J,"PRO",2790,10,8,0)
- ;;=2791^PV^23
- ;;^UTILITY(U,$J,"PRO",2790,10,8,"^")
- ;;=GMPL VIEW RESTORE
- ;;^UTILITY(U,$J,"PRO",2790,10,9,0)
- ;;=2807^IP^13
- ;;^UTILITY(U,$J,"PRO",2790,10,9,"^")
- ;;=GMPL VIEW SWITCH
- ;;^UTILITY(U,$J,"PRO",2790,15)
- ;;=
- ;;^UTILITY(U,$J,"PRO",2790,20)
- ;;=
- ;;^UTILITY(U,$J,"PRO",2790,24)
- ;;=
- ;;^UTILITY(U,$J,"PRO",2790,26)
- ;;=W ""
- ;;^UTILITY(U,$J,"PRO",2790,27)
- ;;=
- ;;^UTILITY(U,$J,"PRO",2790,28)
- ;;=Select View:
- ;;^UTILITY(U,$J,"PRO",2790,99)
- ;;=56004,56275
- ;;^UTILITY(U,$J,"PRO",2791,0)
- ;;=GMPL VIEW RESTORE^Preferred View^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2791,1,0)
- ;;=^^2^2^2940323^^^^
- ;;^UTILITY(U,$J,"PRO",2791,1,1,0)
- ;;=This action will replace the currently specified view with the
- ;;^UTILITY(U,$J,"PRO",2791,1,2,0)
- ;;=user's pre-defined preferred view.
- ;;^UTILITY(U,$J,"PRO",2791,20)
- ;;~S X=$$VIEW^GMPLX1(DUZ) W:'$L(X) !,"You have no preferred view defined.",! Q:'$L(X) S:X'=GMPLVIEW("VIEW") GMPREBLD=1,GMPLVIEW("VIEW")=X K X S:GMPLVIEW("PROV") G
- ;;=MPLVIEW("PROV")=0,GMPREBLD=1 S:GMPLVIEW("ACT")'="A" GMPLVIEW("ACT")="A",GMPREBLD=1
- ;;^UTILITY(U,$J,"PRO",2791,24)
- ;;=
- ;;^UTILITY(U,$J,"PRO",2791,99)
- ;;=55964,55397
- ;;^UTILITY(U,$J,"PRO",2792,0)
- ;;=GMPL UP ADD ITEM^Add Items to View^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2792,1,0)
- ;;=^^2^2^2930811^^
- ;;^UTILITY(U,$J,"PRO",2792,1,1,0)
- ;;=This action allows the user to include additional service(s) in his/her
- ;;^UTILITY(U,$J,"PRO",2792,1,2,0)
- ;;=preferred view of patient problem lists.
- ;;^UTILITY(U,$J,"PRO",2792,20)
- ;;=D ADD^GMPLPRF1
- ;;^UTILITY(U,$J,"PRO",2792,99)
- ;;=55984,51207
- ;;^UTILITY(U,$J,"PRO",2793,0)
- ;;=GMPL UP REMOVE ITEM^Remove Items from View^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2793,1,0)
- ;;=^^2^2^2930811^
- ;;^UTILITY(U,$J,"PRO",2793,1,1,0)
- ;;=This action allows the user to remove service(s) from his/her preferred
- ;;^UTILITY(U,$J,"PRO",2793,1,2,0)
- ;;=view of patient problem lists.
- ;;^UTILITY(U,$J,"PRO",2793,20)
- ;;=D REMOVE^GMPLPRF1
- ;;^UTILITY(U,$J,"PRO",2793,99)
- ;;=55984,51215
- ;;^UTILITY(U,$J,"PRO",2794,0)
- ;;=GMPL UP SAVE VIEW^Save Preferred View & Exit^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2794,1,0)
- ;;=^^3^3^2930811^
- ;;^UTILITY(U,$J,"PRO",2794,1,1,0)
- ;;=This action allows the user to save any changes made to his/her
- ;;^UTILITY(U,$J,"PRO",2794,1,2,0)
- ;;=preferred view of patient problem lists; control is passed back
- ;;^UTILITY(U,$J,"PRO",2794,1,3,0)
- ;;=to the User Preferences menu.
- ;;^UTILITY(U,$J,"PRO",2794,20)
- ;;=S GMPSAVED=1,VALMBCK="Q" D SAVE^GMPLPRF1
- ;;^UTILITY(U,$J,"PRO",2794,99)
- ;;=55908,59652
- ;;^UTILITY(U,$J,"PRO",2796,0)
- ;;=GMPL MENU ASSIGN LIST^Assign List^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2796,1,0)
- ;;=^^6^6^2940202^^^^
- ;;^UTILITY(U,$J,"PRO",2796,1,1,0)
- ;;=This action allows the user to assign this list to a clinic or to user(s).
- ;;^UTILITY(U,$J,"PRO",2796,1,2,0)
- ;;=Linking a list to a clinic will invoke the list whenever a user selects
- ;;^UTILITY(U,$J,"PRO",2796,1,3,0)
- ;;=that clinic as the location where the patient was seen, when adding
- ;;^UTILITY(U,$J,"PRO",2796,1,4,0)
- ;;=new problems. If a list is linked to a user, this is the list that will
- ;;^UTILITY(U,$J,"PRO",2796,1,5,0)
- ;;=always be invoked when that user is adding new problems, regardless of
- ;;^UTILITY(U,$J,"PRO",2796,1,6,0)
- ;;=the clinic specified that the patient was seen in.
- ;;^UTILITY(U,$J,"PRO",2796,20)
- ;;=D ASSIGN^GMPLBLD3
- GMPLO017 ; ; 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",2790,10,7,0)
- +2 ;;=2798^CL^12
- +3 ;;^UTILITY(U,$J,"PRO",2790,10,7,"^")
- +4 ;;=GMPL VIEW ALL CLIN
- +5 ;;^UTILITY(U,$J,"PRO",2790,10,8,0)
- +6 ;;=2791^PV^23
- +7 ;;^UTILITY(U,$J,"PRO",2790,10,8,"^")
- +8 ;;=GMPL VIEW RESTORE
- +9 ;;^UTILITY(U,$J,"PRO",2790,10,9,0)
- +10 ;;=2807^IP^13
- +11 ;;^UTILITY(U,$J,"PRO",2790,10,9,"^")
- +12 ;;=GMPL VIEW SWITCH
- +13 ;;^UTILITY(U,$J,"PRO",2790,15)
- +14 ;;=
- +15 ;;^UTILITY(U,$J,"PRO",2790,20)
- +16 ;;=
- +17 ;;^UTILITY(U,$J,"PRO",2790,24)
- +18 ;;=
- +19 ;;^UTILITY(U,$J,"PRO",2790,26)
- +20 ;;=W ""
- +21 ;;^UTILITY(U,$J,"PRO",2790,27)
- +22 ;;=
- +23 ;;^UTILITY(U,$J,"PRO",2790,28)
- +24 ;;=Select View:
- +25 ;;^UTILITY(U,$J,"PRO",2790,99)
- +26 ;;=56004,56275
- +27 ;;^UTILITY(U,$J,"PRO",2791,0)
- +28 ;;=GMPL VIEW RESTORE^Preferred View^^A^^^^^^^^PROBLEM LIST
- +29 ;;^UTILITY(U,$J,"PRO",2791,1,0)
- +30 ;;=^^2^2^2940323^^^^
- +31 ;;^UTILITY(U,$J,"PRO",2791,1,1,0)
- +32 ;;=This action will replace the currently specified view with the
- +33 ;;^UTILITY(U,$J,"PRO",2791,1,2,0)
- +34 ;;=user's pre-defined preferred view.
- +35 ;;^UTILITY(U,$J,"PRO",2791,20)
- +36 ;;~S X=$$VIEW^GMPLX1(DUZ) W:'$L(X) !,"You have no preferred view defined.",! Q:'$L(X) S:X'=GMPLVIEW("VIEW") GMPREBLD=1,GMPLVIEW("VIEW")=X K X S:GMPLVIEW("PROV") G
- +37 ;;=MPLVIEW("PROV")=0,GMPREBLD=1 S:GMPLVIEW("ACT")'="A" GMPLVIEW("ACT")="A",GMPREBLD=1
- +38 ;;^UTILITY(U,$J,"PRO",2791,24)
- +39 ;;=
- +40 ;;^UTILITY(U,$J,"PRO",2791,99)
- +41 ;;=55964,55397
- +42 ;;^UTILITY(U,$J,"PRO",2792,0)
- +43 ;;=GMPL UP ADD ITEM^Add Items to View^^A^^^^^^^^PROBLEM LIST
- +44 ;;^UTILITY(U,$J,"PRO",2792,1,0)
- +45 ;;=^^2^2^2930811^^
- +46 ;;^UTILITY(U,$J,"PRO",2792,1,1,0)
- +47 ;;=This action allows the user to include additional service(s) in his/her
- +48 ;;^UTILITY(U,$J,"PRO",2792,1,2,0)
- +49 ;;=preferred view of patient problem lists.
- +50 ;;^UTILITY(U,$J,"PRO",2792,20)
- +51 ;;=D ADD^GMPLPRF1
- +52 ;;^UTILITY(U,$J,"PRO",2792,99)
- +53 ;;=55984,51207
- +54 ;;^UTILITY(U,$J,"PRO",2793,0)
- +55 ;;=GMPL UP REMOVE ITEM^Remove Items from View^^A^^^^^^^^PROBLEM LIST
- +56 ;;^UTILITY(U,$J,"PRO",2793,1,0)
- +57 ;;=^^2^2^2930811^
- +58 ;;^UTILITY(U,$J,"PRO",2793,1,1,0)
- +59 ;;=This action allows the user to remove service(s) from his/her preferred
- +60 ;;^UTILITY(U,$J,"PRO",2793,1,2,0)
- +61 ;;=view of patient problem lists.
- +62 ;;^UTILITY(U,$J,"PRO",2793,20)
- +63 ;;=D REMOVE^GMPLPRF1
- +64 ;;^UTILITY(U,$J,"PRO",2793,99)
- +65 ;;=55984,51215
- +66 ;;^UTILITY(U,$J,"PRO",2794,0)
- +67 ;;=GMPL UP SAVE VIEW^Save Preferred View & Exit^^A^^^^^^^^PROBLEM LIST
- +68 ;;^UTILITY(U,$J,"PRO",2794,1,0)
- +69 ;;=^^3^3^2930811^
- +70 ;;^UTILITY(U,$J,"PRO",2794,1,1,0)
- +71 ;;=This action allows the user to save any changes made to his/her
- +72 ;;^UTILITY(U,$J,"PRO",2794,1,2,0)
- +73 ;;=preferred view of patient problem lists; control is passed back
- +74 ;;^UTILITY(U,$J,"PRO",2794,1,3,0)
- +75 ;;=to the User Preferences menu.
- +76 ;;^UTILITY(U,$J,"PRO",2794,20)
- +77 ;;=S GMPSAVED=1,VALMBCK="Q" D SAVE^GMPLPRF1
- +78 ;;^UTILITY(U,$J,"PRO",2794,99)
- +79 ;;=55908,59652
- +80 ;;^UTILITY(U,$J,"PRO",2796,0)
- +81 ;;=GMPL MENU ASSIGN LIST^Assign List^^A^^^^^^^^PROBLEM LIST
- +82 ;;^UTILITY(U,$J,"PRO",2796,1,0)
- +83 ;;=^^6^6^2940202^^^^
- +84 ;;^UTILITY(U,$J,"PRO",2796,1,1,0)
- +85 ;;=This action allows the user to assign this list to a clinic or to user(s).
- +86 ;;^UTILITY(U,$J,"PRO",2796,1,2,0)
- +87 ;;=Linking a list to a clinic will invoke the list whenever a user selects
- +88 ;;^UTILITY(U,$J,"PRO",2796,1,3,0)
- +89 ;;=that clinic as the location where the patient was seen, when adding
- +90 ;;^UTILITY(U,$J,"PRO",2796,1,4,0)
- +91 ;;=new problems. If a list is linked to a user, this is the list that will
- +92 ;;^UTILITY(U,$J,"PRO",2796,1,5,0)
- +93 ;;=always be invoked when that user is adding new problems, regardless of
- +94 ;;^UTILITY(U,$J,"PRO",2796,1,6,0)
- +95 ;;=the clinic specified that the patient was seen in.
- +96 ;;^UTILITY(U,$J,"PRO",2796,20)
- +97 ;;=D ASSIGN^GMPLBLD3
