Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: TIUPLST

Package: Text Integration Utility

Routine: TIUPLST


Information

TIUPLST ; SLC/JER - Enter/edit personal document pick-list ;13-JUL-2000 10:43:41

Source Information

Source file <TIUPLST.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Control branching
INTROTXT ; Write Introductory Text for the Option
GETEDIT ; Get record in picklist file, determine action
DOCNAME(TIUDA) ; Get the NAME (.01) field of the document
NEWLIST(TIUNM,ASK) ; Create a new List for the user
NEWX
DELETE(DA) ; Call ^DIK to delete the list
DIK(DA,TIUNAME) ; Remove a list
EDIT(DA) ; Call ^DIE to edit the record
ALREADY(TIUCLASS) ; Indicate that a List for TIUCLASS already exists

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: INTROTXT+1
Function Call: WRITE
  • Prompt: !!,"This option allows you to create and maintain lists of TITLES for any of the"
  • Line Location: INTROTXT+3
Function Call: WRITE
  • Prompt: !,"active CLASSES of documents supported by TIU at your site.",!
  • Line Location: INTROTXT+4
Function Call: WRITE
  • Prompt: !!,"When you use the option to enter a document belonging to a given class"
  • Line Location: INTROTXT+6
Function Call: WRITE
  • Prompt: !,"you will be asked to select a TITLE belonging to that class."
  • Line Location: INTROTXT+7
Function Call: WRITE
  • Prompt: !!,"For any particular class, you may find that you only wish to choose from"
  • Line Location: INTROTXT+8
Function Call: WRITE
  • Prompt: !,"among a few highly specific titles (e.g., if you are a Pulmonologist"
  • Line Location: INTROTXT+9
Function Call: WRITE
  • Prompt: !,"entering a PROGRESS NOTE, you may wish to choose from a short list of"
  • Line Location: INTROTXT+10
Function Call: WRITE
  • Prompt: !,"three or four titles related to Pulmonary Function, or Pulmonary Disease)."
  • Line Location: INTROTXT+11
Function Call: WRITE
  • Prompt: !,"Rather than presenting you with a list of hundreds of unrelated titles,"
  • Line Location: INTROTXT+12
Function Call: WRITE
  • Prompt: !,"TIU will present you with the list you name here."
  • Line Location: INTROTXT+13
Function Call: WRITE
  • Prompt: !!,"In the event that you need to select a TITLE which doesn't appear on your"
  • Line Location: INTROTXT+14
Function Call: WRITE
  • Prompt: !,"list, you will always be able to do so."
  • Line Location: INTROTXT+15
Function Call: WRITE
  • Prompt: !!,"NOTE: If you expect to enter a single title, or would be unduely restricted"
  • Line Location: INTROTXT+16
Function Call: WRITE
  • Prompt: !,"by use of a short list, then we recommend that you bypass the creation of"
  • Line Location: INTROTXT+17
Function Call: WRITE
  • Prompt: !,"a list, and simply enter a DEFAULT TITLE for the class...This option will"
  • Line Location: INTROTXT+18
Function Call: WRITE
  • Prompt: !,"afford you the opportunity to do so.",!
  • Line Location: INTROTXT+19
Function Call: WRITE
  • Prompt: !," Enter/edit Personal Document List"
  • Line Location: GETEDIT+3
Function Call: WRITE
  • Prompt: !!,"You already have one or more Personal Lists...",!
  • Line Location: GETEDIT+7
Function Call: WRITE
  • Prompt: !!,"Please choose a list to ",$S(CREATE="E":"Edit",1:"Delete"),"...",!
  • Line Location: GETEDIT+12
Function Call: WRITE
  • Prompt: !!,"No List Selected...",!
  • Line Location: GETEDIT+18
Function Call: WRITE
  • Prompt: !!,"No changes made..."
  • Line Location: GETEDIT+19
Function Call: WRITE
  • Prompt: !!,"Creating a new Personal Document List...",!
  • Line Location: NEWLIST+7
Function Call: WRITE
  • Prompt: !!," Sorry, you can create lists for YOURSELF only. Please try again."
  • Line Location: NEWLIST+11
Function Call: WRITE
  • Prompt: !!,"You are about to DELETE your entry for CLASS "
  • Line Location: DELETE+4
Function Call: WRITE
  • Prompt: TIUNAME,!
  • Line Location: DELETE+5
Function Call: WRITE
  • Prompt: !!,"You must specify a CLASS in order to maintain the list.",!
  • Line Location: DELETE+8
Function Call: WRITE
  • Prompt: !!,"Nothing deleted...No harm done!"
  • Line Location: DELETE+10
Function Call: WRITE
  • Prompt: !,TIUNAME," List DELETED."
  • Line Location: DIK+4
Function Call: WRITE
  • Prompt: !!,$C(7),"You already have a list for class ",$$PNAME^TIULC1(TIUCLASS),"."
  • Line Location: ALREADY+1
Function Call: WRITE
  • Prompt: !!,"Please Edit that list instead..."
  • Line Location: ALREADY+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.98 - [#8925.98] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call