- 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 ---[H[J[2J[HPXRMUSAGE 1513 printed Dec 13, 2024@01:49:43 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 ;