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
