PXRMEXDH ; SLC/PJH - Reminder Exchange Dialog help. ;01/25/2001
;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
;
; Entry action for list PXRM EX DIALOG HELP
;
LOAD N DONE,IND,TEXT
S DONE=0
K ^TMP("PXRMEXDH",$J)
S VALMCNT=0
F IND=1:1 Q:DONE D
. S TEXT=$P($T(@PXRMTAG+IND),";",3)
. I TEXT="**End Text**" S DONE=1 Q
. S VALMCNT=VALMCNT+1
. S ^TMP("PXRMEXDH",$J,VALMCNT,0)=TEXT
S ^TMP("PXRMEXDH",$J,"VALMCNT")=VALMCNT
Q
;
DLG ;Dialog Help text
;;The following actions are available:
;;
;;DD Dialog Details
;; Display all dialog component names for this reminder dialog.
;; (Include PXRM type additional prompts and forced values.)
;;
;;DF Dialog Findings
;; Display the finding items associated with the dialog and
;; show if the finding already exists.
;;
;;DS Dialog Summary (default)
;; Display dialog component names for this reminder dialog.
;; (Exclude PXRM type additional prompts and forced values.)
;;
;;DT Dialog Text
;; Display the dialog text as it should appear in CPRS.
;;
;;DU Dialog Usage
;; If components of the reminder dialog already exists display
;; any other reminder dialogs and groups also use these components.
;;
;;IA Install All
;; Install the reminder dialog and all its components. The reminder
;; dialog may also be selected by entering the item number '1'.
;;
;;IS Install Selected
;; Install selected components from this reminder dialog. The
;; individual components may also be selected by entering an
;; item number.
;;
;;QU Quit
;;**End Text**
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMEXDH 1618 printed Dec 13, 2024@01:44:54 Page 2
PXRMEXDH ; SLC/PJH - Reminder Exchange Dialog help. ;01/25/2001
+1 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
+2 ;
+3 ; Entry action for list PXRM EX DIALOG HELP
+4 ;
LOAD NEW DONE,IND,TEXT
+1 SET DONE=0
+2 KILL ^TMP("PXRMEXDH",$JOB)
+3 SET VALMCNT=0
+4 FOR IND=1:1
if DONE
QUIT
Begin DoDot:1
+5 SET TEXT=$PIECE($TEXT(@PXRMTAG+IND),";",3)
+6 IF TEXT="**End Text**"
SET DONE=1
QUIT
+7 SET VALMCNT=VALMCNT+1
+8 SET ^TMP("PXRMEXDH",$JOB,VALMCNT,0)=TEXT
End DoDot:1
+9 SET ^TMP("PXRMEXDH",$JOB,"VALMCNT")=VALMCNT
+10 QUIT
+11 ;
DLG ;Dialog Help text
+1 ;;The following actions are available:
+2 ;;
+3 ;;DD Dialog Details
+4 ;; Display all dialog component names for this reminder dialog.
+5 ;; (Include PXRM type additional prompts and forced values.)
+6 ;;
+7 ;;DF Dialog Findings
+8 ;; Display the finding items associated with the dialog and
+9 ;; show if the finding already exists.
+10 ;;
+11 ;;DS Dialog Summary (default)
+12 ;; Display dialog component names for this reminder dialog.
+13 ;; (Exclude PXRM type additional prompts and forced values.)
+14 ;;
+15 ;;DT Dialog Text
+16 ;; Display the dialog text as it should appear in CPRS.
+17 ;;
+18 ;;DU Dialog Usage
+19 ;; If components of the reminder dialog already exists display
+20 ;; any other reminder dialogs and groups also use these components.
+21 ;;
+22 ;;IA Install All
+23 ;; Install the reminder dialog and all its components. The reminder
+24 ;; dialog may also be selected by entering the item number '1'.
+25 ;;
+26 ;;IS Install Selected
+27 ;; Install selected components from this reminder dialog. The
+28 ;; individual components may also be selected by entering an
+29 ;; item number.
+30 ;;
+31 ;;QU Quit
+32 ;;**End Text**
