WVLABLG2 ;HCIOFO/FT IHS/ANMC/MWR - DISPLAY LAB LOG; ;8/19/98 15:43
;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; HELP PROMPTS FOR DISPLAYING LAB LOG. CALLED BY WVLABLG.
;
HELP1 ;EP
;;Answer "ALL" to display ALL Procedures for the selected date range.
;;Answer "NO" to display only those Procedures that at this time
;;have NO RESULTS, within the selected date range.
S WVTAB=5,WVLINL="HELP1" D HELPTX
Q
;
HELP2 ;EP
;;Answer "EACH" to display the data for each individual Procedure,
;;in other words, show date, accession#, name, chart#, provider, etc.
;;Answer "TOTALS" to display only the total counts, in other words,
;;show only the number procedures with no results and the total
;;number of procedures (for the selected date range).
S WVTAB=5,WVLINL="HELP2" D HELPTX
Q
;
HELP3 ;EP
;;Answer "ACCESSION#" to display Procedures in order of ACCESSION#,
;;in other words, earliest ACCESSION# first.
;;Answer "PATIENT NAME" to display Procedures alphabetically by
;;patient name.
S WVTAB=5,WVLINL="HELP3" D HELPTX
Q
;
HELPTX ;EP
;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: WVTAB,WVLINL.
N I,T,X S T="" F I=1:1:WVTAB S T=T_" "
F I=1:1 S X=$T(@WVLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HWVLABLG2 1361 printed Dec 13, 2024@02:47:07 Page 2
WVLABLG2 ;HCIOFO/FT IHS/ANMC/MWR - DISPLAY LAB LOG; ;8/19/98 15:43
+1 ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; HELP PROMPTS FOR DISPLAYING LAB LOG. CALLED BY WVLABLG.
+4 ;
HELP1 ;EP
+1 ;;Answer "ALL" to display ALL Procedures for the selected date range.
+2 ;;Answer "NO" to display only those Procedures that at this time
+3 ;;have NO RESULTS, within the selected date range.
+4 SET WVTAB=5
SET WVLINL="HELP1"
DO HELPTX
+5 QUIT
+6 ;
HELP2 ;EP
+1 ;;Answer "EACH" to display the data for each individual Procedure,
+2 ;;in other words, show date, accession#, name, chart#, provider, etc.
+3 ;;Answer "TOTALS" to display only the total counts, in other words,
+4 ;;show only the number procedures with no results and the total
+5 ;;number of procedures (for the selected date range).
+6 SET WVTAB=5
SET WVLINL="HELP2"
DO HELPTX
+7 QUIT
+8 ;
HELP3 ;EP
+1 ;;Answer "ACCESSION#" to display Procedures in order of ACCESSION#,
+2 ;;in other words, earliest ACCESSION# first.
+3 ;;Answer "PATIENT NAME" to display Procedures alphabetically by
+4 ;;patient name.
+5 SET WVTAB=5
SET WVLINL="HELP3"
DO HELPTX
+6 QUIT
+7 ;
HELPTX ;EP
+1 ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: WVTAB,WVLINL.
+2 NEW I,T,X
SET T=""
FOR I=1:1:WVTAB
SET T=T_" "
+3 FOR I=1:1
SET X=$TEXT(@WVLINL+I)
if X'[";;"
QUIT
SET DIR("?",I)=T_$PIECE(X,";;",2)
+4 SET DIR("?")=DIR("?",I-1)
KILL DIR("?",I-1)
+5 QUIT
