GMPLINI5.m

GMPLINI5	; ; 25-AUG-1994

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

	K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:18 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1

	Q

IXF	;;PROBLEM LIST^GMPL

	;;49I;SERVICE/SECTION;^DIC(49,;1;y;;;y;;;n

	;;

	;;125I;PROBLEM SELECTION LIST;^GMPL(125,;0;y;y;;y;;;n

	;;

	;;125.1IP;PROBLEM SELECTION LIST CONTENTS;^GMPL(125.1,;0;y;y;;y;;;n

	;;

	;;125.11;PROBLEM SELECTION CATEGORY;^GMPL(125.11,;0;y;y;;y;;;n

	;;

	;;125.12P;PROBLEM SELECTION CATEGORY CONTENTS;^GMPL(125.12,;0;y;y;;y;;;n

	;;

	;;125.8P;PROBLEM LIST AUDIT;^GMPL(125.8,;0;y;y;;y;;;n

	;;

	;;125.99;PROBLEM LIST SITE PARAMETERS;^GMPL(125.99,;0;y;y;;y;;;y;m;y

	;;

	;;200;NEW PERSON;^VA(200,;1;y;;;y;;;n

	;;

	;;9000011IP;PROBLEM;^AUPNPROB(;0;y;y;;y;;;n

	;;

GMPLINI5  ; ; 25-AUG-1994

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

 +2        KILL ^UTILITY("DIF",$JOB)

           SET DIFRDIFI=1

           FOR I=1:1:18

               SET ^UTILITY("DIF",$JOB,DIFRDIFI)=$TEXT(IXF+I)

               SET DIFRDIFI=DIFRDIFI+1

 +3        QUIT 

IXF       ;;PROBLEM LIST^GMPL

 +1       ;;49I;SERVICE/SECTION;^DIC(49,;1;y;;;y;;;n

 +2       ;;

 +3       ;;125I;PROBLEM SELECTION LIST;^GMPL(125,;0;y;y;;y;;;n

 +4       ;;

 +5       ;;125.1IP;PROBLEM SELECTION LIST CONTENTS;^GMPL(125.1,;0;y;y;;y;;;n

 +6       ;;

 +7       ;;125.11;PROBLEM SELECTION CATEGORY;^GMPL(125.11,;0;y;y;;y;;;n

 +8       ;;

 +9       ;;125.12P;PROBLEM SELECTION CATEGORY CONTENTS;^GMPL(125.12,;0;y;y;;y;;;n

 +10      ;;

 +11      ;;125.8P;PROBLEM LIST AUDIT;^GMPL(125.8,;0;y;y;;y;;;n

 +12      ;;

 +13      ;;125.99;PROBLEM LIST SITE PARAMETERS;^GMPL(125.99,;0;y;y;;y;;;y;m;y

 +14      ;;

 +15      ;;200;NEW PERSON;^VA(200,;1;y;;;y;;;n

 +16      ;;

 +17      ;;9000011IP;PROBLEM;^AUPNPROB(;0;y;y;;y;;;n

 +18      ;;