| [613] | 1 | WVBRPCD3 ;HCIOFO/FT,JR IHS/ANMC/MWR - BROWSE PROCEDURES; ;8/10/98 16:12
|
|---|
| 2 | ;;1.0;WOMEN'S HEALTH;;Sep 30, 1998
|
|---|
| 3 | ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
|
|---|
| 4 | ;; HELP PROMPTS FOR BROWSING PROCEDURES. CALLED BY BRBRPCD.
|
|---|
| 5 | ;
|
|---|
| 6 | HELP1 ;EP
|
|---|
| 7 | ;;Procedures with a result of "ABNORMAL" require further follow-up
|
|---|
| 8 | ;;and diagnosis. Procedures with a result of "NORMAL" require a
|
|---|
| 9 | ;;letter of notification to be sent to the patient.
|
|---|
| 10 | ;;
|
|---|
| 11 | ;;Enter "A" to see only Procedures with ABNORMAL results.
|
|---|
| 12 | ;; (Selecting ABNORMAL will include procedures with a result of
|
|---|
| 13 | ;; INSUFFICIENT TISSUE and procedures with no result entered yet.)
|
|---|
| 14 | ;;
|
|---|
| 15 | ;;Enter "B" to see BOTH ABNORMAL and NORMAL results.
|
|---|
| 16 | ;; (Selecting NORMAL will include procedures with a result of
|
|---|
| 17 | ;; ERROR/DISREGARD.)
|
|---|
| 18 | S WVTAB=5,WVLINL="HELP1" D HELPTX
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | HELP2 ;EP
|
|---|
| 22 | ;;Answer "ONE" to browse Procedures for ONE particular patient.
|
|---|
| 23 | ;;Answer "ALL" to browse Procedures for ALL patients.
|
|---|
| 24 | S WVTAB=5,WVLINL="HELP2" D HELPTX
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | HELP3 ;EP
|
|---|
| 28 | ;;Enter "DATE" to list Procedures in chronological order beginning
|
|---|
| 29 | ;; with the oldest first.
|
|---|
| 30 | ;;Enter "NAME" to list Procedures by Patient Name in alphabetical
|
|---|
| 31 | ;; order.
|
|---|
| 32 | ;;Enter "PRIORITY" to list Procedures by degree of urgency of the
|
|---|
| 33 | ;; Result/Diagnosis, beginning with the most urgent first.
|
|---|
| 34 | S WVTAB=5,WVLINL="HELP3" D HELPTX
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | HELP4 ;EP
|
|---|
| 38 | ;;"DELINQUENT Procedures" are OPEN Procedures that have remained
|
|---|
| 39 | ;; open past the date they were due to be closed (as determined by
|
|---|
| 40 | ;; the "COMPLETE BY (DATE)" field in the Edit Procedure screen).
|
|---|
| 41 | ;;
|
|---|
| 42 | ;;"OPEN Procedures" are any Procedures that have not yet been closed.
|
|---|
| 43 | ;; (DELINQUENT and NEW Procedures will be included.)
|
|---|
| 44 | ;;
|
|---|
| 45 | ;;"ALL Procedures" includes DELINQUENT, NEW, OPEN and CLOSED.
|
|---|
| 46 | ;; CLOSED Procedures are ones that have been brought to closure;
|
|---|
| 47 | ;; in other words, a final diagnosis has been entered, the
|
|---|
| 48 | ;; procedure has been completed, and the patient has been notified.
|
|---|
| 49 | S WVTAB=5,WVLINL="HELP4" D HELPTX
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | HELP5 ;EP
|
|---|
| 53 | ;;Answer "ONE" to browse Procedures for ONE particular Case Manager.
|
|---|
| 54 | ;;Answer "ALL" to browse Procedures for ALL Case Managers.
|
|---|
| 55 | S WVTAB=5,WVLINL="HELP5" D HELPTX
|
|---|
| 56 | Q
|
|---|
| 57 | ;
|
|---|
| 58 | HELPTX ;EP
|
|---|
| 59 | ;---> CREATES DIR ARRAY FOR DIR. REQUIRED VARIABLES: WVTAB,WVLINL.
|
|---|
| 60 | N I,T,X S T=$$REPEAT^XLFSTR(" ",WVTAB)
|
|---|
| 61 | F I=1:1 S X=$T(@WVLINL+I) Q:X'[";;" S DIR("?",I)=T_$P(X,";;",2)
|
|---|
| 62 | S DIR("?")=DIR("?",I-1) K DIR("?",I-1)
|
|---|
| 63 | Q
|
|---|
