| [613] | 1 | PXRMEXDH ; SLC/PJH - Reminder Exchange Dialog help. ;01/25/2001
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | ; Entry action for list PXRM EX DIALOG HELP
|
|---|
| 5 | ;
|
|---|
| 6 | LOAD N DONE,IND,TEXT
|
|---|
| 7 | S DONE=0
|
|---|
| 8 | K ^TMP("PXRMEXDH",$J)
|
|---|
| 9 | S VALMCNT=0
|
|---|
| 10 | F IND=1:1 Q:DONE D
|
|---|
| 11 | . S TEXT=$P($T(@PXRMTAG+IND),";",3)
|
|---|
| 12 | . I TEXT="**End Text**" S DONE=1 Q
|
|---|
| 13 | . S VALMCNT=VALMCNT+1
|
|---|
| 14 | . S ^TMP("PXRMEXDH",$J,VALMCNT,0)=TEXT
|
|---|
| 15 | S ^TMP("PXRMEXDH",$J,"VALMCNT")=VALMCNT
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | DLG ;Dialog Help text
|
|---|
| 19 | ;;The following actions are available:
|
|---|
| 20 | ;;
|
|---|
| 21 | ;;DD Dialog Details
|
|---|
| 22 | ;; Display all dialog component names for this reminder dialog.
|
|---|
| 23 | ;; (Include PXRM type additional prompts and forced values.)
|
|---|
| 24 | ;;
|
|---|
| 25 | ;;DF Dialog Findings
|
|---|
| 26 | ;; Display the finding items associated with the dialog and
|
|---|
| 27 | ;; show if the finding already exists.
|
|---|
| 28 | ;;
|
|---|
| 29 | ;;DS Dialog Summary (default)
|
|---|
| 30 | ;; Display dialog component names for this reminder dialog.
|
|---|
| 31 | ;; (Exclude PXRM type additional prompts and forced values.)
|
|---|
| 32 | ;;
|
|---|
| 33 | ;;DT Dialog Text
|
|---|
| 34 | ;; Display the dialog text as it should appear in CPRS.
|
|---|
| 35 | ;;
|
|---|
| 36 | ;;DU Dialog Usage
|
|---|
| 37 | ;; If components of the reminder dialog already exists display
|
|---|
| 38 | ;; any other reminder dialogs and groups also use these components.
|
|---|
| 39 | ;;
|
|---|
| 40 | ;;IA Install All
|
|---|
| 41 | ;; Install the reminder dialog and all its components. The reminder
|
|---|
| 42 | ;; dialog may also be selected by entering the item number '1'.
|
|---|
| 43 | ;;
|
|---|
| 44 | ;;IS Install Selected
|
|---|
| 45 | ;; Install selected components from this reminder dialog. The
|
|---|
| 46 | ;; individual components may also be selected by entering an
|
|---|
| 47 | ;; item number.
|
|---|
| 48 | ;;
|
|---|
| 49 | ;;QU Quit
|
|---|
| 50 | ;;**End Text**
|
|---|
