PXRMUSAGE.m

PXRMUSAGE ; SLC/AGP - Routines for patient data source. ;11/19/2019

 ;;2.0;CLINICAL REMINDERS;**45**;Feb 04, 2005;Build 566

 ;

 ;====================================

HUSAGE ;Usage field executable help text.

 ;;This is a free text field and can contain any combination of the

 ;;following codes:

 ;;

 ;;    Code   Usage

 ;;     A     Action

 ;;     C     CPRS

 ;;     L     Reminder Patient List

 ;;     O     Reminder Order Checks

 ;;     P     Patient

 ;;     R     Reminder Reports

 ;;     X     Reminder Extracts

 ;;     *     All of the above, excpet L, O, and P.

 ;;

 ;; If the Usage field contains either a L or an O value the Reminder

 ;; definition will not be evalauted in CPRS no matter if the Usage field

 ;; contains C.

 ;;

 ;;Examples:

 ;;C  = Can be used in CPRS

 ;;CL = Cannot be used in CPRS, can be used in Reminder List Rules

 ;;CO = Cannot be used in CPRS, can be used in Reminder Order Check Groups

 ;;CP = Can be used in CPRS

 ;;A  = Can be used in CPRS, this value is used by Reminder Definitions used for

 ;;     Business Logic

 ;;*  = Can be used in CPRS

 ;;

 ;;**End Text**

 Q

 ;

 ;====================================

USAGEXHELP ;Taxonomy field Patient Data Source executable help.

 N DONE,DIR0,IND,TEXT

 S DONE=0

 F IND=1:1 Q:DONE  D

 . S TEXT(IND)=$P($T(HUSAGE+IND),";",3)

 . I TEXT(IND)="**End Text**" K TEXT(IND) S DONE=1 Q

 D BROWSE^DDBR("TEXT","NR","Usage Help")

 I $D(DDS) D REFRESH^DDSUTL S DY=IOSL-7,DX=0 X IOXY S $Y=DY,$X=DX

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMUSAGE   1513     printed  Apr 09, 2024@20:50:28                                                                                                                                                                                                   Page 2

PXRMUSAGE ; SLC/AGP - Routines for patient data source. ;11/19/2019

 +1       ;;2.0;CLINICAL REMINDERS;**45**;Feb 04, 2005;Build 566

 +2       ;

 +3       ;====================================

HUSAGE    ;Usage field executable help text.

 +1       ;;This is a free text field and can contain any combination of the

 +2       ;;following codes:

 +3       ;;

 +4       ;;    Code   Usage

 +5       ;;     A     Action

 +6       ;;     C     CPRS

 +7       ;;     L     Reminder Patient List

 +8       ;;     O     Reminder Order Checks

 +9       ;;     P     Patient

 +10      ;;     R     Reminder Reports

 +11      ;;     X     Reminder Extracts

 +12      ;;     *     All of the above, excpet L, O, and P.

 +13      ;;

 +14      ;; If the Usage field contains either a L or an O value the Reminder

 +15      ;; definition will not be evalauted in CPRS no matter if the Usage field

 +16      ;; contains C.

 +17      ;;

 +18      ;;Examples:

 +19      ;;C  = Can be used in CPRS

 +20      ;;CL = Cannot be used in CPRS, can be used in Reminder List Rules

 +21      ;;CO = Cannot be used in CPRS, can be used in Reminder Order Check Groups

 +22      ;;CP = Can be used in CPRS

 +23      ;;A  = Can be used in CPRS, this value is used by Reminder Definitions used for

 +24      ;;     Business Logic

 +25      ;;*  = Can be used in CPRS

 +26      ;;

 +27      ;;**End Text**

 +28       QUIT 

 +29      ;

 +30      ;====================================

USAGEXHELP ;Taxonomy field Patient Data Source executable help.

 +1        NEW DONE,DIR0,IND,TEXT

 +2        SET DONE=0

 +3        FOR IND=1:1

               if DONE

                   QUIT 

               Begin DoDot:1

 +4                SET TEXT(IND)=$PIECE($TEXT(HUSAGE+IND),";",3)

 +5                IF TEXT(IND)="**End Text**"

                       KILL TEXT(IND)

                       SET DONE=1

                       QUIT 

               End DoDot:1

 +6        DO BROWSE^DDBR("TEXT","NR","Usage Help")

 +7        IF $DATA(DDS)

               DO REFRESH^DDSUTL

               SET DY=IOSL-7

               SET DX=0

               XECUTE IOXY

               SET $Y=DY

               SET $X=DX

 +8        QUIT 

 +9       ;