XBHEDDH3.m

XBHEDDH3 ;402,DJB,10/23/91,EDD - Help Text - Field Global Location

 ;;2.6;IHS UTILITIES;;JUN 28, 1993

 ;;David Bolduc - Togus, ME

 ;;Called by XBHEDD1

 W @IOF

 F I=1:1 S TEXT=$P($T(TXT+I),";;;",2) Q:TEXT="***"  W !,TEXT I $Y>SIZE D PAGE Q:FLAGQ

 I 'FLAGQ D ^XBHEDDH4

EX ;

 K TEXT I 'FLAGQ D PAUSE

 Q

TXT ;

 ;;;     INPUT               EFFECT

 ;;;==========================================================================

 ;;;

 ;;;  1.   '^'      Exit back to Main Menu.

 ;;;

 ;;;  2.   'B'      Back up to previous screen.

 ;;;

 ;;;  3.   'n'      Typing a number here allows you to jump to that screen.

 ;;;                In the lower right hand corner of the screen, you will

 ;;;                see 2 numbers: TOP and CUR. TOP is the highest screen

 ;;;                you have <RETURNED> to. CUR is the current screen you

 ;;;                are viewing. You can only jump between the first and TOP

 ;;;                screen. As an example, if you selected the 'Field Global

 ;;;                Location' option and then hit <RETURN> 6 times, TOP would

 ;;;                be equal to 6 and CUR would be equal to 6. Now you can jump

 ;;;                to any screen between 1 and 6. If you entered '2' and <RETURN>,

 ;;;                you would jump to screen 2. TOP would still be equal to 6 but

 ;;;                CUR would now be 2. If you then hit 'B' to back up 1 screen,

 ;;;                TOP would be 6 and CUR would be 1. If you now wanted to return

 ;;;                to TOP (screen 6), you would type a '6' and this page

 ;;;                would now be displayed. TOP and CUR would both be equal

 ;;;                to 6 again.

 ;;;

 ;;;  4.  'I'       Allows you to zoom in on an individual field. It prompts you

 ;;;                for a field and then gives you the Individual Field Summary

 ;;;                for that field. When using 'I', you must start at the top

 ;;;                of the multiple. For example, if you were looking at the

 ;;;                Patient file and you had selected 'Admission Date' as the

 ;;;                starting point for Field Global Location and you <RETURNED>

 ;;;                thru 2 screens, you would see the field Treating Specialty.

 ;;;                To view the Individual Field Summary for this field you would

 ;;;                have to first select Admission Date and then Treating Specialty.

 ;;;                This is made easier by the design of the Field Global Location

 ;;;                screens. Each layer of multiple fields is preceeded by

 ;;;                dashes that indicated their level. You trace these dashes

 ;;;                back to locate the starting point for each layer. You can

 ;;;                also use the Trace a Field option.

 ;;;***

PAGE ;

 R !!?2,"<RETURN> to continue, '^' to quit: ",XX:DTIME S:'$T XX="^" S:XX["^" FLAGQ=1 I FLAGQ Q

 W @IOF Q

PAUSE ;

 I $Y<SIZE F I=1:1:(SIZE-$Y) W !

 R !?2,"<RETURN> to continue..",XX:DTIME

 Q

XBHEDDH3  ;402,DJB,10/23/91,EDD - Help Text - Field Global Location

 +1       ;;2.6;IHS UTILITIES;;JUN 28, 1993

 +2       ;;David Bolduc - Togus, ME

 +3       ;;Called by XBHEDD1

 +4        WRITE @IOF

 +5        FOR I=1:1

               SET TEXT=$PIECE($TEXT(TXT+I),";;;",2)

               IF TEXT="***"

                   QUIT 

               WRITE !,TEXT

               IF $Y>SIZE

                   DO PAGE

                   IF FLAGQ

                       QUIT 

 +6        IF 'FLAGQ

               DO ^XBHEDDH4

EX        ;

 +1        KILL TEXT

           IF 'FLAGQ

               DO PAUSE

 +2        QUIT 

TXT       ;

 +1       ;;;     INPUT               EFFECT

 +2       ;;;==========================================================================

 +3       ;;;

 +4       ;;;  1.   '^'      Exit back to Main Menu.

 +5       ;;;

 +6       ;;;  2.   'B'      Back up to previous screen.

 +7       ;;;

 +8       ;;;  3.   'n'      Typing a number here allows you to jump to that screen.

 +9       ;;;                In the lower right hand corner of the screen, you will

 +10      ;;;                see 2 numbers: TOP and CUR. TOP is the highest screen

 +11      ;;;                you have <RETURNED> to. CUR is the current screen you

 +12      ;;;                are viewing. You can only jump between the first and TOP

 +13      ;;;                screen. As an example, if you selected the 'Field Global

 +14      ;;;                Location' option and then hit <RETURN> 6 times, TOP would

 +15      ;;;                be equal to 6 and CUR would be equal to 6. Now you can jump

 +16      ;;;                to any screen between 1 and 6. If you entered '2' and <RETURN>,

 +17      ;;;                you would jump to screen 2. TOP would still be equal to 6 but

 +18      ;;;                CUR would now be 2. If you then hit 'B' to back up 1 screen,

 +19      ;;;                TOP would be 6 and CUR would be 1. If you now wanted to return

 +20      ;;;                to TOP (screen 6), you would type a '6' and this page

 +21      ;;;                would now be displayed. TOP and CUR would both be equal

 +22      ;;;                to 6 again.

 +23      ;;;

 +24      ;;;  4.  'I'       Allows you to zoom in on an individual field. It prompts you

 +25      ;;;                for a field and then gives you the Individual Field Summary

 +26      ;;;                for that field. When using 'I', you must start at the top

 +27      ;;;                of the multiple. For example, if you were looking at the

 +28      ;;;                Patient file and you had selected 'Admission Date' as the

 +29      ;;;                starting point for Field Global Location and you <RETURNED>

 +30      ;;;                thru 2 screens, you would see the field Treating Specialty.

 +31      ;;;                To view the Individual Field Summary for this field you would

 +32      ;;;                have to first select Admission Date and then Treating Specialty.

 +33      ;;;                This is made easier by the design of the Field Global Location

 +34      ;;;                screens. Each layer of multiple fields is preceeded by

 +35      ;;;                dashes that indicated their level. You trace these dashes

 +36      ;;;                back to locate the starting point for each layer. You can

 +37      ;;;                also use the Trace a Field option.

 +38      ;;;***

PAGE      ;

 +1        READ !!?2,"<RETURN> to continue, '^' to quit: ",XX:DTIME

           IF '$TEST

               SET XX="^"

           IF XX["^"

               SET FLAGQ=1

           IF FLAGQ

               QUIT 

 +2        WRITE @IOF

           QUIT 

PAUSE     ;

 +1        IF $Y<SIZE

               FOR I=1:1:(SIZE-$Y)

                   WRITE !

 +2        READ !?2,"<RETURN> to continue..",XX:DTIME

 +3        QUIT