RTB1.m

RTB1 ;MJK/TROY ISC;Help Text for Variable Pointer Fields; ; 1/30/87  10:26 AM ;

 ;;v 2.0;Record Tracking;;10/22/91 

HELP F I=1:1 S Y=$P($T(@T+I),";;",2) Q:Y="END"  W !?5,Y

 Q

 ;

HELPFF F I=1:1 S Y=$P($T(@T+I),";;",2) Q:Y="END"  S X="" D:IOSL<($Y+6) TOP^RTB2 Q:X["^"  W !?5,Y

 Q

 ;

TEXT ;;<general help for choosing an entity>

 ;;

 ;;If you simply enter the name then the system will search

 ;;each of the above files for the name you have entered. If

 ;;a match is found the system will ask you if it is the entry

 ;;that you desire.

 ;;

 ;;However, if you know the file name of the entry you want

 ;;then you can speed up processing by using the following

 ;;syntax to choose the entry:

 ;;      <Prefix>.<entry name>

 ;;                or

 ;;      <Message>.<entry name>

 ;;                or

 ;;      <File Name>.<entry name>

 ;;

 ;;Also, you do NOT need to enter the entire file name or message

 ;;to direct the look up. Using the first few characters will

 ;;be enough information.

 ;;

 ;;For example, if one of the files is the 'PROVIDER' file and it

 ;;has a message of 'DOCTOR' and a prefix of 'D', then you can

 ;;enter any of the following to look up the entry CASEY,BEN:

 ;;        1) CASEY,BEN

 ;;        2) CAS

 ;;        3) PROVIDER.CASEY,BEN

 ;;        4) DOCTOR.CASEY,BEN

 ;;        5) PR.CAS

 ;;        6) DOC.CAS

 ;;        7) D.C

 ;;

 ;;END

 ;

ENTHLP ;;<entity specific help text>

 ;;

 ;;[HELP FOR CHOOSING AN ENTRY IN THE RECORDS FILE]

 ;;

 ;;Choose an existing entry by entering any of the following:

 ;;           1) record number

 ;;           2) wand the barcode label on record

 ;;           3) name of the patient (for patient related applications

 ;;                                   such as, radiology and MAS)

 ;;

 ;;END

 ;

BOR ;;<help text describing how to look-up records by borrower>

 ;;OR list records charged out to a particular borrower by

 ;;entering one of the following:

 ;;           1) B.<borrower name>

 ;;               (examples: B.JONES,JOHN

 ;;                          B.JON       )

 ;;           2) B.<borrower's file>.<borrowers name>

 ;;               (examples: B.PROVIDER.JONES,JOHN

 ;;                          B.PRO.JONE            )

 ;;

 ;;END

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RTB1   2268     printed  Apr 09, 2024@21:36:30                                                                                                                                                                                                        Page 2

RTB1      ;MJK/TROY ISC;Help Text for Variable Pointer Fields; ; 1/30/87  10:26 AM ;

 +1       ;;v 2.0;Record Tracking;;10/22/91 

HELP       FOR I=1:1

               SET Y=$PIECE($TEXT(@T+I),";;",2)

               if Y="END"

                   QUIT 

               WRITE !?5,Y

 +1        QUIT 

 +2       ;

HELPFF     FOR I=1:1

               SET Y=$PIECE($TEXT(@T+I),";;",2)

               if Y="END"

                   QUIT 

               SET X=""

               if IOSL<($Y+6)

                   DO TOP^RTB2

               if X["^"

                   QUIT 

               WRITE !?5,Y

 +1        QUIT 

 +2       ;

TEXT      ;;<general help for choosing an entity>

 +1       ;;

 +2       ;;If you simply enter the name then the system will search

 +3       ;;each of the above files for the name you have entered. If

 +4       ;;a match is found the system will ask you if it is the entry

 +5       ;;that you desire.

 +6       ;;

 +7       ;;However, if you know the file name of the entry you want

 +8       ;;then you can speed up processing by using the following

 +9       ;;syntax to choose the entry:

 +10      ;;      <Prefix>.<entry name>

 +11      ;;                or

 +12      ;;      <Message>.<entry name>

 +13      ;;                or

 +14      ;;      <File Name>.<entry name>

 +15      ;;

 +16      ;;Also, you do NOT need to enter the entire file name or message

 +17      ;;to direct the look up. Using the first few characters will

 +18      ;;be enough information.

 +19      ;;

 +20      ;;For example, if one of the files is the 'PROVIDER' file and it

 +21      ;;has a message of 'DOCTOR' and a prefix of 'D', then you can

 +22      ;;enter any of the following to look up the entry CASEY,BEN:

 +23      ;;        1) CASEY,BEN

 +24      ;;        2) CAS

 +25      ;;        3) PROVIDER.CASEY,BEN

 +26      ;;        4) DOCTOR.CASEY,BEN

 +27      ;;        5) PR.CAS

 +28      ;;        6) DOC.CAS

 +29      ;;        7) D.C

 +30      ;;

 +31      ;;END

 +32      ;

ENTHLP    ;;<entity specific help text>

 +1       ;;

 +2       ;;[HELP FOR CHOOSING AN ENTRY IN THE RECORDS FILE]

 +3       ;;

 +4       ;;Choose an existing entry by entering any of the following:

 +5       ;;           1) record number

 +6       ;;           2) wand the barcode label on record

 +7       ;;           3) name of the patient (for patient related applications

 +8       ;;                                   such as, radiology and MAS)

 +9       ;;

 +10      ;;END

 +11      ;

BOR       ;;<help text describing how to look-up records by borrower>

 +1       ;;OR list records charged out to a particular borrower by

 +2       ;;entering one of the following:

 +3       ;;           1) B.<borrower name>

 +4       ;;               (examples: B.JONES,JOHN

 +5       ;;                          B.JON       )

 +6       ;;           2) B.<borrower's file>.<borrowers name>

 +7       ;;               (examples: B.PROVIDER.JONES,JOHN

 +8       ;;                          B.PRO.JONE            )

 +9       ;;

 +10      ;;END

 +11      ;