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

GMPLI003.m

Go to the documentation of this file. 
  1. GMPLI003	; ; 25-AUG-1994
  1. 	;;2.0;Problem List;;Aug 25, 1994
  1. 	Q:'DIFQ(125)  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. 	;;^DIC(125,0,"GL")
  1. 	;;=^GMPL(125,
  1. 	;;^DIC("B","PROBLEM SELECTION LIST",125)
  1. 	;;=
  1. 	;;^DIC(125,"%D",0)
  1. 	;;=^^3^3^2940526^^^^
  1. 	;;^DIC(125,"%D",1,0)
  1. 	;;=This file contains information defining lists of problems commonly seen
  1. 	;;^DIC(125,"%D",2,0)
  1. 	;;=by a particular clinic or user.  These lists will be presented as menus
  1. 	;;^DIC(125,"%D",3,0)
  1. 	;;=to select from, to facilitate adding new problems.
  1. 	;;^DD(125,0)
  1. 	;;=FIELD^^.03^3
  1. 	;;^DD(125,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(125,0,"DT")
  1. 	;;=2940202
  1. 	;;^DD(125,0,"ID",.03)
  1. 	;;=W ""
  1. 	;;^DD(125,0,"IX","B",125,.01)
  1. 	;;=
  1. 	;;^DD(125,0,"IX","C",125,.03)
  1. 	;;=
  1. 	;;^DD(125,0,"NM","PROBLEM SELECTION LIST")
  1. 	;;=
  1. 	;;^DD(125,0,"PT",125.1,.01)
  1. 	;;=
  1. 	;;^DD(125,0,"PT",200,125.1)
  1. 	;;=
  1. 	;;^DD(125,.01,0)
  1. 	;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  1. 	;;^DD(125,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(125,.01,1,1,0)
  1. 	;;=125^B
  1. 	;;^DD(125,.01,1,1,1)
  1. 	;;=S ^GMPL(125,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(125,.01,1,1,2)
  1. 	;;=K ^GMPL(125,"B",$E(X,1,30),DA)
  1. 	;;^DD(125,.01,3)
  1. 	;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  1. 	;;^DD(125,.01,21,0)
  1. 	;;=^^3^3^2931004^
  1. 	;;^DD(125,.01,21,1,0)
  1. 	;;=This is a free text name for the list; it should contain the name of
  1. 	;;^DD(125,.01,21,2,0)
  1. 	;;=the clinic or user who will be the primary user(s) of this list, as this
  1. 	;;^DD(125,.01,21,3,0)
  1. 	;;=name will be used as an ID and a title.
  1. 	;;^DD(125,.02,0)
  1. 	;;=DATE LAST MODIFIED^D^^0;2^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1. 	;;^DD(125,.02,3)
  1. 	;;=Enter the date/time this list was last edited.
  1. 	;;^DD(125,.02,21,0)
  1. 	;;=^^2^2^2940107^^
  1. 	;;^DD(125,.02,21,1,0)
  1. 	;;=This is the date[/time] this list was last changed in any way; this value
  1. 	;;^DD(125,.02,21,2,0)
  1. 	;;=is stuffed in by the Problem List pkg utilities that manage this file.
  1. 	;;^DD(125,.02,"DT")
  1. 	;;=2931004
  1. 	;;^DD(125,.03,0)
  1. 	;;=CLINIC^*P44'^SC(^0;3^S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1. 	;;^DD(125,.03,1,0)
  1. 	;;=^.1
  1. 	;;^DD(125,.03,1,1,0)
  1. 	;;=125^C
  1. 	;;^DD(125,.03,1,1,1)
  1. 	;;=S ^GMPL(125,"C",$E(X,1,30),DA)=""
  1. 	;;^DD(125,.03,1,1,2)
  1. 	;;=K ^GMPL(125,"C",$E(X,1,30),DA)
  1. 	;;^DD(125,.03,1,1,"DT")
  1. 	;;=2940107
  1. 	;;^DD(125,.03,3)
  1. 	;;=Enter the clinic to be associated with this list.
  1. 	;;^DD(125,.03,12)
  1. 	;;=Only hospital locations that are clinics are allowed.
  1. 	;;^DD(125,.03,12.1)
  1. 	;;=S DIC("S")="I $P(^(0),U,3)=""C"""
  1. 	;;^DD(125,.03,21,0)
  1. 	;;=^^4^4^2940202^^^^
  1. 	;;^DD(125,.03,21,1,0)
  1. 	;;=This is the clinic to be associated with this list.  This should be the
  1. 	;;^DD(125,.03,21,2,0)
  1. 	;;=primary clinic in which this list will be used to populate patient
  1. 	;;^DD(125,.03,21,3,0)
  1. 	;;=problem lists; when adding new problems for a patient from this clinic,
  1. 	;;^DD(125,.03,21,4,0)
  1. 	;;=this list will automatically be presented to select problems from.
  1. 	;;^DD(125,.03,"DT")
  1. 	;;=2940202