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

GMPLI00K.m

Go to the documentation of this file. 
  1. GMPLI00K	; ; 25-AUG-1994
  1. 	;;2.0;Problem List;;Aug 25, 1994
  1. 	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
  1. Q	Q
  1. 	;;^DD(200,0,"PT",650.121,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",652,3)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",655.2,.03)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",655.2,.04)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",655.2,.05)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",655.218,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",655.38,1)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",660,27)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",664,3.2)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",664,10)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",665.01,7)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",665.02,6)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",665.1,3)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",665.4,4)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",667.3,13)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",668,6)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",668,8)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",740.51,.02)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",757.201,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",7100,2.1)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",7100,124)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",7100.2,3)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",7100.3,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",7105.1,5)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",7105.2,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",7107.1,1)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",8980,4)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",8980.01,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",8999.09,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",800725.3,6)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",5000084,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",5000090,5)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",5000091.03,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",5020000,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010,.23)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.01,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.01,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.06,.01)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.06,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.06,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.07,.14)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.07,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.07,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.09,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.09,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.11,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.11,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.12,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.12,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.13,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.13,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.14,.09)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.14,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.14,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.15,.05)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.15,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.15,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.16,.05)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.16,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.16,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.18,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.18,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.23,.05)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.23,1202)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000010.23,1204)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000011,1.03)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000011,1.04)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000011,1.05)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9000011.1111,.06)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9009032.4,.03)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9009032.4,.04)
  1. 	;;=
  1. 	;;^DD(200,0,"PT",9009032.4,.11)
  1. 	;;=
  1. 	;;^DD(200,125,0)
  1. 	;;=PROBLEM LIST PRIMARY VIEW^F^^125;1^K:$L(X)>210!($L(X)<3) X
  1. 	;;^DD(200,125,3)
  1. 	;;=Answer must be 3-210 characters in length.
  1. 	;;^DD(200,125,21,0)
  1. 	;;=^^4^4^2931001^^^^
  1. 	;;^DD(200,125,21,1,0)
  1. 	;;=This string contains the user's preferred view of the problem list.
  1. 	;;^DD(200,125,21,2,0)
  1. 	;;=Problems are assigned a category based upon the service of the provider
  1. 	;;^DD(200,125,21,3,0)
  1. 	;;=who entered and/or is treating the problem; a screen may then be invoked
  1. 	;;^DD(200,125,21,4,0)
  1. 	;;=allowing a filtered view of the problem list.
  1. 	;;^DD(200,125,23,0)
  1. 	;;=^^4^4^2931001^^^^
  1. 	;;^DD(200,125,23,1,0)
  1. 	;;=This string should be in the format '/#/#/.../#/' where each # is a
  1. 	;;^DD(200,125,23,2,0)
  1. 	;;=pointer to an entry in the Service/Section file (#49).  The option
  1. 	;;^DD(200,125,23,3,0)
  1. 	;;=GMPL USER VIEW is exported with the Problem List application to facilitate
  1. 	;;^DD(200,125,23,4,0)
  1. 	;;=building this string; its use is recommended.
  1. 	;;^DD(200,125,"DT")
  1. 	;;=2930512