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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMLRHL 1878 printed Nov 22, 2024@16:56:50 Page 2
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 ;
