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 Dec 13, 2024@02:46:44 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
