Routine: GMPLI004

GMPLI004	; ; 25-AUG-1994

	;;2.0;Problem List;;Aug 25, 1994

	Q:'DIFQ(125.1)  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

	;;^DIC(125.1,0,"GL")

	;;=^GMPL(125.1,

	;;^DIC("B","PROBLEM SELECTION LIST CONTENTS",125.1)

;;=

	;;^DIC(125.1,"%D",0)

	;;=^^3^3^2940526^^^^

	;;^DIC(125.1,"%D",1,0)

	;;=This file contains the categories that make up the Problem Selection

	;;^DIC(125.1,"%D",2,0)

	;;=Lists defined in file #125.  Each entry links a problem category to

	;;^DIC(125.1,"%D",3,0)

	;;=a list, optionally with a subheader and a sequence order.

	;;^DD(125.1,0)

	;;=FIELD^^4^5

	;;^DD(125.1,0,"DDA")

	;;=N

	;;^DD(125.1,0,"DT")

	;;=2931210

	;;^DD(125.1,0,"IX","B",125.1,.01)

;;=

	;;^DD(125.1,0,"IX","C",125.1,.01)

;;=

	;;^DD(125.1,0,"IX","C1",125.1,1)

;;=

	;;^DD(125.1,0,"IX","G",125.1,2)

;;=

	;;^DD(125.1,0,"NM","PROBLEM SELECTION LIST CONTENTS")

;;=

	;;^DD(125.1,.01,0)

	;;=LIST^RP125'^GMPL(125,^0;1^Q

	;;^DD(125.1,.01,1,0)

	;;=^.1

	;;^DD(125.1,.01,1,1,0)

	;;=125.1^B

	;;^DD(125.1,.01,1,1,1)

	;;=S ^GMPL(125.1,"B",$E(X,1,30),DA)=""

	;;^DD(125.1,.01,1,1,2)

	;;=K ^GMPL(125.1,"B",$E(X,1,30),DA)

	;;^DD(125.1,.01,1,2,0)

	;;=125.1^C^MUMPS

	;;^DD(125.1,.01,1,2,1)

	;;=S:$P(^GMPL(125.1,DA,0),U,2) ^GMPL(125.1,"C",X,$P(^(0),U,2),DA)=""

	;;^DD(125.1,.01,1,2,2)

	;;=K:$P(^GMPL(125.1,DA,0),U,2) ^GMPL(125.1,"C",X,$P(^(0),U,2),DA)

	;;^DD(125.1,.01,1,2,"%D",0)

	;;=^^1^1^2940511^^^^

	;;^DD(125.1,.01,1,2,"%D",1,0)

	;;=Allows retrieval of list contents in sequenced order.

	;;^DD(125.1,.01,1,2,"DT")

	;;=2931015

	;;^DD(125.1,.01,3)

	;;=Enter the list for which you wish to add, edit, or remove problem groups.

	;;^DD(125.1,.01,21,0)

	;;=^^3^3^2931004^

	;;^DD(125.1,.01,21,1,0)

	;;=This is the Problem Selection List which is to contain the problem group

	;;^DD(125.1,.01,21,2,0)

	;;=entered in field #1; this group may be assigned a sequence number for

	;;^DD(125.1,.01,21,3,0)

	;;=ordering and a subheader as well here.

	;;^DD(125.1,.01,"DT")

	;;=2931015

	;;^DD(125.1,1,0)

	;;=SEQUENCE^NJ6,2^^0;2^K:+X'=X!(X>999.99)!(X<.01)!(X?.E1"."3N.N) X

	;;^DD(125.1,1,1,0)

	;;=^.1

	;;^DD(125.1,1,1,1,0)

	;;=125.1^C1^MUMPS

	;;^DD(125.1,1,1,1,1)

	;;=S ^GMPL(125.1,"C",$P(^GMPL(125.1,DA,0),U),X,DA)=""

	;;^DD(125.1,1,1,1,2)

	;;=K ^GMPL(125.1,"C",$P(^GMPL(125.1,DA,0),U),X,DA)

	;;^DD(125.1,1,1,1,"%D",0)

	;;=^^1^1^2940511^^^^

	;;^DD(125.1,1,1,1,"%D",1,0)

	;;=Allows retrieval of list contents in sequenced order.

	;;^DD(125.1,1,1,1,"DT")

	;;=2940511

	;;^DD(125.1,1,3)

	;;=Type a Number between .01 and 999.99, 2 Decimal Digits

	;;^DD(125.1,1,21,0)

	;;=^^2^2^2931006^^

	;;^DD(125.1,1,21,1,0)

	;;=This is a number which will determine the order this group will appear

	;;^DD(125.1,1,21,2,0)

	;;=in the current list; up to two decimal places may be used.

	;;^DD(125.1,1,"DT")

	;;=2940511

	;;^DD(125.1,2,0)

	;;=CATEGORY^P125.11^GMPL(125.11,^0;3^Q

	;;^DD(125.1,2,1,0)

	;;=^.1

	;;^DD(125.1,2,1,1,0)

	;;=125.1^G

	;;^DD(125.1,2,1,1,1)

	;;=S ^GMPL(125.1,"G",$E(X,1,30),DA)=""

	;;^DD(125.1,2,1,1,2)

	;;=K ^GMPL(125.1,"G",$E(X,1,30),DA)

	;;^DD(125.1,2,1,1,"DT")

	;;=2931015

	;;^DD(125.1,2,3)

	;;=Enter the problem category you wish to include in this list.

	;;^DD(125.1,2,21,0)

	;;=^^2^2^2931129^^^^

	;;^DD(125.1,2,21,1,0)

	;;=This is the category whose problem items are to be included in the current

	;;^DD(125.1,2,21,2,0)

	;;=list; it may have a subheader in this list, and a designated order.

	;;^DD(125.1,2,"DT")

	;;=2931129

	;;^DD(125.1,3,0)

	;;=SUBHEADER^F^^0;4^K:$L(X)>30!($L(X)<2) X

	;;^DD(125.1,3,3)

	;;=Answer must be 2-30 characters in length.

	;;^DD(125.1,3,21,0)

	;;=^^3^3^2931004^

	;;^DD(125.1,3,21,1,0)

	;;=This is text which will appear in the list as a subheader or title to

	;;^DD(125.1,3,21,2,0)

	;;=this group of problems.  It will have a single blank row between it and

GMPLI004  ; ; 25-AUG-1994

 +1       ;;2.0;Problem List;;Aug 25, 1994

 +2        IF 'DIFQ(125.1)

               QUIT

           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       ;;^DIC(125.1,0,"GL")

 +2       ;;=^GMPL(125.1,

 +3       ;;^DIC("B","PROBLEM SELECTION LIST CONTENTS",125.1)

 +4       ;;=

 +5       ;;^DIC(125.1,"%D",0)

 +6       ;;=^^3^3^2940526^^^^

 +7       ;;^DIC(125.1,"%D",1,0)

 +8       ;;=This file contains the categories that make up the Problem Selection

 +9       ;;^DIC(125.1,"%D",2,0)

 +10      ;;=Lists defined in file #125.  Each entry links a problem category to

 +11      ;;^DIC(125.1,"%D",3,0)

 +12      ;;=a list, optionally with a subheader and a sequence order.

 +13      ;;^DD(125.1,0)

 +14      ;;=FIELD^^4^5

 +15      ;;^DD(125.1,0,"DDA")

 +16      ;;=N

 +17      ;;^DD(125.1,0,"DT")

 +18      ;;=2931210

 +19      ;;^DD(125.1,0,"IX","B",125.1,.01)

 +20      ;;=

 +21      ;;^DD(125.1,0,"IX","C",125.1,.01)

 +22      ;;=

 +23      ;;^DD(125.1,0,"IX","C1",125.1,1)

 +24      ;;=

 +25      ;;^DD(125.1,0,"IX","G",125.1,2)

 +26      ;;=

 +27      ;;^DD(125.1,0,"NM","PROBLEM SELECTION LIST CONTENTS")

 +28      ;;=

 +29      ;;^DD(125.1,.01,0)

 +30      ;;=LIST^RP125'^GMPL(125,^0;1^Q

 +31      ;;^DD(125.1,.01,1,0)

 +32      ;;=^.1

 +33      ;;^DD(125.1,.01,1,1,0)

 +34      ;;=125.1^B

 +35      ;;^DD(125.1,.01,1,1,1)

 +36      ;;=S ^GMPL(125.1,"B",$E(X,1,30),DA)=""

 +37      ;;^DD(125.1,.01,1,1,2)

 +38      ;;=K ^GMPL(125.1,"B",$E(X,1,30),DA)

 +39      ;;^DD(125.1,.01,1,2,0)

 +40      ;;=125.1^C^MUMPS

 +41      ;;^DD(125.1,.01,1,2,1)

 +42      ;;=S:$P(^GMPL(125.1,DA,0),U,2) ^GMPL(125.1,"C",X,$P(^(0),U,2),DA)=""

 +43      ;;^DD(125.1,.01,1,2,2)

 +44      ;;=K:$P(^GMPL(125.1,DA,0),U,2) ^GMPL(125.1,"C",X,$P(^(0),U,2),DA)

 +45      ;;^DD(125.1,.01,1,2,"%D",0)

 +46      ;;=^^1^1^2940511^^^^

 +47      ;;^DD(125.1,.01,1,2,"%D",1,0)

 +48      ;;=Allows retrieval of list contents in sequenced order.

 +49      ;;^DD(125.1,.01,1,2,"DT")

 +50      ;;=2931015

 +51      ;;^DD(125.1,.01,3)

 +52      ;;=Enter the list for which you wish to add, edit, or remove problem groups.

 +53      ;;^DD(125.1,.01,21,0)

 +54      ;;=^^3^3^2931004^

 +55      ;;^DD(125.1,.01,21,1,0)

 +56      ;;=This is the Problem Selection List which is to contain the problem group

 +57      ;;^DD(125.1,.01,21,2,0)

 +58      ;;=entered in field #1; this group may be assigned a sequence number for

 +59      ;;^DD(125.1,.01,21,3,0)

 +60      ;;=ordering and a subheader as well here.

 +61      ;;^DD(125.1,.01,"DT")

 +62      ;;=2931015

 +63      ;;^DD(125.1,1,0)

 +64      ;;=SEQUENCE^NJ6,2^^0;2^K:+X'=X!(X>999.99)!(X<.01)!(X?.E1"."3N.N) X

 +65      ;;^DD(125.1,1,1,0)

 +66      ;;=^.1

 +67      ;;^DD(125.1,1,1,1,0)

 +68      ;;=125.1^C1^MUMPS

 +69      ;;^DD(125.1,1,1,1,1)

 +70      ;;=S ^GMPL(125.1,"C",$P(^GMPL(125.1,DA,0),U),X,DA)=""

 +71      ;;^DD(125.1,1,1,1,2)

 +72      ;;=K ^GMPL(125.1,"C",$P(^GMPL(125.1,DA,0),U),X,DA)

 +73      ;;^DD(125.1,1,1,1,"%D",0)

 +74      ;;=^^1^1^2940511^^^^

 +75      ;;^DD(125.1,1,1,1,"%D",1,0)

 +76      ;;=Allows retrieval of list contents in sequenced order.

 +77      ;;^DD(125.1,1,1,1,"DT")

 +78      ;;=2940511

 +79      ;;^DD(125.1,1,3)

 +80      ;;=Type a Number between .01 and 999.99, 2 Decimal Digits

 +81      ;;^DD(125.1,1,21,0)

 +82      ;;=^^2^2^2931006^^

 +83      ;;^DD(125.1,1,21,1,0)

 +84      ;;=This is a number which will determine the order this group will appear

 +85      ;;^DD(125.1,1,21,2,0)

 +86      ;;=in the current list; up to two decimal places may be used.

 +87      ;;^DD(125.1,1,"DT")

 +88      ;;=2940511

 +89      ;;^DD(125.1,2,0)

 +90      ;;=CATEGORY^P125.11^GMPL(125.11,^0;3^Q

 +91      ;;^DD(125.1,2,1,0)

 +92      ;;=^.1

 +93      ;;^DD(125.1,2,1,1,0)

 +94      ;;=125.1^G

 +95      ;;^DD(125.1,2,1,1,1)

 +96      ;;=S ^GMPL(125.1,"G",$E(X,1,30),DA)=""

 +97      ;;^DD(125.1,2,1,1,2)

 +98      ;;=K ^GMPL(125.1,"G",$E(X,1,30),DA)

 +99      ;;^DD(125.1,2,1,1,"DT")

 +100     ;;=2931015

 +101     ;;^DD(125.1,2,3)

 +102     ;;=Enter the problem category you wish to include in this list.

 +103     ;;^DD(125.1,2,21,0)

 +104     ;;=^^2^2^2931129^^^^

 +105     ;;^DD(125.1,2,21,1,0)

 +106     ;;=This is the category whose problem items are to be included in the current

 +107     ;;^DD(125.1,2,21,2,0)

 +108     ;;=list; it may have a subheader in this list, and a designated order.

 +109     ;;^DD(125.1,2,"DT")

 +110     ;;=2931129

 +111     ;;^DD(125.1,3,0)

 +112     ;;=SUBHEADER^F^^0;4^K:$L(X)>30!($L(X)<2) X

 +113     ;;^DD(125.1,3,3)

 +114     ;;=Answer must be 2-30 characters in length.

 +115     ;;^DD(125.1,3,21,0)

 +116     ;;=^^3^3^2931004^

 +117     ;;^DD(125.1,3,21,1,0)

 +118     ;;=This is text which will appear in the list as a subheader or title to

 +119     ;;^DD(125.1,3,21,2,0)

 +120     ;;=this group of problems.  It will have a single blank row between it and

GMPLI004.m