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

GMPLI00J.m

Go to the documentation of this file.
GMPLI00J	; ; 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",409.51,2)
	;;=
	;;^DD(200,0,"PT",409.65,.04)
	;;=
	;;^DD(200,0,"PT",409.65,.08)
	;;=
	;;^DD(200,0,"PT",409.65,.09)
	;;=
	;;^DD(200,0,"PT",410,29)
	;;=
	;;^DD(200,0,"PT",410,40)
	;;=
	;;^DD(200,0,"PT",410,42)
	;;=
	;;^DD(200,0,"PT",410,44.7)
	;;=
	;;^DD(200,0,"PT",410,53)
	;;=
	;;^DD(200,0,"PT",410,62)
	;;=
	;;^DD(200,0,"PT",411.05,.01)
	;;=
	;;^DD(200,0,"PT",420.01,23)
	;;=
	;;^DD(200,0,"PT",420.02,.01)
	;;=
	;;^DD(200,0,"PT",420.05,.01)
	;;=
	;;^DD(200,0,"PT",420.1,.6)
	;;=
	;;^DD(200,0,"PT",420.2,.6)
	;;=
	;;^DD(200,0,"PT",421,12)
	;;=
	;;^DD(200,0,"PT",421.1,6)
	;;=
	;;^DD(200,0,"PT",421.2,.8)
	;;=
	;;^DD(200,0,"PT",421.2,5)
	;;=
	;;^DD(200,0,"PT",421.2,8)
	;;=
	;;^DD(200,0,"PT",421.4,2)
	;;=
	;;^DD(200,0,"PT",421.5,54.5)
	;;=
	;;^DD(200,0,"PT",421.5,59)
	;;=
	;;^DD(200,0,"PT",421.5,60)
	;;=
	;;^DD(200,0,"PT",421.51,2)
	;;=
	;;^DD(200,0,"PT",423,999)
	;;=
	;;^DD(200,0,"PT",423,999.2)
	;;=
	;;^DD(200,0,"PT",423.9001,.01)
	;;=
	;;^DD(200,0,"PT",424,.08)
	;;=
	;;^DD(200,0,"PT",424,.14)
	;;=
	;;^DD(200,0,"PT",424.1,.05)
	;;=
	;;^DD(200,0,"PT",424.1,.1)
	;;=
	;;^DD(200,0,"PT",430,17)
	;;=
	;;^DD(200,0,"PT",430,32)
	;;=
	;;^DD(200,0,"PT",430,34)
	;;=
	;;^DD(200,0,"PT",430,79.21)
	;;=
	;;^DD(200,0,"PT",430,90)
	;;=
	;;^DD(200,0,"PT",430,94)
	;;=
	;;^DD(200,0,"PT",430,97)
	;;=
	;;^DD(200,0,"PT",430,111)
	;;=
	;;^DD(200,0,"PT",433,42)
	;;=
	;;^DD(200,0,"PT",440,31)
	;;=
	;;^DD(200,0,"PT",440,33)
	;;=
	;;^DD(200,0,"PT",441,15)
	;;=
	;;^DD(200,0,"PT",441,18)
	;;=
	;;^DD(200,0,"PT",442,16)
	;;=
	;;^DD(200,0,"PT",442,19)
	;;=
	;;^DD(200,0,"PT",442,104)
	;;=
	;;^DD(200,0,"PT",442,113)
	;;=
	;;^DD(200,0,"PT",442.07,6)
	;;=
	;;^DD(200,0,"PT",442.07,10)
	;;=
	;;^DD(200,0,"PT",442.09,1)
	;;=
	;;^DD(200,0,"PT",442.11,6)
	;;=
	;;^DD(200,0,"PT",442.11,14)
	;;=
	;;^DD(200,0,"PT",442.11,17)
	;;=
	;;^DD(200,0,"PT",442.11,19.3)
	;;=
	;;^DD(200,0,"PT",442.14,2)
	;;=
	;;^DD(200,0,"PT",442.14,6)
	;;=
	;;^DD(200,0,"PT",442.9,2)
	;;=
	;;^DD(200,0,"PT",443,2)
	;;=
	;;^DD(200,0,"PT",443,6)
	;;=
	;;^DD(200,0,"PT",443.6,16)
	;;=
	;;^DD(200,0,"PT",443.6,19)
	;;=
	;;^DD(200,0,"PT",443.67,6)
	;;=
	;;^DD(200,0,"PT",443.67,10)
	;;=
	;;^DD(200,0,"PT",445.04,.01)
	;;=
	;;^DD(200,0,"PT",445.2,8.5)
	;;=
	;;^DD(200,0,"PT",445.2,21)
	;;=
	;;^DD(200,0,"PT",445.3,4)
	;;=
	;;^DD(200,0,"PT",446.4,.1)
	;;=
	;;^DD(200,0,"PT",446.42,.02)
	;;=
	;;^DD(200,0,"PT",600.71,3)
	;;=
	;;^DD(200,0,"PT",601,37)
	;;=
	;;^DD(200,0,"PT",601.22,2)
	;;=
	;;^DD(200,0,"PT",601.22,3)
	;;=
	;;^DD(200,0,"PT",601.2213,2)
	;;=
	;;^DD(200,0,"PT",601.2213,3)
	;;=
	;;^DD(200,0,"PT",601.2213,6)
	;;=
	;;^DD(200,0,"PT",601.2213,7)
	;;=
	;;^DD(200,0,"PT",601.41,16)
	;;=
	;;^DD(200,0,"PT",615.01,5)
	;;=
	;;^DD(200,0,"PT",615.02,2)
	;;=
	;;^DD(200,0,"PT",615.03,4)
	;;=
	;;^DD(200,0,"PT",615.2,.05)
	;;=
	;;^DD(200,0,"PT",615.2,4)
	;;=
	;;^DD(200,0,"PT",615.2,25)
	;;=
	;;^DD(200,0,"PT",615.2,40)
	;;=
	;;^DD(200,0,"PT",615.2,41)
	;;=
	;;^DD(200,0,"PT",615.2,43)
	;;=
	;;^DD(200,0,"PT",615.2,50)
	;;=
	;;^DD(200,0,"PT",615.2,53)
	;;=
	;;^DD(200,0,"PT",615.3,1)
	;;=
	;;^DD(200,0,"PT",615.3,2)
	;;=
	;;^DD(200,0,"PT",617.01,2)
	;;=
	;;^DD(200,0,"PT",618.04,2)
	;;=
	;;^DD(200,0,"PT",618.2,1)
	;;=
	;;^DD(200,0,"PT",618.2,2)
	;;=
	;;^DD(200,0,"PT",618.2,3)
	;;=
	;;^DD(200,0,"PT",618.2,4)
	;;=
	;;^DD(200,0,"PT",618.2,5)
	;;=
	;;^DD(200,0,"PT",618.2,6)
	;;=
	;;^DD(200,0,"PT",618.2,7)
	;;=
	;;^DD(200,0,"PT",618.2,8)
	;;=
	;;^DD(200,0,"PT",618.4,4)
	;;=
	;;^DD(200,0,"PT",618.4,5)
	;;=
	;;^DD(200,0,"PT",618.4,6)
	;;=
	;;^DD(200,0,"PT",618.418,1)
	;;=
	;;^DD(200,0,"PT",618.419,2)
	;;=
	;;^DD(200,0,"PT",627.8,.04)
	;;=
	;;^DD(200,0,"PT",627.8,.05)
	;;=
	;;^DD(200,0,"PT",650,2)
	;;=