source: IHS-VA_UTILITIES-XB/trunk/XBHEDDH3.m@ 1745

Last change on this file since 1745 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 2.9 KB
Line 
1XBHEDDH3 ;402,DJB,10/23/91,EDD - Help Text - Field Global Location
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;;David Bolduc - Togus, ME
4 ;;Called by XBHEDD1
5 W @IOF
6 F I=1:1 S TEXT=$P($T(TXT+I),";;;",2) Q:TEXT="***" W !,TEXT I $Y>SIZE D PAGE Q:FLAGQ
7 I 'FLAGQ D ^XBHEDDH4
8EX ;
9 K TEXT I 'FLAGQ D PAUSE
10 Q
11TXT ;
12 ;;; INPUT EFFECT
13 ;;;==========================================================================
14 ;;;
15 ;;; 1. '^' Exit back to Main Menu.
16 ;;;
17 ;;; 2. 'B' Back up to previous screen.
18 ;;;
19 ;;; 3. 'n' Typing a number here allows you to jump to that screen.
20 ;;; In the lower right hand corner of the screen, you will
21 ;;; see 2 numbers: TOP and CUR. TOP is the highest screen
22 ;;; you have <RETURNED> to. CUR is the current screen you
23 ;;; are viewing. You can only jump between the first and TOP
24 ;;; screen. As an example, if you selected the 'Field Global
25 ;;; Location' option and then hit <RETURN> 6 times, TOP would
26 ;;; be equal to 6 and CUR would be equal to 6. Now you can jump
27 ;;; to any screen between 1 and 6. If you entered '2' and <RETURN>,
28 ;;; you would jump to screen 2. TOP would still be equal to 6 but
29 ;;; CUR would now be 2. If you then hit 'B' to back up 1 screen,
30 ;;; TOP would be 6 and CUR would be 1. If you now wanted to return
31 ;;; to TOP (screen 6), you would type a '6' and this page
32 ;;; would now be displayed. TOP and CUR would both be equal
33 ;;; to 6 again.
34 ;;;
35 ;;; 4. 'I' Allows you to zoom in on an individual field. It prompts you
36 ;;; for a field and then gives you the Individual Field Summary
37 ;;; for that field. When using 'I', you must start at the top
38 ;;; of the multiple. For example, if you were looking at the
39 ;;; Patient file and you had selected 'Admission Date' as the
40 ;;; starting point for Field Global Location and you <RETURNED>
41 ;;; thru 2 screens, you would see the field Treating Specialty.
42 ;;; To view the Individual Field Summary for this field you would
43 ;;; have to first select Admission Date and then Treating Specialty.
44 ;;; This is made easier by the design of the Field Global Location
45 ;;; screens. Each layer of multiple fields is preceeded by
46 ;;; dashes that indicated their level. You trace these dashes
47 ;;; back to locate the starting point for each layer. You can
48 ;;; also use the Trace a Field option.
49 ;;;***
50PAGE ;
51 R !!?2,"<RETURN> to continue, '^' to quit: ",XX:DTIME S:'$T XX="^" S:XX["^" FLAGQ=1 I FLAGQ Q
52 W @IOF Q
53PAUSE ;
54 I $Y<SIZE F I=1:1:(SIZE-$Y) W !
55 R !?2,"<RETURN> to continue..",XX:DTIME
56 Q
Note: See TracBrowser for help on using the repository browser.