Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMUSAGE

PXRMUSAGE.m

Go to the documentation of this file.
  1. PXRMUSAGE ; SLC/AGP - Routines for patient data source. ;11/19/2019
  1. ;;2.0;CLINICAL REMINDERS;**45**;Feb 04, 2005;Build 566
  1. ;
  1. ;====================================
  1. HUSAGE ;Usage field executable help text.
  1. ;;This is a free text field and can contain any combination of the
  1. ;;following codes:
  1. ;;
  1. ;; Code Usage
  1. ;; A Action
  1. ;; C CPRS
  1. ;; L Reminder Patient List
  1. ;; O Reminder Order Checks
  1. ;; P Patient
  1. ;; R Reminder Reports
  1. ;; X Reminder Extracts
  1. ;; * All of the above, excpet L, O, and P.
  1. ;;
  1. ;; If the Usage field contains either a L or an O value the Reminder
  1. ;; definition will not be evalauted in CPRS no matter if the Usage field
  1. ;; contains C.
  1. ;;
  1. ;;Examples:
  1. ;;C = Can be used in CPRS
  1. ;;CL = Cannot be used in CPRS, can be used in Reminder List Rules
  1. ;;CO = Cannot be used in CPRS, can be used in Reminder Order Check Groups
  1. ;;CP = Can be used in CPRS
  1. ;;A = Can be used in CPRS, this value is used by Reminder Definitions used for
  1. ;; Business Logic
  1. ;;* = Can be used in CPRS
  1. ;;
  1. ;;**End Text**
  1. Q
  1. ;
  1. ;====================================
  1. USAGEXHELP ;Taxonomy field Patient Data Source executable help.
  1. N DONE,DIR0,IND,TEXT
  1. S DONE=0
  1. F IND=1:1 Q:DONE D
  1. . S TEXT(IND)=$P($T(HUSAGE+IND),";",3)
  1. . I TEXT(IND)="**End Text**" K TEXT(IND) S DONE=1 Q
  1. D BROWSE^DDBR("TEXT","NR","Usage Help")
  1. I $D(DDS) D REFRESH^DDSUTL S DY=IOSL-7,DX=0 X IOXY S $Y=DY,$X=DX
  1. Q
  1. ;