source: WorldVistAEHR/trunk/r/WOMENS_HEALTH-WV/WVBRPCD3.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1WVBRPCD3 ;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 ;
6HELP1 ;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 ;
21HELP2 ;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 ;
27HELP3 ;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 ;
37HELP4 ;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 ;
52HELP5 ;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 ;
58HELPTX ;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
Note: See TracBrowser for help on using the repository browser.