PXRMUSAGE ; SLC/AGP - Routines for patient data source. ;Jun 30, 2025@12:31:34
;;2.0;CLINICAL REMINDERS;**45,87**;Feb 04, 2005;Build 35
;
;====================================
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
;; B Branching Logic
;; C CPRS
;; I Information Panel
;; L Reminder Patient List
;; O Reminder Order Checks
;; P Patient
;; R Reminder Reports
;; X Reminder Extracts
;; * All of the above, except 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
;;CI = Can be used in CPRS, and CPRS Information Panel
;;*I = Can be used in CPRS, Reminder Components (except Patient List,
;; and Order Checks), can be used in CPRS Information Panel
;;*P = Can be used in CPRS, Reminder Components (except Patient List,
;; and Order Checks)
;;* = 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 1884 printed May 25, 2026@11:53:16 Page 2
PXRMUSAGE ; SLC/AGP - Routines for patient data source. ;Jun 30, 2025@12:31:34
+1 ;;2.0;CLINICAL REMINDERS;**45,87**;Feb 04, 2005;Build 35
+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 ;; B Branching Logic
+7 ;; C CPRS
+8 ;; I Information Panel
+9 ;; L Reminder Patient List
+10 ;; O Reminder Order Checks
+11 ;; P Patient
+12 ;; R Reminder Reports
+13 ;; X Reminder Extracts
+14 ;; * All of the above, except L, O, and P.
+15 ;;
+16 ;; If the Usage field contains either a L or an O value the Reminder
+17 ;; definition will not be evalauted in CPRS no matter if the Usage field
+18 ;; contains C.
+19 ;;
+20 ;;Examples:
+21 ;;C = Can be used in CPRS
+22 ;;CL = Cannot be used in CPRS, can be used in Reminder List Rules
+23 ;;CO = Cannot be used in CPRS, can be used in Reminder Order Check Groups
+24 ;;CP = Can be used in CPRS
+25 ;;A = Can be used in CPRS, this value is used by Reminder Definitions used for
+26 ;; Business Logic
+27 ;;CI = Can be used in CPRS, and CPRS Information Panel
+28 ;;*I = Can be used in CPRS, Reminder Components (except Patient List,
+29 ;; and Order Checks), can be used in CPRS Information Panel
+30 ;;*P = Can be used in CPRS, Reminder Components (except Patient List,
+31 ;; and Order Checks)
+32 ;;* = Can be used in CPRS
+33 ;;
+34 ;;**End Text**
+35 QUIT
+36 ;
+37 ;====================================
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 ;
