Routine: GMPLO019

GMPLO019	; ; 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",2801,99)

	;;=56039,42784

	;;^UTILITY(U,$J,"PRO",2802,0)

	;;=GMPL VIEW^Select View of List^^A^^^^^^^^PROBLEM LIST

	;;^UTILITY(U,$J,"PRO",2802,1,0)

	;;=^^4^4^2940111^

	;;^UTILITY(U,$J,"PRO",2802,1,1,0)

	;;=This allows the user to change the problems displayed onscreen in the

	;;^UTILITY(U,$J,"PRO",2802,1,2,0)

	;;=patient's list, on-the-fly.  Various attributes are presented for selection

	;;^UTILITY(U,$J,"PRO",2802,1,3,0)

	;;=such as status, provider, and clinic (or service if the patient is currently

	;;^UTILITY(U,$J,"PRO",2802,1,4,0)

	;;=admitted).

	;;^UTILITY(U,$J,"PRO",2802,15)

	;;=D EXVIEW^GMPLMGR2

	;;^UTILITY(U,$J,"PRO",2802,20)

	;;=D ENVIEW^GMPLMGR2

	;;^UTILITY(U,$J,"PRO",2802,99)

	;;=55908,59667

	;;^UTILITY(U,$J,"PRO",2803,0)

	;;=GMPL UP SWITCH^Select New View of Problems^^A^^^^^^^^PROBLEM LIST

	;;^UTILITY(U,$J,"PRO",2803,1,0)

	;;=^^6^6^2940113^

	;;^UTILITY(U,$J,"PRO",2803,1,1,0)

	;;=This action allows the user to switch to a different preferred view.

	;;^UTILITY(U,$J,"PRO",2803,1,2,0)

	;;=If one is currently editing a service view of problem lists, this

	;;^UTILITY(U,$J,"PRO",2803,1,3,0)

	;;=action will clear the current view and bring up a list of clinics from

	;;^UTILITY(U,$J,"PRO",2803,1,4,0)

	;;=which to select a view, and vice-versa from clinic to service list.

	;;^UTILITY(U,$J,"PRO",2803,1,5,0)

;;=

	;;^UTILITY(U,$J,"PRO",2803,1,6,0)

	;;=NOTE:  Each user may have only ONE preferred view at a time!

	;;^UTILITY(U,$J,"PRO",2803,20)

	;;=D SWITCH^GMPLPRF1

	;;^UTILITY(U,$J,"PRO",2803,99)

	;;=55908,59651

	;;^UTILITY(U,$J,"PRO",2804,0)

	;;=GMPL EDIT RECORDED^Date Recorded^^A^^^^^^^^PROBLEM LIST

	;;^UTILITY(U,$J,"PRO",2804,1,0)

	;;=^^3^3^2940118^

	;;^UTILITY(U,$J,"PRO",2804,1,1,0)

	;;=This action allows editing of the date the problem was originally recorded;

	;;^UTILITY(U,$J,"PRO",2804,1,2,0)

	;;=date will default to NOW when entering a new problem, but may be changed

	;;^UTILITY(U,$J,"PRO",2804,1,3,0)

	;;=to an earlier date to reflect entry in the paper chart.

	;;^UTILITY(U,$J,"PRO",2804,15)

	;;=D CK^GMPLEDT3

	;;^UTILITY(U,$J,"PRO",2804,20)

	;;=D RECORDED^GMPLEDT1

	;;^UTILITY(U,$J,"PRO",2804,99)

	;;=55908,59536

	;;^UTILITY(U,$J,"PRO",2805,0)

	;;=GMPL UP DELETE VIEW^Delete Preferred View & Exit^^A^^^^^^^^PROBLEM LIST

	;;^UTILITY(U,$J,"PRO",2805,1,0)

	;;=^^3^3^2940127^

	;;^UTILITY(U,$J,"PRO",2805,1,1,0)

	;;=This action allows the user to delete his/her preferred view and exit

	;;^UTILITY(U,$J,"PRO",2805,1,2,0)

	;;=the utility.  The user will again see all active problems, when initially

	;;^UTILITY(U,$J,"PRO",2805,1,3,0)

	;;=displaying a patient's problem list.

	;;^UTILITY(U,$J,"PRO",2805,20)

	;;=D DELETE^GMPLPRF1

	;;^UTILITY(U,$J,"PRO",2805,99)

	;;=55909,58822

	;;^UTILITY(U,$J,"PRO",2807,0)

	;;=GMPL VIEW SWITCH^Inpatient View^^A^^^^^^^^PROBLEM LIST

	;;^UTILITY(U,$J,"PRO",2807,1,0)

	;;=^^5^5^2940323^

	;;^UTILITY(U,$J,"PRO",2807,1,1,0)

	;;=This action will allow the user to switch from displaying the problems

	;;^UTILITY(U,$J,"PRO",2807,1,2,0)

	;;=in an outpatient mode to an inpatient mode, or vice-versa.  If clinic

	;;^UTILITY(U,$J,"PRO",2807,1,3,0)

	;;=information is currently being displayed, service and provider will now

	;;^UTILITY(U,$J,"PRO",2807,1,4,0)

	;;=be displayed after selecting this action; likewise, if service and

	;;^UTILITY(U,$J,"PRO",2807,1,5,0)

	;;=provider information are currently displayed, clinic will now be shown.

	;;^UTILITY(U,$J,"PRO",2807,20)

	;;=S X=$E(GMPLVIEW("VIEW")),GMPLVIEW("VIEW")=$S(X="S":"C",1:"S"),GMPREBLD=1,Y=$S(X="S":"Clinic",1:"Service/Provider") D CHGCAP^VALM("CLINIC",Y) K X,Y

