WVBRNEDH.m

WVBRNEDH ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE TX NEEDS PAST DUE;

 ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998

 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *

 ;;  HELP TEXT FOR SELECTING CRITERIA WHEN BROWSING TX NEEDS.

 ;;  CALLED BY WVBRNED.

 ;

HELP1 ;EP

 ;;Answer "YES" to include in the report those patients whose

 ;;Breast or Cervical Treatment Needs are undetermined.

 ;;Answer "NO" to report only those patients whose Breast and

 ;;Cervical Treatment Needs are known and past their due dates.

 S WVTAB=5,WVLINL="HELP1" D HELPTX

 Q

 ;

HELP2 ;EP

 ;;Answer "DATE DELINQUENT" to display Procedures in order of

 ;;DATE DELINQUENT in other words, earliest DATE first.

 ;;Answer "PATIENT NAME" to display Procedures alphabetically by

 ;;patient name.

 S WVTAB=5,WVLINL="HELP2" D HELPTX

 Q

 ;

HELP3 ;EP

 ;;Answer "ONE" to browse Procedures for ONE particular Case Manager.

 ;;Answer "ALL" to browse Procedures for ALL Case Managers.

 S WVTAB=5,WVLINL="HELP3" D HELPTX

 Q

 ;

HELP4 ;EP

 ;;The date you select will be the date against which patients' Tx Needs

 ;;Due Dates will be checked.  If you choose a date in the future,

 ;;patients with Tx Needs past due on that future date will be included

 ;;in the report.  Choosing a future date in this report may be of help

 ;;in anticipating which patients' Tx Needs are about to become past due

 ;;before they actually become delinquent.

 S WVTAB=5,WVLINL="HELP4" D HELPTX

 Q

 ;

HELPTX ;EP

 ;---> CREATES DIR ARRAY FOR DIR.  REQUIRED VARIABLES: WVTAB,WVLINL.

 N I,T,X S T=$$REPEAT^XLFSTR(" ",WVTAB)

 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 ---WVBRNEDH   1701     printed  Apr 09, 2024@21:49:12                                                                                                                                                                                                    Page 2

WVBRNEDH  ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE TX NEEDS PAST DUE;

 +1       ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998

 +2       ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *

 +3       ;;  HELP TEXT FOR SELECTING CRITERIA WHEN BROWSING TX NEEDS.

 +4       ;;  CALLED BY WVBRNED.

 +5       ;

HELP1     ;EP

 +1       ;;Answer "YES" to include in the report those patients whose

 +2       ;;Breast or Cervical Treatment Needs are undetermined.

 +3       ;;Answer "NO" to report only those patients whose Breast and

 +4       ;;Cervical Treatment Needs are known and past their due dates.

 +5        SET WVTAB=5

           SET WVLINL="HELP1"

           DO HELPTX

 +6        QUIT 

 +7       ;

HELP2     ;EP

 +1       ;;Answer "DATE DELINQUENT" to display Procedures in order of

 +2       ;;DATE DELINQUENT in other words, earliest DATE first.

 +3       ;;Answer "PATIENT NAME" to display Procedures alphabetically by

 +4       ;;patient name.

 +5        SET WVTAB=5

           SET WVLINL="HELP2"

           DO HELPTX

 +6        QUIT 

 +7       ;

HELP3     ;EP

 +1       ;;Answer "ONE" to browse Procedures for ONE particular Case Manager.

 +2       ;;Answer "ALL" to browse Procedures for ALL Case Managers.

 +3        SET WVTAB=5

           SET WVLINL="HELP3"

           DO HELPTX

 +4        QUIT 

 +5       ;

HELP4     ;EP

 +1       ;;The date you select will be the date against which patients' Tx Needs

 +2       ;;Due Dates will be checked.  If you choose a date in the future,

 +3       ;;patients with Tx Needs past due on that future date will be included

 +4       ;;in the report.  Choosing a future date in this report may be of help

 +5       ;;in anticipating which patients' Tx Needs are about to become past due

 +6       ;;before they actually become delinquent.

 +7        SET WVTAB=5

           SET WVLINL="HELP4"

           DO HELPTX

 +8        QUIT 

 +9       ;

HELPTX    ;EP

 +1       ;---> CREATES DIR ARRAY FOR DIR.  REQUIRED VARIABLES: WVTAB,WVLINL.

 +2        NEW I,T,X

           SET T=$$REPEAT^XLFSTR(" ",WVTAB)

 +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