Routine: GMPLI00Z

GMPLI00Z	; ; 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,"OR",219,1,13,1,1,0)

	;;=GMPL HIDDEN MENU

	;;^UTILITY(U,$J,"OR",219,1,13,1,2,0)

	;;=GMPL PROBLEM LIST

	;;^UTILITY(U,$J,"OR",219,1,13,1,3,0)

	;;=GMPL DATA ENTRY

	;;^UTILITY(U,$J,"OR",219,1,13,1,4,0)

	;;=GMPL DT MENU

	;;^UTILITY(U,$J,"OR",219,1,13,1,5,0)

	;;=GMPL EDIT MENU

	;;^UTILITY(U,$J,"OR",219,1,13,1,6,0)

	;;=GMPL USER PREFS

	;;^UTILITY(U,$J,"OR",219,1,13,1,7,0)

	;;=GMPL LIST MENU

	;;^UTILITY(U,$J,"OR",219,1,13,1,8,0)

	;;=GMPL MENU BUILD LIST

	;;^UTILITY(U,$J,"OR",219,1,13,1,9,0)

	;;=GMPL MENU BUILD GROUP

	;;^UTILITY(U,$J,"OR",219,1,13,1,10,0)

	;;=GMPL CODE LIST

	;;^UTILITY(U,$J,"OR",219,1,14,0)

	;;=VALM BLANK 2

	;;^UTILITY(U,$J,"OR",219,1,14,1,0)

	;;=^100.99511PA^1^1

	;;^UTILITY(U,$J,"OR",219,1,14,1,1,0)

	;;=GMPL HIDDEN MENU

	;;^UTILITY(U,$J,"OR",219,1,15,0)

	;;=VALM BLANK 3

	;;^UTILITY(U,$J,"OR",219,1,15,1,0)

	;;=^100.99511PA^1^1

	;;^UTILITY(U,$J,"OR",219,1,15,1,1,0)

	;;=GMPL HIDDEN MENU

	;;^UTILITY(U,$J,"PKG",219,0)

	;;=PROBLEM LIST^GMPL^Automated Patient Problem List

	;;^UTILITY(U,$J,"PKG",219,1,0)

	;;=^^3^3^2940825^^^^

	;;^UTILITY(U,$J,"PKG",219,1,1,0)

	;;=This package allows for entry and tracking of a patient's problems

	;;^UTILITY(U,$J,"PKG",219,1,2,0)

	;;=within DHCP.  Other components of the clinical record may be linked

	;;^UTILITY(U,$J,"PKG",219,1,3,0)

	;;=to a problem, such as orders, procedures, and progress notes.

	;;^UTILITY(U,$J,"PKG",219,2,0)

	;;=^9.42A^40^35

	;;^UTILITY(U,$J,"PKG",219,2,1,0)

	;;=GMPL

	;;^UTILITY(U,$J,"PKG",219,2,2,0)

	;;=GMPL1

	;;^UTILITY(U,$J,"PKG",219,2,3,0)

	;;=GMPLDISP

	;;^UTILITY(U,$J,"PKG",219,2,5,0)

	;;=GMPLEDIT

	;;^UTILITY(U,$J,"PKG",219,2,6,0)

	;;=GMPLEDT1

	;;^UTILITY(U,$J,"PKG",219,2,7,0)

	;;=GMPLEDT2

	;;^UTILITY(U,$J,"PKG",219,2,9,0)

	;;=GMPLMGR

	;;^UTILITY(U,$J,"PKG",219,2,10,0)

	;;=GMPLMGR1

	;;^UTILITY(U,$J,"PKG",219,2,11,0)

	;;=GMPLSAVE

	;;^UTILITY(U,$J,"PKG",219,2,12,0)

	;;=GMPLX

	;;^UTILITY(U,$J,"PKG",219,2,13,0)

	;;=GMPLPRNT

	;;^UTILITY(U,$J,"PKG",219,2,14,0)

	;;=GMPLDIS1

	;;^UTILITY(U,$J,"PKG",219,2,15,0)

	;;=GMPLENFM

	;;^UTILITY(U,$J,"PKG",219,2,16,0)

	;;=GMPLCODE

	;;^UTILITY(U,$J,"PKG",219,2,18,0)

	;;=GMPLEDT3

	;;^UTILITY(U,$J,"PKG",219,2,19,0)

	;;=GMPLHIST

	;;^UTILITY(U,$J,"PKG",219,2,20,0)

	;;=GMPLHS

	;;^UTILITY(U,$J,"PKG",219,2,21,0)

	;;=GMPLHSPL

	;;^UTILITY(U,$J,"PKG",219,2,22,0)

	;;=GMPLUTL

	;;^UTILITY(U,$J,"PKG",219,2,24,0)

	;;=GMPLPREF

	;;^UTILITY(U,$J,"PKG",219,2,25,0)

	;;=GMPLEDT4

	;;^UTILITY(U,$J,"PKG",219,2,26,0)

	;;=GMPLRPTS

	;;^UTILITY(U,$J,"PKG",219,2,27,0)

	;;=GMPLX1

	;;^UTILITY(U,$J,"PKG",219,2,28,0)

	;;=GMPLPRF1

	;;^UTILITY(U,$J,"PKG",219,2,30,0)

	;;=GMPLMENU

	;;^UTILITY(U,$J,"PKG",219,2,31,0)

	;;=GMPLBLD

	;;^UTILITY(U,$J,"PKG",219,2,32,0)

	;;=GMPLBLD1

	;;^UTILITY(U,$J,"PKG",219,2,33,0)

	;;=GMPLBLD2

	;;^UTILITY(U,$J,"PKG",219,2,34,0)

	;;=GMPLBLDC

	;;^UTILITY(U,$J,"PKG",219,2,35,0)

	;;=GMPLBLDF

	;;^UTILITY(U,$J,"PKG",219,2,36,0)

	;;=GMPLMGR2

	;;^UTILITY(U,$J,"PKG",219,2,37,0)

	;;=GMPLBLD3

	;;^UTILITY(U,$J,"PKG",219,2,38,0)

	;;=GMPLRPTR

	;;^UTILITY(U,$J,"PKG",219,2,39,0)

	;;=GMPLPRF0

	;;^UTILITY(U,$J,"PKG",219,2,40,0)

	;;=GMPLUTL1

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPL",1)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPL1",2)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLD",31)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLD1",32)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLD2",33)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLD3",37)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLDC",34)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLDF",35)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLCODE",16)

