1 | WVLABLG2 ;HCIOFO/FT IHS/ANMC/MWR - DISPLAY LAB LOG; ;8/19/98 15:43
|
---|
2 | ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
|
---|
3 | ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
|
---|
4 | ;; HELP PROMPTS FOR DISPLAYING LAB LOG. CALLED BY WVLABLG.
|
---|
5 | ;
|
---|
6 | HELP1 ;EP
|
---|
7 | ;;Answer "ALL" to display ALL Procedures for the selected date range.
|
---|
8 | ;;Answer "NO" to display only those Procedures that at this time
|
---|
9 | ;;have NO RESULTS, within the selected date range.
|
---|
10 | S WVTAB=5,WVLINL="HELP1" D HELPTX
|
---|
11 | Q
|
---|
12 | ;
|
---|
13 | HELP2 ;EP
|
---|
14 | ;;Answer "EACH" to display the data for each individual Procedure,
|
---|
15 | ;;in other words, show date, accession#, name, chart#, provider, etc.
|
---|
16 | ;;Answer "TOTALS" to display only the total counts, in other words,
|
---|
17 | ;;show only the number procedures with no results and the total
|
---|
18 | ;;number of procedures (for the selected date range).
|
---|
19 | S WVTAB=5,WVLINL="HELP2" D HELPTX
|
---|
20 | Q
|
---|
21 | ;
|
---|
22 | HELP3 ;EP
|
---|
23 | ;;Answer "ACCESSION#" to display Procedures in order of ACCESSION#,
|
---|
24 | ;;in other words, earliest ACCESSION# first.
|
---|
25 | ;;Answer "PATIENT NAME" to display Procedures alphabetically by
|
---|
26 | ;;patient name.
|
---|
27 | S WVTAB=5,WVLINL="HELP3" D HELPTX
|
---|
28 | Q
|
---|
29 | ;
|
---|
30 | HELPTX ;EP
|
---|
31 | ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: WVTAB,WVLINL.
|
---|
32 | N I,T,X S T="" F I=1:1:WVTAB S T=T_" "
|
---|
33 | F I=1:1 S X=$T(@WVLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
|
---|
34 | S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
|
---|
35 | Q
|
---|