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: TIUVISIT

Package: Text Integration Utility

Routine: TIUVISIT


Information

TIUVISIT ; SLC/JER - Visit File look-up ;4/28/99@09:47:44 [1/27/05 12:36pm]

Source Information

Source file <TIUVISIT.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN(TIUY,DFN,TIUSSN,TIUVDT,TIULDT,TIUDFLT,TIUMODE,TIULOC,TIUOCC,LETNEW,FILTER,UNSONLY,TIUFUTUR) ;Control
AGN
VADPT ; Call PATVADPT^TIULV to fill TIUY array
CLEAN
BREAK ; Handle prompting
HELP(X) ; Offer help
WRITE ; Writes each list element

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No UNSCHEDULED VISITS on file",!
  • Line Location: AGN+10
Function Call: WRITE
  • Prompt: !!,"The following",$S(FILTER["H":" UNSCHEDULED",1:"")," VISITS are available:",!
  • Line Location: AGN+31
Function Call: WRITE
  • Prompt: " ",$$DATE^TIULS(+$P(TIUX,U,2),"AMTH DD CCYY@HR:MIN")
  • Line Location: AGN+45
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",TIUII," or"
  • Line Location: BREAK+3
Function Call: WRITE
  • Prompt: !,"An error occurred while accessing the appointments database"
  • Line Location: BREAK+7
Function Call: WRITE
  • Prompt: !," Please contact IRM!",!
  • Line Location: BREAK+8
Function Call: WRITE
  • Prompt: ": "
  • Line Location: BREAK+19
Function Call: WRITE
  • Prompt: $P(^TMP("TIUVN",$J,TIUPICK),U),"// "
  • Condition for execution: $D(TIUPICK)
  • Line Location: BREAK+19
Function Call: WRITE
  • Prompt: !!,$C(7),"INVALID RESPONSE",!
  • Line Location: BREAK+28
Function Call: WRITE
  • Prompt: !!?3,"Indicate the visit with which the document is associated by choosing"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?3,"the corresponding number. To add a new visit (e.g., for unscheduled or"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !?3,"telephone contacts), enter ""N"".",!!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,$J(TIUI,4),"> ",$$DATE^TIULS(+TIUVR,"AMTH DD, CCYY@HR:MIN")
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?27,$E($G(TIUVISIT(9000010,DA,.07,"E")),1,18)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: ?47,$E($S(TIUVISIT(9000010,DA,.22,"E")]"":TIUVISIT(9000010,DA,.22,"E"),1:TIUVISIT(9000010,DA,.08,"E")),1,18)
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: !?23,TIUVISIT(9000010,DA,.21,"E")
  • Line Location: WRITE+7

FileMan Files Accessed Via FileMan Db Call

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