source: WorldVistAEHR/trunk/r/WOMENS_HEALTH-WV/WVBRNEDH.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1WVBRNEDH ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE TX NEEDS PAST DUE;
2 ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
3 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
4 ;; HELP TEXT FOR SELECTING CRITERIA WHEN BROWSING TX NEEDS.
5 ;; CALLED BY WVBRNED.
6 ;
7HELP1 ;EP
8 ;;Answer "YES" to include in the report those patients whose
9 ;;Breast or Cervical Treatment Needs are undetermined.
10 ;;Answer "NO" to report only those patients whose Breast and
11 ;;Cervical Treatment Needs are known and past their due dates.
12 S WVTAB=5,WVLINL="HELP1" D HELPTX
13 Q
14 ;
15HELP2 ;EP
16 ;;Answer "DATE DELINQUENT" to display Procedures in order of
17 ;;DATE DELINQUENT in other words, earliest DATE first.
18 ;;Answer "PATIENT NAME" to display Procedures alphabetically by
19 ;;patient name.
20 S WVTAB=5,WVLINL="HELP2" D HELPTX
21 Q
22 ;
23HELP3 ;EP
24 ;;Answer "ONE" to browse Procedures for ONE particular Case Manager.
25 ;;Answer "ALL" to browse Procedures for ALL Case Managers.
26 S WVTAB=5,WVLINL="HELP3" D HELPTX
27 Q
28 ;
29HELP4 ;EP
30 ;;The date you select will be the date against which patients' Tx Needs
31 ;;Due Dates will be checked. If you choose a date in the future,
32 ;;patients with Tx Needs past due on that future date will be included
33 ;;in the report. Choosing a future date in this report may be of help
34 ;;in anticipating which patients' Tx Needs are about to become past due
35 ;;before they actually become delinquent.
36 S WVTAB=5,WVLINL="HELP4" D HELPTX
37 Q
38 ;
39HELPTX ;EP
40 ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: WVTAB,WVLINL.
41 N I,T,X S T=$$REPEAT^XLFSTR(" ",WVTAB)
42 F I=1:1 S X=$T(@WVLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
43 S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
44 Q
Note: See TracBrowser for help on using the repository browser.