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

GMPLI00C.m

Go to the documentation of this file.
  1. GMPLI00C ; ; 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. ;;^DD(125.99,3,21,9,0)
  1. ;;=
  1. ;;^DD(125.99,3,21,10,0)
  1. ;;=If this flag is set to NO, the user will be prompted for his/her free
  1. ;;^DD(125.99,3,21,11,0)
  1. ;;=text description of the problem only, when adding or editing a problem.
  1. ;;^DD(125.99,3,21,12,0)
  1. ;;=No search will be performed at that time on the CLU, and no link made
  1. ;;^DD(125.99,3,21,13,0)
  1. ;;=from the problem to an entry in the CLU.
  1. ;;^DD(125.99,3,"DT")
  1. ;;=2931102
  1. ;;^DD(125.99,4,0)
  1. ;;=DISPLAY ORDER^S^C:CHRONOLOGICAL;R:REVERSE-CHRONOLOGICAL;^0;5^Q
  1. ;;^DD(125.99,4,3)
  1. ;;=Enter the order in which the problems should be displayed for your site, according to the date each problem was recorded.
  1. ;;^DD(125.99,4,21,0)
  1. ;;=^^6^6^2940207^^^^
  1. ;;^DD(125.99,4,21,1,0)
  1. ;;=This flag allows each site to control how the problem list is displayed,
  1. ;;^DD(125.99,4,21,2,0)
  1. ;;=whether chronologically or reverse-chronologically by date recorded.
  1. ;;^DD(125.99,4,21,3,0)
  1. ;;=This ordering will be the same both onscreen and on the printed copy.
  1. ;;^DD(125.99,4,21,4,0)
  1. ;;=When new problems are added to a patient's list, they will be added as the
  1. ;;^DD(125.99,4,21,5,0)
  1. ;;=most recent problems, i.e. at the top of the list if reverse-chronological
  1. ;;^DD(125.99,4,21,6,0)
  1. ;;=or at the bottom if chronological.
  1. ;;^DD(125.99,4,"DT")
  1. ;;=2940207