Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BWBRPCD3

BWBRPCD3.m

Go to the documentation of this file.
  1. BWBRPCD3 ;IHS/ANMC/MWR - BROWSE PROCEDURES;15-Feb-2003 21:49;PLS
  1. ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
  1. ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
  1. ;; HELP PROMPTS FOR BROWSING PROCEDURES. CALLED BY BRBRPCD.
  1. ;
  1. HELP1 ;EP
  1. ;;Procedures with a result of "ABNORMAL" require further follow-up
  1. ;;and diagnosis. Procedures with a result of "NORMAL" require a
  1. ;;letter of notification to be sent to the patient.
  1. ;;
  1. ;;Enter "A" to see only Procedures with ABNORMAL results.
  1. ;; (Selecting ABNORMAL will include procedures with a result of
  1. ;; INSUFFICIENT TISSUE and procedures with no result entered yet.)
  1. ;;
  1. ;;Enter "B" to see BOTH ABNORMAL and NORMAL results.
  1. ;; (Selecting NORMAL will include procedures with a result of
  1. ;; ERROR/DISREGARD.)
  1. S BWTAB=5,BWLINL="HELP1" D HELPTX
  1. Q
  1. ;
  1. HELP2 ;EP
  1. ;;Answer "ONE" to browse Procedures for ONE particular patient.
  1. ;;Answer "ALL" to browse Procedures for ALL patients.
  1. S BWTAB=5,BWLINL="HELP2" D HELPTX
  1. Q
  1. ;
  1. HELP3 ;EP
  1. ;;Enter "DATE" to list Procedures in chronological order beginning
  1. ;; with the oldest first.
  1. ;;Enter "NAME" to list Procedures by Patient Name in alphabetical
  1. ;; order.
  1. ;;Enter "PRIORITY" to list Procedures by degree of urgency, beginning
  1. ;; with the most urgent first.
  1. S BWTAB=5,BWLINL="HELP3" D HELPTX
  1. Q
  1. ;
  1. HELP4 ;EP
  1. ;;"DELINQUENT Procedures" are OPEN Procedures that have remained
  1. ;; open past the date they were due to be closed (as determined by
  1. ;; the "COMPLETE BY (DATE)" field in the Edit Procedure screen).
  1. ;;
  1. ;;"NEW Procedures" are ones that have had lab results downloaded
  1. ;; into them, but have not yet been reviewed by a Case Manager.
  1. ;;
  1. ;;"OPEN Procedures" are any Procedures that have not yet been closed.
  1. ;; (DELINQUENT and NEW Procedures will be included.)
  1. ;;
  1. ;;"ALL Procedures" includes DELINQUENT, NEW, OPEN and CLOSED.
  1. ;; CLOSED Procedures are ones that have been brought to closure;
  1. ;; in other words, a final diagnosis has been entered, the
  1. ;; procedure has been completed, and the patient has been notified.
  1. S BWTAB=5,BWLINL="HELP4" D HELPTX
  1. Q
  1. ;
  1. HELP5 ;EP
  1. ;;Answer "ONE" to browse Procedures for ONE particular Case Manager.
  1. ;;Answer "ALL" to browse Procedures for ALL Case Managers.
  1. S BWTAB=5,BWLINL="HELP5" D HELPTX
  1. Q
  1. ;
  1. HELPTX ;EP
  1. ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: BWTAB,BWLINL.
  1. N I,T,X S T="" F I=1:1:BWTAB S T=T_" "
  1. F I=1:1 S X=$T(@BWLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
  1. S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
  1. Q