PXRMLRHL.m

PXRMLRHL ; SLC/PJH - List Rule help. ;05/31/2006

 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21

 ;======================================================================

LOAD(SUB) ;

 ;If necessary load the help text into the ^TMP array.

 ;Check if the help text has already been loaded.

 I $D(^TMP(SUB,$J,"VALMCNT")) D  Q

 . S VALMCNT=^TMP(SUB,$J,"VALMCNT")

 ;

 N DONE,IND,LABEL,TEXT

 S LABEL=$S(SUB["LRM":"TX1",SUB["LRED":"TX2",1:"NOHLP")

 S DONE=0

 S VALMCNT=0

 F IND=1:1 Q:DONE  D

 . S TEXT=$P($T(@(LABEL_"+"_IND)),";;",2)

 . I TEXT="**End Text**" S DONE=1 Q

 . S VALMCNT=VALMCNT+1,^TMP(SUB,$J,VALMCNT,0)=TEXT

 S ^TMP(SUB,$J,"VALMCNT")=VALMCNT

 Q

 ;

TX1 ;Help Text

 ;;The following actions are available:

 ;;

 ;;CV  Change View

 ;;    Toggle view between different rule types

 ;;    - Finding Rules (based on Reminder Terms)

 ;;    - Patient List Rules (based on existing Patient Lists)

 ;;    - Reminder Rules (based on reminder definitions)

 ;;    - Rule Sets (containing Finding Rules and Patient List Rules)

 ;;

 ;;CR  Create Rule

 ;;    Create a list rule of the type currently displayed. Finding Rules

 ;;    and Patient List Rules must be created before a Rule Set may be

 ;;    created. 

 ;;

 ;;DR  Display/Edit Rule

 ;;    Display or edit an existing list rule. Only local list rules may

 ;;    be edited.

 ;;

 ;;TEST (Available only for rule sets)

 ;;    Shows how the rule set will be evaluated based on the user's

 ;;    input of list build beginning and ending dates.

 ;;

 ;;QU  Quit

 ;;**End Text**

 ;

 ;

TX2 ;Help Text

 ;;The following actions are available:

 ;;

 ;;ED  Edit Rule

 ;;    Edit a list rule.

 ;;

 ;;QU  Quit

 ;;**End Text**

 Q

 ;

 ;======================================================================

NOHLP ;Help text

 ;;

 ;;No Help Text Available

 ;;

 ;;**End Text**

 Q

 ;

PXRMLRHL  ; SLC/PJH - List Rule help. ;05/31/2006

 +1       ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21

 +2       ;======================================================================

LOAD(SUB) ;

 +1       ;If necessary load the help text into the ^TMP array.

 +2       ;Check if the help text has already been loaded.

 +3        IF $DATA(^TMP(SUB,$JOB,"VALMCNT"))

               Begin DoDot:1

 +4                SET VALMCNT=^TMP(SUB,$JOB,"VALMCNT")

               End DoDot:1

               QUIT 

 +5       ;

 +6        NEW DONE,IND,LABEL,TEXT

 +7        SET LABEL=$SELECT(SUB["LRM":"TX1",SUB["LRED":"TX2",1:"NOHLP")

 +8        SET DONE=0

 +9        SET VALMCNT=0

 +10       FOR IND=1:1

               IF DONE

                   QUIT 

               Begin DoDot:1

 +11               SET TEXT=$PIECE($TEXT(@(LABEL_"+"_IND)),";;",2)

 +12               IF TEXT="**End Text**"

                       SET DONE=1

                       QUIT 

 +13               SET VALMCNT=VALMCNT+1

                   SET ^TMP(SUB,$JOB,VALMCNT,0)=TEXT

               End DoDot:1

 +14       SET ^TMP(SUB,$JOB,"VALMCNT")=VALMCNT

 +15       QUIT 

 +16      ;

TX1       ;Help Text

 +1       ;;The following actions are available:

 +2       ;;

 +3       ;;CV  Change View

 +4       ;;    Toggle view between different rule types

 +5       ;;    - Finding Rules (based on Reminder Terms)

 +6       ;;    - Patient List Rules (based on existing Patient Lists)

 +7       ;;    - Reminder Rules (based on reminder definitions)

 +8       ;;    - Rule Sets (containing Finding Rules and Patient List Rules)

 +9       ;;

 +10      ;;CR  Create Rule

 +11      ;;    Create a list rule of the type currently displayed. Finding Rules

 +12      ;;    and Patient List Rules must be created before a Rule Set may be

 +13      ;;    created. 

 +14      ;;

 +15      ;;DR  Display/Edit Rule

 +16      ;;    Display or edit an existing list rule. Only local list rules may

 +17      ;;    be edited.

 +18      ;;

 +19      ;;TEST (Available only for rule sets)

 +20      ;;    Shows how the rule set will be evaluated based on the user's

 +21      ;;    input of list build beginning and ending dates.

 +22      ;;

 +23      ;;QU  Quit

 +24      ;;**End Text**

 +25      ;

 +26      ;

TX2       ;Help Text

 +1       ;;The following actions are available:

 +2       ;;

 +3       ;;ED  Edit Rule

 +4       ;;    Edit a list rule.

 +5       ;;

 +6       ;;QU  Quit

 +7       ;;**End Text**

 +8        QUIT 

 +9       ;

 +10      ;======================================================================

NOHLP     ;Help text

 +1       ;;

 +2       ;;No Help Text Available

 +3       ;;

 +4       ;;**End Text**

 +5        QUIT 

 +6       ;