- 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 ---[H[J[2J[HRTB1 2268 printed Jan 18, 2025@03:34:36 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 ;