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

WVBRNEDH.m

Go to the documentation of this file.
  1. WVBRNEDH ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE TX NEEDS PAST DUE;
  1. ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
  1. ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
  1. ;; HELP TEXT FOR SELECTING CRITERIA WHEN BROWSING TX NEEDS.
  1. ;; CALLED BY WVBRNED.
  1. ;
  1. HELP1 ;EP
  1. ;;Answer "YES" to include in the report those patients whose
  1. ;;Breast or Cervical Treatment Needs are undetermined.
  1. ;;Answer "NO" to report only those patients whose Breast and
  1. ;;Cervical Treatment Needs are known and past their due dates.
  1. S WVTAB=5,WVLINL="HELP1" D HELPTX
  1. Q
  1. ;
  1. HELP2 ;EP
  1. ;;Answer "DATE DELINQUENT" to display Procedures in order of
  1. ;;DATE DELINQUENT in other words, earliest DATE first.
  1. ;;Answer "PATIENT NAME" to display Procedures alphabetically by
  1. ;;patient name.
  1. S WVTAB=5,WVLINL="HELP2" D HELPTX
  1. Q
  1. ;
  1. HELP3 ;EP
  1. ;;Answer "ONE" to browse Procedures for ONE particular Case Manager.
  1. ;;Answer "ALL" to browse Procedures for ALL Case Managers.
  1. S WVTAB=5,WVLINL="HELP3" D HELPTX
  1. Q
  1. ;
  1. HELP4 ;EP
  1. ;;The date you select will be the date against which patients' Tx Needs
  1. ;;Due Dates will be checked. If you choose a date in the future,
  1. ;;patients with Tx Needs past due on that future date will be included
  1. ;;in the report. Choosing a future date in this report may be of help
  1. ;;in anticipating which patients' Tx Needs are about to become past due
  1. ;;before they actually become delinquent.
  1. S WVTAB=5,WVLINL="HELP4" D HELPTX
  1. Q
  1. ;
  1. HELPTX ;EP
  1. ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: WVTAB,WVLINL.
  1. N I,T,X S T=$$REPEAT^XLFSTR(" ",WVTAB)
  1. F I=1:1 S X=$T(@WVLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
  1. S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
  1. Q