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

GMPLI00B.m

Go to the documentation of this file. 
  1. GMPLI00B	; ; 25-AUG-1994
  1. 	;;2.0;Problem List;;Aug 25, 1994
  1. 	Q:'DIFQ(125.99)  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.99,0,"GL")
  1. 	;;=^GMPL(125.99,
  1. 	;;^DIC("B","PROBLEM LIST SITE PARAMETERS",125.99)
  1. 	;;=
  1. 	;;^DIC(125.99,"%D",0)
  1. 	;;=^^4^4^2940517^^^^
  1. 	;;^DIC(125.99,"%D",1,0)
  1. 	;;=This file controls the behavior of the Problem List application for each
  1. 	;;^DIC(125.99,"%D",2,0)
  1. 	;;=site where it is installed.
  1. 	;;^DIC(125.99,"%D",3,0)
  1. 	;;=  
  1. 	;;^DIC(125.99,"%D",4,0)
  1. 	;;=There should be only one entry in this file!!
  1. 	;;^DD(125.99,0)
  1. 	;;=FIELD^^.001^6
  1. 	;;^DD(125.99,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(125.99,0,"DT")
  1. 	;;=2940310
  1. 	;;^DD(125.99,0,"IX","B",125.99,.01)
  1. 	;;=
  1. 	;;^DD(125.99,0,"NM","PROBLEM LIST SITE PARAMETERS")
  1. 	;;=
  1. 	;;^DD(125.99,.001,0)
  1. 	;;=NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(125.99,.001,3)
  1. 	;;=Type a Number between 1 and 1, 0 Decimal Digits
  1. 	;;^DD(125.99,.001,21,0)
  1. 	;;=^^1^1^2940310^
  1. 	;;^DD(125.99,.001,21,1,0)
  1. 	;;=This is the internal number of this file entry.
  1. 	;;^DD(125.99,.001,"DT")
  1. 	;;=2940310
  1. 	;;^DD(125.99,.01,0)
  1. 	;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  1. 	;;^DD(125.99,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(125.99,.01,1,1,0)
  1. 	;;=125.99^B
  1. 	;;^DD(125.99,.01,1,1,1)
  1. 	;;=S ^GMPL(125.99,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(125.99,.01,1,1,2)
  1. 	;;=K ^GMPL(125.99,"B",$E(X,1,30),DA)
  1. 	;;^DD(125.99,.01,3)
  1. 	;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  1. 	;;^DD(125.99,.01,21,0)
  1. 	;;=^^1^1^2930401^
  1. 	;;^DD(125.99,.01,21,1,0)
  1. 	;;=This is the name of the site, commonly HOSPITAL or VAMC.
  1. 	;;^DD(125.99,1,0)
  1. 	;;=VERIFY TRANSCRIBED PROBLEMS^S^1:YES;0:NO;^0;2^Q
  1. 	;;^DD(125.99,1,3)
  1. 	;;=Enter YES to flag transcribed entries for clinician verification.
  1. 	;;^DD(125.99,1,21,0)
  1. 	;;=^^3^3^2930401^
  1. 	;;^DD(125.99,1,21,1,0)
  1. 	;;=This is a toggle which determines whether the PL application will
  1. 	;;^DD(125.99,1,21,2,0)
  1. 	;;=flag entries made by a non-clinical user, and allow for subsequent
  1. 	;;^DD(125.99,1,21,3,0)
  1. 	;;=confirmation of the entry by a clinician.
  1. 	;;^DD(125.99,1,"DT")
  1. 	;;=2930324
  1. 	;;^DD(125.99,2,0)
  1. 	;;=PROMPT FOR CHART COPY^S^1:YES, ASK;0:NO, DON'T ASK;^0;3^Q
  1. 	;;^DD(125.99,2,3)
  1. 	;;=Enter YES to be prompted to print a new copy before exiting the patient's list, if it has been updated.
  1. 	;;^DD(125.99,2,21,0)
  1. 	;;=^^4^4^2931102^^
  1. 	;;^DD(125.99,2,21,1,0)
  1. 	;;=This is a toggle which determines whether the PL application will
  1. 	;;^DD(125.99,2,21,2,0)
  1. 	;;=prompt the user to print a new chartable copy of the patient's list
  1. 	;;^DD(125.99,2,21,3,0)
  1. 	;;=when exiting the application or changing patients, if the current
  1. 	;;^DD(125.99,2,21,4,0)
  1. 	;;=patient's list has been modified.
  1. 	;;^DD(125.99,2,"DT")
  1. 	;;=2930701
  1. 	;;^DD(125.99,3,0)
  1. 	;;=USE CLINICAL LEXICON^S^1:YES;0:NO;^0;4^Q
  1. 	;;^DD(125.99,3,3)
  1. 	;;=Enter YES to allow the user to search the Clinical Lexicon when adding to or editing a problem list; NO will bypass the search, capturing ONLY the free text.
  1. 	;;^DD(125.99,3,21,0)
  1. 	;;=^^13^13^2931102^
  1. 	;;^DD(125.99,3,21,1,0)
  1. 	;;=This is a toggle which determines whether the PL application will
  1. 	;;^DD(125.99,3,21,2,0)
  1. 	;;=allow the user to search the Clinical Lexicon when adding or editing
  1. 	;;^DD(125.99,3,21,3,0)
  1. 	;;=a problem; if a term is selected from the CL Utility, the standardized
  1. 	;;^DD(125.99,3,21,4,0)
  1. 	;;=text will be displayed on the problem list, otherwise the text entered
  1. 	;;^DD(125.99,3,21,5,0)
  1. 	;;=by the user to search on will be displayed.  Problems which are taken
  1. 	;;^DD(125.99,3,21,6,0)
  1. 	;;=from the CLU may already be coded to ICD9, and this code is returned 
  1. 	;;^DD(125.99,3,21,7,0)
  1. 	;;=to the PL application if available.  Duplicate problems can be screened
  1. 	;;^DD(125.99,3,21,8,0)
  1. 	;;=out, and searches by problem performed when this link to the CLU exists.