Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 IX^DIC  ^DIE  ^DIK  
Text Integration Utility 2 $$PNAME^TIULC1  ($$READ,JUSTIFY)^TIUU  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Electronic Health Record 1 BEHODC  
Text Integration Utility 1 TIU PREFERRED DOCUMENT LIST  

Entry Points

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

External References

Name Field # of Occurrence
IX^DIC GETEDIT+16, NEWLIST+8
^DIE EDIT+4
^DIK NEWLIST+12, DIK+3
$$PNAME^TIULC1 DELETE+2, ALREADY+1
$$READ^TIUU INTROTXT+5, GETEDIT+9, NEWLIST+3, DELETE+6
JUSTIFY^TIUU INTROTXT+2
$$UP^XLFSTR DELETE+2

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
Routine Call
  • DIE
  • Line Location:
    • EDIT+4
Routine Call
  • DIC
  • Line Location:
    • GETEDIT+16
    • NEWLIST+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925.98 - [#8925.98] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925.1 - [#8925.1] DOCNAME+1
^TIU(8925.98 - [#8925.98] GETEDIT+4, DELETE+2
^VA(200 - [#200] GETEDIT+2

Label References

Name Line Occurrences
$$NEWLIST GETEDIT+5, GETEDIT+11, GETEDIT+18
DELETE GETEDIT+20
DIK DELETE+11, EDIT+5
EDIT GETEDIT+6, GETEDIT+11, GETEDIT+21
GETEDIT MAIN+5
INTROTXT MAIN+3
NEWX NEWLIST+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASK NEWLIST~, NEWLIST+3
ASKNEW NEWLIST+1~, NEWLIST+2*, NEWLIST+3*, NEWLIST+4
CREATE GETEDIT+1~, GETEDIT+9*, GETEDIT+10, GETEDIT+11, GETEDIT+12, GETEDIT+18, GETEDIT+20
D GETEDIT+1~, GETEDIT+13*, NEWLIST+5*
DA MAIN+1~, NEWLIST+10~, NEWLIST+12*, DELETE~, DELETE+2, DELETE+11, DIK~, EDIT~, EDIT+5
DIC GETEDIT+1~, GETEDIT+13*, NEWLIST+1~, NEWLIST+2*
DIC("S" GETEDIT+14*
DIC("W" GETEDIT+15*
DIC(0 GETEDIT+13*, NEWLIST+2*
DIE EDIT+1~, EDIT+2*
DIK NEWLIST+10~, NEWLIST+12*, DIK+1~, DIK+2*
DIROUT MAIN+4, GETEDIT+10, EDIT+1~
DIRUT EDIT+1~
DLAYGO NEWLIST+1~, NEWLIST+2*
DR EDIT+1~, EDIT+3*
DTOUT MAIN+1~, MAIN+4, GETEDIT+10, EDIT+1~, EDIT+4
DUOUT MAIN+1~, MAIN+4, GETEDIT+10
DUZ GETEDIT+2, GETEDIT+4, GETEDIT+13, NEWLIST+5, NEWLIST+10
PROMPT GETEDIT+1~, GETEDIT+8*, GETEDIT+9
TIUASK EDIT+1~
TIUCLASS EDIT+1~, EDIT+5, ALREADY~, ALREADY+1
TIUDA DOCNAME~, DOCNAME+1
TIUFPRIV MAIN+1~, MAIN+2*
TIUNAME DELETE+1~, DELETE+2*, DELETE+3, DELETE+5, DELETE+7, DELETE+11, DIK~, DIK+4
TIUNM GETEDIT+1~, GETEDIT+2*, GETEDIT+5, GETEDIT+11, GETEDIT+18, NEWLIST~
U GETEDIT+2, GETEDIT+9, DOCNAME+1, NEWLIST+12, DELETE+2
X GETEDIT+1~, GETEDIT+13*, NEWLIST+5*, NEWLIST+6*, EDIT+1~
Y GETEDIT+1~, GETEDIT+5*, GETEDIT+6, GETEDIT+11*, GETEDIT+18*, GETEDIT+19, GETEDIT+20, GETEDIT+21, NEWLIST+1~, NEWLIST+4*
, NEWLIST+10, NEWLIST+12*, NEWX, EDIT+1~, EDIT+4
Y(0 NEWLIST+10
YASURE DELETE+1~*, DELETE+6*, DELETE+9*, DELETE+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All