source: WorldVistAEHR/trunk/r/WOMENS_HEALTH-WV/WVLABLG2.m

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1WVLABLG2 ;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 ;
6HELP1 ;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 ;
13HELP2 ;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 ;
22HELP3 ;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 ;
30HELPTX ;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
Note: See TracBrowser for help on using the repository browser.