PXRMEXDH.m

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 ---PXRMEXDH   1618     printed  Apr 09, 2024@20:50:29                                                                                                                                                                                                    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**