GMPLO019  ; ; 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",2801,99)

 +2       ;;=56039,42784

 +3       ;;^UTILITY(U,$J,"PRO",2802,0)

 +4       ;;=GMPL VIEW^Select View of List^^A^^^^^^^^PROBLEM LIST

 +5       ;;^UTILITY(U,$J,"PRO",2802,1,0)

 +6       ;;=^^4^4^2940111^

 +7       ;;^UTILITY(U,$J,"PRO",2802,1,1,0)

 +8       ;;=This allows the user to change the problems displayed onscreen in the

 +9       ;;^UTILITY(U,$J,"PRO",2802,1,2,0)

 +10      ;;=patient's list, on-the-fly.  Various attributes are presented for selection

 +11      ;;^UTILITY(U,$J,"PRO",2802,1,3,0)

 +12      ;;=such as status, provider, and clinic (or service if the patient is currently

 +13      ;;^UTILITY(U,$J,"PRO",2802,1,4,0)

 +14      ;;=admitted).

 +15      ;;^UTILITY(U,$J,"PRO",2802,15)

 +16      ;;=D EXVIEW^GMPLMGR2

 +17      ;;^UTILITY(U,$J,"PRO",2802,20)

 +18      ;;=D ENVIEW^GMPLMGR2

 +19      ;;^UTILITY(U,$J,"PRO",2802,99)

 +20      ;;=55908,59667

 +21      ;;^UTILITY(U,$J,"PRO",2803,0)

 +22      ;;=GMPL UP SWITCH^Select New View of Problems^^A^^^^^^^^PROBLEM LIST

 +23      ;;^UTILITY(U,$J,"PRO",2803,1,0)

 +24      ;;=^^6^6^2940113^

 +25      ;;^UTILITY(U,$J,"PRO",2803,1,1,0)

 +26      ;;=This action allows the user to switch to a different preferred view.

 +27      ;;^UTILITY(U,$J,"PRO",2803,1,2,0)

 +28      ;;=If one is currently editing a service view of problem lists, this

 +29      ;;^UTILITY(U,$J,"PRO",2803,1,3,0)

 +30      ;;=action will clear the current view and bring up a list of clinics from

 +31      ;;^UTILITY(U,$J,"PRO",2803,1,4,0)

 +32      ;;=which to select a view, and vice-versa from clinic to service list.

 +33      ;;^UTILITY(U,$J,"PRO",2803,1,5,0)

 +34      ;;=

 +35      ;;^UTILITY(U,$J,"PRO",2803,1,6,0)

 +36      ;;=NOTE:  Each user may have only ONE preferred view at a time!

 +37      ;;^UTILITY(U,$J,"PRO",2803,20)

 +38      ;;=D SWITCH^GMPLPRF1

 +39      ;;^UTILITY(U,$J,"PRO",2803,99)

 +40      ;;=55908,59651

 +41      ;;^UTILITY(U,$J,"PRO",2804,0)

 +42      ;;=GMPL EDIT RECORDED^Date Recorded^^A^^^^^^^^PROBLEM LIST

 +43      ;;^UTILITY(U,$J,"PRO",2804,1,0)

 +44      ;;=^^3^3^2940118^

 +45      ;;^UTILITY(U,$J,"PRO",2804,1,1,0)

 +46      ;;=This action allows editing of the date the problem was originally recorded;

 +47      ;;^UTILITY(U,$J,"PRO",2804,1,2,0)

 +48      ;;=date will default to NOW when entering a new problem, but may be changed

 +49      ;;^UTILITY(U,$J,"PRO",2804,1,3,0)

 +50      ;;=to an earlier date to reflect entry in the paper chart.

 +51      ;;^UTILITY(U,$J,"PRO",2804,15)

 +52      ;;=D CK^GMPLEDT3

 +53      ;;^UTILITY(U,$J,"PRO",2804,20)

 +54      ;;=D RECORDED^GMPLEDT1

 +55      ;;^UTILITY(U,$J,"PRO",2804,99)

 +56      ;;=55908,59536

 +57      ;;^UTILITY(U,$J,"PRO",2805,0)

 +58      ;;=GMPL UP DELETE VIEW^Delete Preferred View & Exit^^A^^^^^^^^PROBLEM LIST

 +59      ;;^UTILITY(U,$J,"PRO",2805,1,0)

 +60      ;;=^^3^3^2940127^

 +61      ;;^UTILITY(U,$J,"PRO",2805,1,1,0)

 +62      ;;=This action allows the user to delete his/her preferred view and exit

 +63      ;;^UTILITY(U,$J,"PRO",2805,1,2,0)

 +64      ;;=the utility.  The user will again see all active problems, when initially

 +65      ;;^UTILITY(U,$J,"PRO",2805,1,3,0)

 +66      ;;=displaying a patient's problem list.

 +67      ;;^UTILITY(U,$J,"PRO",2805,20)

 +68      ;;=D DELETE^GMPLPRF1

 +69      ;;^UTILITY(U,$J,"PRO",2805,99)

 +70      ;;=55909,58822

 +71      ;;^UTILITY(U,$J,"PRO",2807,0)

 +72      ;;=GMPL VIEW SWITCH^Inpatient View^^A^^^^^^^^PROBLEM LIST

 +73      ;;^UTILITY(U,$J,"PRO",2807,1,0)

 +74      ;;=^^5^5^2940323^

 +75      ;;^UTILITY(U,$J,"PRO",2807,1,1,0)

 +76      ;;=This action will allow the user to switch from displaying the problems

 +77      ;;^UTILITY(U,$J,"PRO",2807,1,2,0)

 +78      ;;=in an outpatient mode to an inpatient mode, or vice-versa.  If clinic

 +79      ;;^UTILITY(U,$J,"PRO",2807,1,3,0)

 +80      ;;=information is currently being displayed, service and provider will now

 +81      ;;^UTILITY(U,$J,"PRO",2807,1,4,0)

 +82      ;;=be displayed after selecting this action; likewise, if service and

 +83      ;;^UTILITY(U,$J,"PRO",2807,1,5,0)

 +84      ;;=provider information are currently displayed, clinic will now be shown.

 +85      ;;^UTILITY(U,$J,"PRO",2807,20)

 +86      ;;=S X=$E(GMPLVIEW("VIEW")),GMPLVIEW("VIEW")=$S(X="S":"C",1:"S"),GMPREBLD=1,Y=$S(X="S":"Clinic",1:"Service/Provider") D CHGCAP^VALM("CLINIC",Y) K X,Y

GMPLO019.m