Routine: GMPLI012

GMPLI012	; ; 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,"PKG",219,22,"B","2.0T3",8)

;;=

	;;^UTILITY(U,$J,"PKG",219,22,"B","2.0T4",9)

;;=

	;;^UTILITY(U,$J,"PKG",219,22,"B","2.0T5",10)

;;=

	;;^UTILITY(U,$J,"PKG",219,22,"B","2.0V1",11)

;;=

	;;^UTILITY(U,$J,"PKG",219,22,"B","2.0V2",12)

;;=

	;;^UTILITY(U,$J,"PKG",219,22,"B","2.0V3",13)

;;=

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

	;;=^9.455

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

	;;=^9.40015^.5^1

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

	;;=.5

	;;^UTILITY(U,$J,"PKG",219,15000,"B",.5,.5)

;;=

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

	;;=^9.400151A^2^2

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

	;;=9000011

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

	;;=125

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

	;;=^^ASSIGNED

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

	;;=MELANIE BUECHLER/SLC-ISC

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

	;;=^9.432^^0

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

	;;=GMPLIPRE^

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

	;;=GMPLIPST^

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

	;;=GMPLIENV^

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

	;;=^9.444D^2930413^1

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

	;;=2930413^A

	;;^UTILITY(U,$J,"SBF",49,49)

;;=

	;;^UTILITY(U,$J,"SBF",125,125)

;;=

	;;^UTILITY(U,$J,"SBF",125.1,125.1)

;;=

	;;^UTILITY(U,$J,"SBF",125.11,125.11)

;;=

	;;^UTILITY(U,$J,"SBF",125.12,125.12)

;;=

	;;^UTILITY(U,$J,"SBF",125.8,125.8)

;;=

	;;^UTILITY(U,$J,"SBF",125.99,125.99)

;;=

	;;^UTILITY(U,$J,"SBF",200,200)

;;=

	;;^UTILITY(U,$J,"SBF",9000011,9000011)

;;=

	;;^UTILITY(U,$J,"SBF",9000011,9000011.11)

;;=

	;;^UTILITY(U,$J,"SBF",9000011,9000011.1111)

;;=

GMPLI012  ; ; 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,"PKG",219,22,"B","2.0T3",8)

 +2       ;;=

 +3       ;;^UTILITY(U,$J,"PKG",219,22,"B","2.0T4",9)

 +4       ;;=

 +5       ;;^UTILITY(U,$J,"PKG",219,22,"B","2.0T5",10)

 +6       ;;=

 +7       ;;^UTILITY(U,$J,"PKG",219,22,"B","2.0V1",11)

 +8       ;;=

 +9       ;;^UTILITY(U,$J,"PKG",219,22,"B","2.0V2",12)

 +10      ;;=

 +11      ;;^UTILITY(U,$J,"PKG",219,22,"B","2.0V3",13)

 +12      ;;=

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

 +14      ;;=^9.455

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

 +16      ;;=^9.40015^.5^1

 +17      ;;^UTILITY(U,$J,"PKG",219,15000,.5,0)

 +18      ;;=.5

 +19      ;;^UTILITY(U,$J,"PKG",219,15000,"B",.5,.5)

 +20      ;;=

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

 +22      ;;=^9.400151A^2^2

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

 +24      ;;=9000011

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

 +26      ;;=125

 +27      ;;^UTILITY(U,$J,"PKG",219,15002)

 +28      ;;=^^ASSIGNED

 +29      ;;^UTILITY(U,$J,"PKG",219,"DEV")

 +30      ;;=MELANIE BUECHLER/SLC-ISC

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

 +32      ;;=^9.432^^0

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

 +34      ;;=GMPLIPRE^

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

 +36      ;;=GMPLIPST^

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

 +38      ;;=GMPLIENV^

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

 +40      ;;=^9.444D^2930413^1

 +41      ;;^UTILITY(U,$J,"PKG",219,"ST",2930413,0)

 +42      ;;=2930413^A

 +43      ;;^UTILITY(U,$J,"SBF",49,49)

 +44      ;;=

 +45      ;;^UTILITY(U,$J,"SBF",125,125)

 +46      ;;=

 +47      ;;^UTILITY(U,$J,"SBF",125.1,125.1)

 +48      ;;=

 +49      ;;^UTILITY(U,$J,"SBF",125.11,125.11)

 +50      ;;=

 +51      ;;^UTILITY(U,$J,"SBF",125.12,125.12)

 +52      ;;=

 +53      ;;^UTILITY(U,$J,"SBF",125.8,125.8)

 +54      ;;=

 +55      ;;^UTILITY(U,$J,"SBF",125.99,125.99)

 +56      ;;=

 +57      ;;^UTILITY(U,$J,"SBF",200,200)

 +58      ;;=

 +59      ;;^UTILITY(U,$J,"SBF",9000011,9000011)

 +60      ;;=

 +61      ;;^UTILITY(U,$J,"SBF",9000011,9000011.11)

 +62      ;;=

 +63      ;;^UTILITY(U,$J,"SBF",9000011,9000011.1111)

 +64      ;;=

GMPLI012.m