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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Text Integration Utility 5 $$PATIENT^TIULA  $$DATE^TIULS  PATVADPT^TIULV  $$CHKAPPT^TIUPXAP2  (ADD,VADPT)^TIUVSIT  
Kernel 2 ($$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
VA Fileman 2 C^%DTC  EN^DIQ1  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Text Integration Utility 2 TIULA1  TIUVSIT  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC BREAK+11
EN^DIQ1 WRITE+3
$$SDAPI^SDAMA301 BREAK+5
$$PATIENT^TIULA AGN+3
$$DATE^TIULS AGN+45, WRITE+4
PATVADPT^TIULV VADPT+3
$$CHKAPPT^TIUPXAP2 AGN+18
ADD^TIUVSIT BREAK+26
VADPT^TIUVSIT AGN+36, AGN+40
$$FMADD^XLFDT AGN+7, AGN+8
$$NOW^XLFDT BREAK+14
$$UP^XLFSTR BREAK+20

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] AGN+16, AGN+19
^AUPNVSIT("AA" AGN+10, AGN+11, AGN+13
^DISV( AGN+44*
^SC("B" AGN+5
^TMP("TIUVD" AGN!, AGN+21*, AGN+22, AGN+23, AGN+24, CLEAN!
^TMP("TIUVDA" AGN!, AGN+24*, CLEAN!
^TMP("TIUVN" AGN!, AGN+23*, AGN+25, AGN+26, AGN+28, AGN+29, AGN+32, AGN+34, AGN+44, CLEAN!
, BREAK+18, BREAK+19, BREAK+25, BREAK+26, BREAK+28
^TMP($J BREAK+13, BREAK+14, BREAK+15!, BREAK+16!
^XTMP("TIUSDAMA" BREAK+12*, BREAK+14*

Label References

Name Line Occurrences
AGN AGN+39, AGN+42
BREAK AGN+36, AGN+40, BREAK+28
CLEAN AGN+38, AGN+40, AGN+41
HELP BREAK+23
VADPT AGN+27
WRITE AGN+35

Naked Globals

Name Field # of Occurrence
^( AGN+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C AGN+1~, AGN+22*, AGN+23*, AGN+24
D AGN+14~, AGN+19*, AGN+20, AGN+21
DA WRITE+1~, WRITE+2*, WRITE+5, WRITE+6
DFN MAIN~, AGN+3*, AGN+10, AGN+11, AGN+13, VADPT+3, BREAK+4, BREAK+26
DIC WRITE+1~, WRITE+2*
DIQ WRITE+1~, WRITE+2*
DIQ(0 WRITE+2*
DR WRITE+1~, WRITE+3*
DT BREAK+11, BREAK+12
DTIME BREAK+19
DUZ AGN+44
FILTER MAIN~, AGN+15*, AGN+16, AGN+31
I AGN+1~, AGN+11*, AGN+13, AGN+22*, AGN+23, AGN+24, WRITE+1~
J WRITE+1~
LETNEW MAIN~, AGN+2*, BREAK+17, BREAK+25, BREAK+26
N AGN+1~, AGN+12~*, AGN+13*, AGN+16, AGN+18, AGN+19, AGN+21
TIUAPT BREAK+1~, BREAK+5*, BREAK+6, BREAK+17
TIUARR BREAK+1~, BREAK+5
TIUARR("FLDS" BREAK+4*
TIUARR("MAX" BREAK+4*
TIUARR(4 BREAK+4*
TIUDFLT MAIN~, AGN+27
TIUER AGN+1~, AGN+30*, AGN+32, AGN+39, AGN+42, BREAK+9*, BREAK+21*, BREAK+25*, BREAK+26*
TIUERR BREAK+10~, BREAK+13*, BREAK+14
TIUFUTUR MAIN~, BREAK+24*
TIUI AGN+1~, AGN+28~*, AGN+29, AGN+30*, AGN+32*, AGN+34, AGN+36, AGN+37*, WRITE+4
TIUII AGN+1~, AGN+34*, AGN+40, BREAK+2, BREAK+3, BREAK+18, BREAK+25, BREAK+26
TIULDT MAIN~, AGN+7*, AGN+8, AGN+11
TIULOC MAIN~, AGN+5*, AGN+20
TIUMODE MAIN~, AGN+4*, AGN+25, AGN+27
TIUNVIS AGN+1~, AGN+43
TIUOCC MAIN~, AGN+4*
TIUOK AGN+1~, AGN+30*, AGN+32, AGN+43, AGN+44, BREAK+2*, BREAK+29*
>> TIUOUT AGN+3*, AGN+32, AGN+36*, AGN+38, AGN+41, BREAK+9*, BREAK+21*, BREAK+24*, BREAK+25*, BREAK+26*
>> TIUPICK BREAK+19, BREAK+22
>> TIUSDC BREAK+26
TIUSSN MAIN~, AGN+3
TIUVDA AGN+1~, AGN+34*, WRITE+2
TIUVDATE AGN+1~, AGN+6*, AGN+9
TIUVDT MAIN~, AGN+6, AGN+7, AGN+8*, AGN+9*, AGN+11
TIUVISIT WRITE+1~
TIUVISIT(9000010 WRITE+5, WRITE+6
TIUVR AGN+33~, AGN+34*, WRITE+4
TIUVSTR VADPT+1~, VADPT+2*, VADPT+3
>> TIUVTRY BREAK+26*
TIUX AGN+1~, AGN+27, AGN+29*, AGN+36, AGN+40, AGN+44*, AGN+45, VADPT+2, BREAK+26
TIUY MAIN~, VADPT+3
U AGN+16, AGN+20, AGN+21, AGN+45, VADPT+2, BREAK+19
UNSONLY MAIN~, AGN+2*, AGN+18
X AGN+1~, AGN+37*, AGN+42, BREAK+2*, BREAK+10~, BREAK+12, BREAK+19*, BREAK+20*, BREAK+21, BREAK+22*
, BREAK+23, BREAK+24, BREAK+25, BREAK+26, BREAK+27, BREAK+28, BREAK+29, HELP~, WRITE+1~
X1 BREAK+10~, BREAK+11*
X2 BREAK+10~, BREAK+11*
Y WRITE+1~
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 |  Naked Globals |  Local Variables |  All