WVLABLG2.m

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 ---WVLABLG2   1361     printed  Apr 23, 2025@19:01:38                                                                                                                                                                                                    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