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
Print Page as PDF
Routine: TIULA4

Package: Text Integration Utility

Routine: TIULA4


Information

TIULA4 ; SLC/JER,JM - Check out PUT API's ; 6/13/01

Source Information

Source file <TIULA4.m>

Entry Points

Name Comments DBIA/ICR reference
CLASPICK(PARENT,Y,TYPES) ; Boolean fn to screen selection of classes
DFLTPICK(PARENT,Y,LIST) ; Boolean function to screen selection of Default title
LBYPASS() ; Interactive function to determine whether to bypass list
TITLPICK(TIUY,CLASS,ATTCHID) ; Select a title
RPT
PICK(LOW,HIGH,DFLT) ; List selection
LIST(TIUY,CLASS,TYPE,TIUK,ATTCHID) ; Get list of document titles
PERSLIST(TIUY,DUZ,CLASS,TIUC,ATTCHID) ; Get personal list for a user
TLINE(TITLIFN,TIUTNM,ATTCHID) ; Function returns TitleIFN^Titlename^Canpick (i.e. active)^Canattach (user can attach child ID entries of this title)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LBYPASS+1
Function Call: WRITE
  • Prompt: !!,"Personal ",$$UP^XLFSTR($$PNAME^TIULC1(CLASS))," Title List for "
  • Line Location: RPT+0
Function Call: WRITE
  • Prompt: $$NAME^TIULS($$PERSNAME^TIULC1(DUZ),"FIRST LAST"),!
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !?3,I,?8,$P(TITLES(I),U,2)
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to see more titles, '^' to exit personal list, or CHOOSE"
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+18
Function Call: WRITE
  • Prompt: !,$C(7),">>> ",$$PNAME^TIULC1(+Y)," is not an ACTIVE title."
  • Line Location: RPT+20
Function Call: WRITE
  • Prompt: " Please choose another."
  • Line Location: RPT+21
Function Call: WRITE
  • Prompt: !?4,"You may want to remove it from your list..."
  • Line Location: RPT+22
Function Call: WRITE
  • Prompt: !?4,"Check with your Clinical Application Coordinator.",!
  • Line Location: RPT+23
Function Call: WRITE
  • Prompt: !,$C(7),">>> ",$P(CANLINK,U,2),!," Please choose another title."
  • Line Location: RPT+26
Function Call: WRITE
  • Prompt: " ",$$PNAME^TIULC1(+Y)
  • Line Location: RPT+30
Function Call: WRITE
  • Prompt: !,"Exiting NUMBERED personal list.",!
  • Line Location: RPT+35
Function Call: WRITE
  • Prompt: "Please select other title by NAME:"
  • Line Location: RPT+36
Function Call: WRITE
  • Prompt: !
  • Line Location: PICK+4
Info |  Source |  Entry Points |  Interaction Calls