| [613] | 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
|
|---|
