XBHEDDH4.m

XBHEDDH4 ;402,DJB,10/23/91,EDD - Help Text - Field Global Location cont.

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

 ;;David Bolduc - Togus, ME

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

 Q

TXT ;

 ;;;

 ;;;  5. 'N'        Allows you to do a look up by global node. At the 'Select NODE:'

 ;;;                prompt type '?' to see all nodes, or enter node. If that

 ;;;                node is a multiple you will be asked for subnode.You will then

 ;;;                get a list of all fields that are contained by that node.

 ;;;                You may do an 'Individual Field Summary' on any of them.

 ;;;                Example: If you wanted to know what fields are contained

 ;;;                         in ^DPT(34,"DA",3,"T",0) you would enter '^DPT' at

 ;;;                         the 'Select FILE:' prompt, select option 7, enter

 ;;;                         'N' for node, and then enter the following:

 ;;;                              Select NODE: 'DA'

 ;;;                              Select 'DA' SUBNODE: 'T'

 ;;;                              Select 'T' SUBNODE: '0'

 ;;;                         EDD will now display all the fields contained in

 ;;;                         the selected node and allow you to do an 'Individual

 ;;;                         Field Summary'.

 ;;;***

PAGE ;

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

 W @IOF Q

XBHEDDH4  ;402,DJB,10/23/91,EDD - Help Text - Field Global Location cont.

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

 +2       ;;David Bolduc - Togus, ME

 +3        FOR I=1:1

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

               IF TEXT="***"

                   QUIT 

               WRITE !,TEXT

               IF $Y>SIZE

                   DO PAGE

                   IF FLAGQ

                       QUIT 

 +4        QUIT 

TXT       ;

 +1       ;;;

 +2       ;;;  5. 'N'        Allows you to do a look up by global node. At the 'Select NODE:'

 +3       ;;;                prompt type '?' to see all nodes, or enter node. If that

 +4       ;;;                node is a multiple you will be asked for subnode.You will then

 +5       ;;;                get a list of all fields that are contained by that node.

 +6       ;;;                You may do an 'Individual Field Summary' on any of them.

 +7       ;;;                Example: If you wanted to know what fields are contained

 +8       ;;;                         in ^DPT(34,"DA",3,"T",0) you would enter '^DPT' at

 +9       ;;;                         the 'Select FILE:' prompt, select option 7, enter

 +10      ;;;                         'N' for node, and then enter the following:

 +11      ;;;                              Select NODE: 'DA'

 +12      ;;;                              Select 'DA' SUBNODE: 'T'

 +13      ;;;                              Select 'T' SUBNODE: '0'

 +14      ;;;                         EDD will now display all the fields contained in

 +15      ;;;                         the selected node and allow you to do an 'Individual

 +16      ;;;                         Field Summary'.

 +17      ;;;***

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