;;=

	;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLDIS1",14)

;;=

GMPLI00Z  ; ; 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,"OR",219,1,13,1,1,0)

 +2       ;;=GMPL HIDDEN MENU

 +3       ;;^UTILITY(U,$J,"OR",219,1,13,1,2,0)

 +4       ;;=GMPL PROBLEM LIST

 +5       ;;^UTILITY(U,$J,"OR",219,1,13,1,3,0)

 +6       ;;=GMPL DATA ENTRY

 +7       ;;^UTILITY(U,$J,"OR",219,1,13,1,4,0)

 +8       ;;=GMPL DT MENU

 +9       ;;^UTILITY(U,$J,"OR",219,1,13,1,5,0)

 +10      ;;=GMPL EDIT MENU

 +11      ;;^UTILITY(U,$J,"OR",219,1,13,1,6,0)

 +12      ;;=GMPL USER PREFS

 +13      ;;^UTILITY(U,$J,"OR",219,1,13,1,7,0)

 +14      ;;=GMPL LIST MENU

 +15      ;;^UTILITY(U,$J,"OR",219,1,13,1,8,0)

 +16      ;;=GMPL MENU BUILD LIST

 +17      ;;^UTILITY(U,$J,"OR",219,1,13,1,9,0)

 +18      ;;=GMPL MENU BUILD GROUP

 +19      ;;^UTILITY(U,$J,"OR",219,1,13,1,10,0)

 +20      ;;=GMPL CODE LIST

 +21      ;;^UTILITY(U,$J,"OR",219,1,14,0)

 +22      ;;=VALM BLANK 2

 +23      ;;^UTILITY(U,$J,"OR",219,1,14,1,0)

 +24      ;;=^100.99511PA^1^1

 +25      ;;^UTILITY(U,$J,"OR",219,1,14,1,1,0)

 +26      ;;=GMPL HIDDEN MENU

 +27      ;;^UTILITY(U,$J,"OR",219,1,15,0)

 +28      ;;=VALM BLANK 3

 +29      ;;^UTILITY(U,$J,"OR",219,1,15,1,0)

 +30      ;;=^100.99511PA^1^1

 +31      ;;^UTILITY(U,$J,"OR",219,1,15,1,1,0)

 +32      ;;=GMPL HIDDEN MENU

 +33      ;;^UTILITY(U,$J,"PKG",219,0)

 +34      ;;=PROBLEM LIST^GMPL^Automated Patient Problem List

 +35      ;;^UTILITY(U,$J,"PKG",219,1,0)

 +36      ;;=^^3^3^2940825^^^^

 +37      ;;^UTILITY(U,$J,"PKG",219,1,1,0)

 +38      ;;=This package allows for entry and tracking of a patient's problems

 +39      ;;^UTILITY(U,$J,"PKG",219,1,2,0)

 +40      ;;=within DHCP.  Other components of the clinical record may be linked

 +41      ;;^UTILITY(U,$J,"PKG",219,1,3,0)

 +42      ;;=to a problem, such as orders, procedures, and progress notes.

 +43      ;;^UTILITY(U,$J,"PKG",219,2,0)

 +44      ;;=^9.42A^40^35

 +45      ;;^UTILITY(U,$J,"PKG",219,2,1,0)

 +46      ;;=GMPL

 +47      ;;^UTILITY(U,$J,"PKG",219,2,2,0)

 +48      ;;=GMPL1

 +49      ;;^UTILITY(U,$J,"PKG",219,2,3,0)

 +50      ;;=GMPLDISP

 +51      ;;^UTILITY(U,$J,"PKG",219,2,5,0)

 +52      ;;=GMPLEDIT

 +53      ;;^UTILITY(U,$J,"PKG",219,2,6,0)

 +54      ;;=GMPLEDT1

 +55      ;;^UTILITY(U,$J,"PKG",219,2,7,0)

 +56      ;;=GMPLEDT2

 +57      ;;^UTILITY(U,$J,"PKG",219,2,9,0)

 +58      ;;=GMPLMGR

 +59      ;;^UTILITY(U,$J,"PKG",219,2,10,0)

 +60      ;;=GMPLMGR1

 +61      ;;^UTILITY(U,$J,"PKG",219,2,11,0)

 +62      ;;=GMPLSAVE

 +63      ;;^UTILITY(U,$J,"PKG",219,2,12,0)

 +64      ;;=GMPLX

 +65      ;;^UTILITY(U,$J,"PKG",219,2,13,0)

 +66      ;;=GMPLPRNT

 +67      ;;^UTILITY(U,$J,"PKG",219,2,14,0)

 +68      ;;=GMPLDIS1

 +69      ;;^UTILITY(U,$J,"PKG",219,2,15,0)

 +70      ;;=GMPLENFM

 +71      ;;^UTILITY(U,$J,"PKG",219,2,16,0)

 +72      ;;=GMPLCODE

 +73      ;;^UTILITY(U,$J,"PKG",219,2,18,0)

 +74      ;;=GMPLEDT3

 +75      ;;^UTILITY(U,$J,"PKG",219,2,19,0)

 +76      ;;=GMPLHIST

 +77      ;;^UTILITY(U,$J,"PKG",219,2,20,0)

 +78      ;;=GMPLHS

 +79      ;;^UTILITY(U,$J,"PKG",219,2,21,0)

 +80      ;;=GMPLHSPL

 +81      ;;^UTILITY(U,$J,"PKG",219,2,22,0)

 +82      ;;=GMPLUTL

 +83      ;;^UTILITY(U,$J,"PKG",219,2,24,0)

 +84      ;;=GMPLPREF

 +85      ;;^UTILITY(U,$J,"PKG",219,2,25,0)

 +86      ;;=GMPLEDT4

 +87      ;;^UTILITY(U,$J,"PKG",219,2,26,0)

 +88      ;;=GMPLRPTS

 +89      ;;^UTILITY(U,$J,"PKG",219,2,27,0)

 +90      ;;=GMPLX1

 +91      ;;^UTILITY(U,$J,"PKG",219,2,28,0)

 +92      ;;=GMPLPRF1

 +93      ;;^UTILITY(U,$J,"PKG",219,2,30,0)

 +94      ;;=GMPLMENU

 +95      ;;^UTILITY(U,$J,"PKG",219,2,31,0)

 +96      ;;=GMPLBLD

 +97      ;;^UTILITY(U,$J,"PKG",219,2,32,0)

 +98      ;;=GMPLBLD1

 +99      ;;^UTILITY(U,$J,"PKG",219,2,33,0)

 +100     ;;=GMPLBLD2

 +101     ;;^UTILITY(U,$J,"PKG",219,2,34,0)

 +102     ;;=GMPLBLDC

 +103     ;;^UTILITY(U,$J,"PKG",219,2,35,0)

 +104     ;;=GMPLBLDF

 +105     ;;^UTILITY(U,$J,"PKG",219,2,36,0)

 +106     ;;=GMPLMGR2

 +107     ;;^UTILITY(U,$J,"PKG",219,2,37,0)

 +108     ;;=GMPLBLD3

 +109     ;;^UTILITY(U,$J,"PKG",219,2,38,0)

 +110     ;;=GMPLRPTR

 +111     ;;^UTILITY(U,$J,"PKG",219,2,39,0)

 +112     ;;=GMPLPRF0

 +113     ;;^UTILITY(U,$J,"PKG",219,2,40,0)

 +114     ;;=GMPLUTL1

 +115     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPL",1)

 +116     ;;=

 +117     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPL1",2)

 +118     ;;=

 +119     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLD",31)

 +120     ;;=

 +121     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLD1",32)

 +122     ;;=

 +123     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLD2",33)

 +124     ;;=

 +125     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLD3",37)

 +126     ;;=

 +127     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLDC",34)

 +128     ;;=

 +129     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLBLDF",35)

 +130     ;;=

 +131     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLCODE",16)

 +132     ;;=

 +133     ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLDIS1",14)

 +134     ;;=

GMPLI00Z.m