source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMLRHL.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1PXRMLRHL ; SLC/PJH - List Rule help. ;05/31/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;======================================================================
4LOAD(SUB) ;
5 ;If necessary load the help text into the ^TMP array.
6 ;Check if the help text has already been loaded.
7 I $D(^TMP(SUB,$J,"VALMCNT")) D Q
8 . S VALMCNT=^TMP(SUB,$J,"VALMCNT")
9 ;
10 N DONE,IND,LABEL,TEXT
11 S LABEL=$S(SUB["LRM":"TX1",SUB["LRED":"TX2",1:"NOHLP")
12 S DONE=0
13 S VALMCNT=0
14 F IND=1:1 Q:DONE D
15 . S TEXT=$P($T(@(LABEL_"+"_IND)),";;",2)
16 . I TEXT="**End Text**" S DONE=1 Q
17 . S VALMCNT=VALMCNT+1,^TMP(SUB,$J,VALMCNT,0)=TEXT
18 S ^TMP(SUB,$J,"VALMCNT")=VALMCNT
19 Q
20 ;
21TX1 ;Help Text
22 ;;The following actions are available:
23 ;;
24 ;;CV Change View
25 ;; Toggle view between different rule types
26 ;; - Finding Rules (based on Reminder Terms)
27 ;; - Patient List Rules (based on existing Patient Lists)
28 ;; - Reminder Rules (based on reminder definitions)
29 ;; - Rule Sets (containing Finding Rules and Patient List Rules)
30 ;;
31 ;;CR Create Rule
32 ;; Create a list rule of the type currently displayed. Finding Rules
33 ;; and Patient List Rules must be created before a Rule Set may be
34 ;; created.
35 ;;
36 ;;DR Display/Edit Rule
37 ;; Display or edit an existing list rule. Only local list rules may
38 ;; be edited.
39 ;;
40 ;;TEST (Available only for rule sets)
41 ;; Shows how the rule set will be evaluated based on the user's
42 ;; input of list build beginning and ending dates.
43 ;;
44 ;;QU Quit
45 ;;**End Text**
46 ;
47 ;
48TX2 ;Help Text
49 ;;The following actions are available:
50 ;;
51 ;;ED Edit Rule
52 ;; Edit a list rule.
53 ;;
54 ;;QU Quit
55 ;;**End Text**
56 Q
57 ;
58 ;======================================================================
59NOHLP ;Help text
60 ;;
61 ;;No Help Text Available
62 ;;
63 ;;**End Text**
64 Q
65 ;
Note: See TracBrowser for help on using the repository browser.