GMPLI00C.m

GMPLI00C	; ; 25-AUG-1994

	;;2.0;Problem List;;Aug 25, 1994

	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

Q	Q

	;;^DD(125.99,3,21,9,0)

	;;=   

	;;^DD(125.99,3,21,10,0)

	;;=If this flag is set to NO, the user will be prompted for his/her free

	;;^DD(125.99,3,21,11,0)

	;;=text description of the problem only, when adding or editing a problem.

	;;^DD(125.99,3,21,12,0)

	;;=No search will be performed at that time on the CLU, and no link made

	;;^DD(125.99,3,21,13,0)

	;;=from the problem to an entry in the CLU.

	;;^DD(125.99,3,"DT")

	;;=2931102

	;;^DD(125.99,4,0)

	;;=DISPLAY ORDER^S^C:CHRONOLOGICAL;R:REVERSE-CHRONOLOGICAL;^0;5^Q

	;;^DD(125.99,4,3)

	;;=Enter the order in which the problems should be displayed for your site, according to the date each problem was recorded.

	;;^DD(125.99,4,21,0)

	;;=^^6^6^2940207^^^^

	;;^DD(125.99,4,21,1,0)

	;;=This flag allows each site to control how the problem list is displayed,

	;;^DD(125.99,4,21,2,0)

	;;=whether chronologically or reverse-chronologically by date recorded.

	;;^DD(125.99,4,21,3,0)

	;;=This ordering will be the same both onscreen and on the printed copy.

	;;^DD(125.99,4,21,4,0)

	;;=When new problems are added to a patient's list, they will be added as the

	;;^DD(125.99,4,21,5,0)

	;;=most recent problems, i.e. at the top of the list if reverse-chronological

	;;^DD(125.99,4,21,6,0)

	;;=or at the bottom if chronological.

	;;^DD(125.99,4,"DT")

	;;=2940207

GMPLI00C  ; ; 25-AUG-1994

 +1       ;;2.0;Problem List;;Aug 25, 1994

 +2        IF 'DIFQ(125.99)

               QUIT 

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT 

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT 

 +1       ;;^DD(125.99,3,21,9,0)

 +2       ;;=   

 +3       ;;^DD(125.99,3,21,10,0)

 +4       ;;=If this flag is set to NO, the user will be prompted for his/her free

 +5       ;;^DD(125.99,3,21,11,0)

 +6       ;;=text description of the problem only, when adding or editing a problem.

 +7       ;;^DD(125.99,3,21,12,0)

 +8       ;;=No search will be performed at that time on the CLU, and no link made

 +9       ;;^DD(125.99,3,21,13,0)

 +10      ;;=from the problem to an entry in the CLU.

 +11      ;;^DD(125.99,3,"DT")

 +12      ;;=2931102

 +13      ;;^DD(125.99,4,0)

 +14      ;;=DISPLAY ORDER^S^C:CHRONOLOGICAL;R:REVERSE-CHRONOLOGICAL;^0;5^Q

 +15      ;;^DD(125.99,4,3)

 +16      ;;=Enter the order in which the problems should be displayed for your site, according to the date each problem was recorded.

 +17      ;;^DD(125.99,4,21,0)

 +18      ;;=^^6^6^2940207^^^^

 +19      ;;^DD(125.99,4,21,1,0)

 +20      ;;=This flag allows each site to control how the problem list is displayed,

 +21      ;;^DD(125.99,4,21,2,0)

 +22      ;;=whether chronologically or reverse-chronologically by date recorded.

 +23      ;;^DD(125.99,4,21,3,0)

 +24      ;;=This ordering will be the same both onscreen and on the printed copy.

 +25      ;;^DD(125.99,4,21,4,0)

 +26      ;;=When new problems are added to a patient's list, they will be added as the

 +27      ;;^DD(125.99,4,21,5,0)

 +28      ;;=most recent problems, i.e. at the top of the list if reverse-chronological

 +29      ;;^DD(125.99,4,21,6,0)

 +30      ;;=or at the bottom if chronological.

 +31      ;;^DD(125.99,4,"DT")

 +32      ;;=2940207