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 Oct 16, 2024@17:50:33 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 ;
