- BWBRPCD3 ;IHS/ANMC/MWR - BROWSE PROCEDURES;15-Feb-2003 21:49;PLS
- ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
- ;;* 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 BWTAB=5,BWLINL="HELP1" D HELPTX
- Q
- ;
- HELP2 ;EP
- ;;Answer "ONE" to browse Procedures for ONE particular patient.
- ;;Answer "ALL" to browse Procedures for ALL patients.
- S BWTAB=5,BWLINL="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, beginning
- ;; with the most urgent first.
- S BWTAB=5,BWLINL="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).
- ;;
- ;;"NEW Procedures" are ones that have had lab results downloaded
- ;; into them, but have not yet been reviewed by a Case Manager.
- ;;
- ;;"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 BWTAB=5,BWLINL="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 BWTAB=5,BWLINL="HELP5" D HELPTX
- Q
- ;
- HELPTX ;EP
- ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: BWTAB,BWLINL.
- N I,T,X S T="" F I=1:1:BWTAB S T=T_" "
- F I=1:1 S X=$T(@BWLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
- S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
- Q
- BWBRPCD3 ;IHS/ANMC/MWR - BROWSE PROCEDURES;15-Feb-2003 21:49;PLS
- +1 ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
- +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 BWTAB=5
- SET BWLINL="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 BWTAB=5
- SET BWLINL="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, beginning
- +6 ;; with the most urgent first.
- +7 SET BWTAB=5
- SET BWLINL="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 ;;"NEW Procedures" are ones that have had lab results downloaded
- +6 ;; into them, but have not yet been reviewed by a Case Manager.
- +7 ;;
- +8 ;;"OPEN Procedures" are any Procedures that have not yet been closed.
- +9 ;; (DELINQUENT and NEW Procedures will be included.)
- +10 ;;
- +11 ;;"ALL Procedures" includes DELINQUENT, NEW, OPEN and CLOSED.
- +12 ;; CLOSED Procedures are ones that have been brought to closure;
- +13 ;; in other words, a final diagnosis has been entered, the
- +14 ;; procedure has been completed, and the patient has been notified.
- +15 SET BWTAB=5
- SET BWLINL="HELP4"
- DO HELPTX
- +16 QUIT
- +17 ;
- 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 BWTAB=5
- SET BWLINL="HELP5"
- DO HELPTX
- +4 QUIT
- +5 ;
- HELPTX ;EP
- +1 ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: BWTAB,BWLINL.
- +2 NEW I,T,X
- SET T=""
- FOR I=1:1:BWTAB
- SET T=T_" "
- +3 FOR I=1:1
- SET X=$TEXT(@BWLINL+I)
- IF X'[";;"
- QUIT
- SET DIR("?",I)=T_$PIECE(X,";;",2)
- +4 SET DIR("?")=DIR("?",I-1)
- KILL DIR("?",I-1)
- +5 QUIT