WVBRPCD3 ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE PROCEDURES; ;8/10/98 16:12
;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; HELP PROMPTS FOR BROWSING PROCEDURES. CALLED BY BRBRPCD.
;
HELP1 ;EP
;;Procedures with a result of "ABNORMAL" require further follow-up
;;and diagnosis. Procedures with a result of "NORMAL" require a
;;letter of notification to be sent to the patient.
;;
;;Enter "A" to see only Procedures with ABNORMAL results.
;; (Selecting ABNORMAL will include procedures with a result of
;; INSUFFICIENT TISSUE and procedures with no result entered yet.)
;;
;;Enter "B" to see BOTH ABNORMAL and NORMAL results.
;; (Selecting NORMAL will include procedures with a result of
;; ERROR/DISREGARD.)
S WVTAB=5,WVLINL="HELP1" D HELPTX
Q
;
HELP2 ;EP
;;Answer "ONE" to browse Procedures for ONE particular patient.
;;Answer "ALL" to browse Procedures for ALL patients.
S WVTAB=5,WVLINL="HELP2" D HELPTX
Q
;
HELP3 ;EP
;;Enter "DATE" to list Procedures in chronological order beginning
;; with the oldest first.
;;Enter "NAME" to list Procedures by Patient Name in alphabetical
;; order.
;;Enter "PRIORITY" to list Procedures by degree of urgency of the
;; Result/Diagnosis, beginning with the most urgent first.
S WVTAB=5,WVLINL="HELP3" D HELPTX
Q
;
HELP4 ;EP
;;"DELINQUENT Procedures" are OPEN Procedures that have remained
;; open past the date they were due to be closed (as determined by
;; the "COMPLETE BY (DATE)" field in the Edit Procedure screen).
;;
;;"OPEN Procedures" are any Procedures that have not yet been closed.
;; (DELINQUENT and NEW Procedures will be included.)
;;
;;"ALL Procedures" includes DELINQUENT, NEW, OPEN and CLOSED.
;; CLOSED Procedures are ones that have been brought to closure;
;; in other words, a final diagnosis has been entered, the
;; procedure has been completed, and the patient has been notified.
S WVTAB=5,WVLINL="HELP4" D HELPTX
Q
;
HELP5 ;EP
;;Answer "ONE" to browse Procedures for ONE particular Case Manager.
;;Answer "ALL" to browse Procedures for ALL Case Managers.
S WVTAB=5,WVLINL="HELP5" 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[HWVBRPCD3 2489 printed Dec 13, 2024@02:46:51 Page 2
WVBRPCD3 ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE PROCEDURES; ;8/10/98 16:12
+1 ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; HELP PROMPTS FOR BROWSING PROCEDURES. CALLED BY BRBRPCD.
+4 ;
HELP1 ;EP
+1 ;;Procedures with a result of "ABNORMAL" require further follow-up
+2 ;;and diagnosis. Procedures with a result of "NORMAL" require a
+3 ;;letter of notification to be sent to the patient.
+4 ;;
+5 ;;Enter "A" to see only Procedures with ABNORMAL results.
+6 ;; (Selecting ABNORMAL will include procedures with a result of
+7 ;; INSUFFICIENT TISSUE and procedures with no result entered yet.)
+8 ;;
+9 ;;Enter "B" to see BOTH ABNORMAL and NORMAL results.
+10 ;; (Selecting NORMAL will include procedures with a result of
+11 ;; ERROR/DISREGARD.)
+12 SET WVTAB=5
SET WVLINL="HELP1"
DO HELPTX
+13 QUIT
+14 ;
HELP2 ;EP
+1 ;;Answer "ONE" to browse Procedures for ONE particular patient.
+2 ;;Answer "ALL" to browse Procedures for ALL patients.
+3 SET WVTAB=5
SET WVLINL="HELP2"
DO HELPTX
+4 QUIT
+5 ;
HELP3 ;EP
+1 ;;Enter "DATE" to list Procedures in chronological order beginning
+2 ;; with the oldest first.
+3 ;;Enter "NAME" to list Procedures by Patient Name in alphabetical
+4 ;; order.
+5 ;;Enter "PRIORITY" to list Procedures by degree of urgency of the
+6 ;; Result/Diagnosis, beginning with the most urgent first.
+7 SET WVTAB=5
SET WVLINL="HELP3"
DO HELPTX
+8 QUIT
+9 ;
HELP4 ;EP
+1 ;;"DELINQUENT Procedures" are OPEN Procedures that have remained
+2 ;; open past the date they were due to be closed (as determined by
+3 ;; the "COMPLETE BY (DATE)" field in the Edit Procedure screen).
+4 ;;
+5 ;;"OPEN Procedures" are any Procedures that have not yet been closed.
+6 ;; (DELINQUENT and NEW Procedures will be included.)
+7 ;;
+8 ;;"ALL Procedures" includes DELINQUENT, NEW, OPEN and CLOSED.
+9 ;; CLOSED Procedures are ones that have been brought to closure;
+10 ;; in other words, a final diagnosis has been entered, the
+11 ;; procedure has been completed, and the patient has been notified.
+12 SET WVTAB=5
SET WVLINL="HELP4"
DO HELPTX
+13 QUIT
+14 ;
HELP5 ;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="HELP5"
DO HELPTX
+4 QUIT
+5 ;
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
