- 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 ---[H[J[2J[HWVBRNEDH 1701 printed Feb 19, 2025@00:13: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