Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMPLI00I

GMPLI00I.m

Go to the documentation of this file.
GMPLI00I	; ; 25-AUG-1994
	;;2.0;Problem List;;Aug 25, 1994
	Q:'DIFQ(200)  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
	;;^DD(200,0,"PT",130.28,.01)
	;;=
	;;^DD(200,0,"PT",130.31,1)
	;;=
	;;^DD(200,0,"PT",130.34,2)
	;;=
	;;^DD(200,0,"PT",130.34,3)
	;;=
	;;^DD(200,0,"PT",130.36,.01)
	;;=
	;;^DD(200,0,"PT",130.39,2)
	;;=
	;;^DD(200,0,"PT",130.41,3)
	;;=
	;;^DD(200,0,"PT",131.7,2)
	;;=
	;;^DD(200,0,"PT",131.704,2)
	;;=
	;;^DD(200,0,"PT",136,.01)
	;;=
	;;^DD(200,0,"PT",142,.06)
	;;=
	;;^DD(200,0,"PT",160.1,4)
	;;=
	;;^DD(200,0,"PT",165,100)
	;;=
	;;^DD(200,0,"PT",165.5,92)
	;;=
	;;^DD(200,0,"PT",165.5,96)
	;;=
	;;^DD(200,0,"PT",200,19)
	;;=
	;;^DD(200,0,"PT",200,31)
	;;=
	;;^DD(200,0,"PT",200,53.8)
	;;=
	;;^DD(200,0,"PT",200,100.25)
	;;=
	;;^DD(200,0,"PT",200,654.1)
	;;=
	;;^DD(200,0,"PT",200,654.3)
	;;=
	;;^DD(200,0,"PT",200.0199,1)
	;;=
	;;^DD(200,0,"PT",200.051,1)
	;;=
	;;^DD(200,0,"PT",200.052,1)
	;;=
	;;^DD(200,0,"PT",200.19,1)
	;;=
	;;^DD(200,0,"PT",210,.01)
	;;=
	;;^DD(200,0,"PT",210.03,1.6)
	;;=
	;;^DD(200,0,"PT",210.18,1)
	;;=
	;;^DD(200,0,"PT",211.82,.02)
	;;=
	;;^DD(200,0,"PT",213.4,10)
	;;=
	;;^DD(200,0,"PT",213.52,.01)
	;;=
	;;^DD(200,0,"PT",214.6,4)
	;;=
	;;^DD(200,0,"PT",214.7,3)
	;;=
	;;^DD(200,0,"PT",216.82,1)
	;;=
	;;^DD(200,0,"PT",216.83,1)
	;;=
	;;^DD(200,0,"PT",216.84,2)
	;;=
	;;^DD(200,0,"PT",340,.01)
	;;=
	;;^DD(200,0,"PT",341,.08)
	;;=
	;;^DD(200,0,"PT",342,3.04)
	;;=
	;;^DD(200,0,"PT",344,.02)
	;;=
	;;^DD(200,0,"PT",344,.07)
	;;=
	;;^DD(200,0,"PT",344,.11)
	;;=
	;;^DD(200,0,"PT",344.01,.12)
	;;=
	;;^DD(200,0,"PT",350,11)
	;;=
	;;^DD(200,0,"PT",350,13)
	;;=
	;;^DD(200,0,"PT",350.6,1.03)
	;;=
	;;^DD(200,0,"PT",350.6,2.03)
	;;=
	;;^DD(200,0,"PT",350.6,3.03)
	;;=
	;;^DD(200,0,"PT",350.9,1.08)
	;;=
	;;^DD(200,0,"PT",351,11)
	;;=
	;;^DD(200,0,"PT",351,13)
	;;=
	;;^DD(200,0,"PT",351.1,.03)
	;;=
	;;^DD(200,0,"PT",351.1,.05)
	;;=
	;;^DD(200,0,"PT",351.2,2.01)
	;;=
	;;^DD(200,0,"PT",351.2,2.03)
	;;=
	;;^DD(200,0,"PT",354.1,.07)
	;;=
	;;^DD(200,0,"PT",354.4,.03)
	;;=
	;;^DD(200,0,"PT",354.5002,.01)
	;;=
	;;^DD(200,0,"PT",355.3,1.02)
	;;=
	;;^DD(200,0,"PT",355.3,1.04)
	;;=
	;;^DD(200,0,"PT",355.3,1.06)
	;;=
	;;^DD(200,0,"PT",355.4,1.02)
	;;=
	;;^DD(200,0,"PT",355.4,1.04)
	;;=
	;;^DD(200,0,"PT",355.4,1.06)
	;;=
	;;^DD(200,0,"PT",355.5,1.02)
	;;=
	;;^DD(200,0,"PT",355.5,1.04)
	;;=
	;;^DD(200,0,"PT",355.5,1.06)
	;;=
	;;^DD(200,0,"PT",356,1.02)
	;;=
	;;^DD(200,0,"PT",356,1.04)
	;;=
	;;^DD(200,0,"PT",356,1.05)
	;;=
	;;^DD(200,0,"PT",356,1.06)
	;;=
	;;^DD(200,0,"PT",356.1,1.02)
	;;=
	;;^DD(200,0,"PT",356.1,1.04)
	;;=
	;;^DD(200,0,"PT",356.1,1.06)
	;;=
	;;^DD(200,0,"PT",356.2,1.02)
	;;=
	;;^DD(200,0,"PT",356.2,1.04)
	;;=
	;;^DD(200,0,"PT",356.94,.03)
	;;=
	;;^DD(200,0,"PT",391.12,.02)
	;;=
	;;^DD(200,0,"PT",391.12,.04)
	;;=
	;;^DD(200,0,"PT",392,12)
	;;=
	;;^DD(200,0,"PT",392,41)
	;;=
	;;^DD(200,0,"PT",392.2,5)
	;;=
	;;^DD(200,0,"PT",393,.09)
	;;=
	;;^DD(200,0,"PT",393,.1)
	;;=
	;;^DD(200,0,"PT",393,.12)
	;;=
	;;^DD(200,0,"PT",393,.14)
	;;=
	;;^DD(200,0,"PT",393,10.02)
	;;=
	;;^DD(200,0,"PT",393,10.04)
	;;=
	;;^DD(200,0,"PT",393,10.06)
	;;=
	;;^DD(200,0,"PT",393,10.08)
	;;=
	;;^DD(200,0,"PT",399,2)
	;;=
	;;^DD(200,0,"PT",399,5)
	;;=
	;;^DD(200,0,"PT",399,8)
	;;=
	;;^DD(200,0,"PT",399,11)
	;;=
	;;^DD(200,0,"PT",399,13)
	;;=
	;;^DD(200,0,"PT",399,15)
	;;=
	;;^DD(200,0,"PT",399,18)
	;;=
	;;^DD(200,0,"PT",399.046,.02)
	;;=
	;;^DD(200,0,"PT",405,.08)
	;;=
	;;^DD(200,0,"PT",405,.19)
	;;=
	;;^DD(200,0,"PT",405,100)
	;;=
	;;^DD(200,0,"PT",405,102)
	;;=
	;;^DD(200,0,"PT",408,10)
	;;=
	;;^DD(200,0,"PT",408.21,101)
	;;=
	;;^DD(200,0,"PT",408.21,103)
	;;=
	;;^DD(200,0,"PT",408.31,.06)
	;;=
	;;^DD(200,0,"PT",408.31,.08)
	;;=
	;;^DD(200,0,"PT",408.31,.22)
	;;=
	;;^DD(200,0,"PT",408.41,.07)
	;;=
	;;^DD(200,0,"PT",409.44,.01)
	;;=