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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: TIUVSIT

Package: Text Integration Utility

Routine: TIUVSIT


Information

TIUVSIT ; SLC/JER - Interactive Visit look-up; 28-OCT-2003 [1/27/05 12:35pm]

Source Information

Source file <TIUVSIT.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Text Integration Utility 14 $$PATIENT^TIULA  DOCPRM^TIULC1  GETTIU^TIULD  $$PERSLOC^TIULE  $$DATE^TIULS  PATVADPT^TIULV  MAIN^TIUMOVE  $$WORKOK^TIUPXAP1  
$$LNKVST^TIUPXAP3  CREDIT^TIUPXAPI  $$READ^TIUU  MAIN^TIUVISIT  ($$NOTFOUND,GETAPPT)^TIUVSIT1  HELP^TIUVSITH  
Kernel 2 ($$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
VA FileMan 2 ^DIC  ^DIE  
RPC Broker 1 $$BROKER^XWBLIB  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 25

Package Total Caller Graph
Text Integration Utility 24 TIUCHLP  TIUCNFIX  TIUEDI3  TIUEDIM  TIUEDIT  TIUEDITR  TIUGEDIT  TIUHL7U2  
TIULD  TIUPFFIX  TIUPNAPI  TIUPNFIX  TIUPUTCN  TIUPUTCP  TIUPUTPF  TIUPUTPN  
TIUPXAP2  TIUPXAPC  TIURA  TIURD3  TIURS  TIUSRVP  TIUVISIT  ^TIU(8925.1  
Order Entry Results Reporting 1 ORWPT16  

Entry Points

Name Comments DBIA/ICR reference
ENPN(TIUY,DFN,ALLOWNEW) ; Entry point for Progress Notes
MAIN(TIUY,DFN,TIUSSN,TIUVDT,TIULDT,TIUDFLT,TIUMODE,TIULOC,TIUOCC,LETNEW) ;Control
AGN
VADPT
CLEAN
BREAK ; Handle prompting
INOUT() ; Ask INPATIENT/OUTPATIENT
MORE ; Modify date range, list more visits
FUTURE ; Get future appointments
GETVSIT(TIUOK) ; Get associated visit
ADD(DFN,VSTR,ASK,VSTOP) ; Add a visit for patient
WRITE ; Writes each list element
SELLOC() ; Select Hospital Location
DEFER(DA,TIUSDC) ; Mark record for deferred crediting of stop code
CREDIT(TIUDA) ; Call EN3^SDACS to Credit Stop Code
REMFLAG(DA) ; Remove credit flag from TIU Document Record
VSITYPE(VSTOP) ; Call reader to get VISIT TYPE
GETAPPT(DFN,CLINIC,OCCLIM,INDEX,COUNT,LAST,EARLY,FUTURE) ; Get list

External References

Name Field # of Occurrence
^DIC SELLOC+6
^DIE DEFER+6, REMFLAG+2
$$SDAPI^SDAMA301 AGN+8
$$PATIENT^TIULA AGN+4
DOCPRM^TIULC1 CREDIT+4
GETTIU^TIULD CREDIT+8
$$PERSLOC^TIULE SELLOC+3
$$DATE^TIULS AGN+30, AGN+62, ADD+15
PATVADPT^TIULV VADPT
MAIN^TIUMOVE ENPN+3, ENPN+7
$$WORKOK^TIUPXAP1 DEFER+4
$$LNKVST^TIUPXAP3 DEFER+8
CREDIT^TIUPXAPI CREDIT+9
$$READ^TIUU INOUT+3, ADD+5, ADD+10, VSITYPE+5
MAIN^TIUVISIT AGN+16, AGN+34, AGN+48, AGN+57
$$NOTFOUND^TIUVSIT1 AGN+31
GETAPPT^TIUVSIT1 AGN+20, MORE+3, FUTURE+1, GETAPPT+1
HELP^TIUVSITH BREAK+11
$$FMADD^XLFDT AGN+30, FUTURE+7
$$NOW^XLFDT FUTURE+5
$$UP^XLFSTR AGN+31, BREAK+8, VSITYPE+6
$$BROKER^XWBLIB DEFER+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Could not retrieve patient information due to a problem with the database.",!,"Please contact IRM"
  • Line Location: AGN+11
Function Call: WRITE
  • Prompt: !!,"No SCHEDULED APPOINTMENTS on file"
  • Line Location: AGN+15
Function Call: WRITE
  • Prompt: !!,$G(^TMP("TIUVERR",$J)),!
  • Line Location: AGN+23
Function Call: WRITE
  • Prompt: ^TMP("TIUVERR",$J,115),!
  • Line Location: AGN+24
Function Call: WRITE
  • Prompt: !!,"No SCHEDULED APPOINTMENTS found through "
  • Line Location: AGN+29
Function Call: WRITE
  • Prompt: $$DATE^TIULS($$FMADD^XLFDT(DT,1),"AMTH DD, CCYY"),"...",!
  • Line Location: AGN+30
Function Call: WRITE
  • Prompt: !!,"The following SCHEDULED VISITS are available:",!
  • Line Location: AGN+44
Function Call: WRITE
  • Prompt: " ",$$DATE^TIULS(+$P(TIUX,";",2),"AMTH DD CCYY@HR:MIN")
  • Line Location: AGN+62
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",TIUII,", or",!
  • Line Location: BREAK+2
Function Call: WRITE
  • Prompt: "<U>NSCHEDULED VISITS, "
  • Line Location: BREAK+3
Function Call: WRITE
  • Prompt: "<F>UTURE VISITS, "
  • Line Location: BREAK+4
Function Call: WRITE
  • Prompt: ": "
  • Line Location: BREAK+7
Function Call: WRITE
  • Prompt: $P(^TMP("TIUVN",$J,TIUPICK),U),"// "
  • Condition for execution: $D(TIUPICK)
  • Line Location: BREAK+7
Function Call: WRITE
  • Prompt: !!,$C(7),"INVALID RESPONSE",!
  • Line Location: BREAK+18
Function Call: WRITE
  • Prompt: !!,$G(^TMP("TIUVERR",$J)),!
  • Line Location: FUTURE+3
Function Call: WRITE
  • Prompt: ^TMP("TIUVERR",$J,115),!
  • Line Location: FUTURE+4
Function Call: WRITE
  • Prompt: !!,"No Future Appointments found...",!
  • Line Location: FUTURE+6
Function Call: WRITE
  • Prompt: !!,"No Appointments found more than one day in future..."
  • Line Location: FUTURE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Patient & Visit are Required...",!
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !!,$C(7)," Item #",+$G(^TMP("TIUNOT",$J,+VLOC,+TIUAPDT))
  • Line Location: ADD+14
Function Call: WRITE
  • Prompt: " is scheduled for ",$$DATE^TIULS(TIUAPDT,"MM/DD/YY HR:MIN")
  • Line Location: ADD+15
Function Call: WRITE
  • Prompt: " at this location..."
  • Line Location: ADD+16
Function Call: WRITE
  • Prompt: !!,"Please select the existing appointment, rather than creating a "
  • Line Location: ADD+17
Function Call: WRITE
  • Prompt: "redundant one.",!
  • Line Location: ADD+18
Function Call: WRITE
  • Prompt: !,$J(TIUII,4),"> ",$P(TIUX,U),?27,$E($P(TIUX,U,3),1,21),?50,$P(TIUX,U,2)
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: " ",$P(Y,U,2),!
  • Line Location: VSITYPE+5
Routine Call
  • DIC
  • Line Location:
    • SELLOC+6
Routine Call
  • DIE
  • Line Location:
    • DEFER+6
    • REMFLAG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] VSITYPE+1
^DISV( SELLOC+4
^DPT - [#2] ENPN+3, INOUT+2
^SC - [#44] GETVSIT+4, ADD+9, SELLOC+4
^TIU(8925 - [#8925] CREDIT+2
^TMP("TIUNOT" AGN!, CLEAN!, ADD+12, ADD+14
^TMP("TIUVDT" AGN!, CLEAN!, MORE+2
^TMP("TIUVERR" AGN+22, AGN+23, AGN+24, AGN+25!, FUTURE+2, FUTURE+3, FUTURE+4
^TMP("TIUVN" AGN!, AGN+20, AGN+27, AGN+45, CLEAN!, BREAK+6, BREAK+7, BREAK+15, BREAK+16, BREAK+18
, WRITE+1
^TMP("TIUVNI" AGN!, AGN+38, AGN+40, AGN+42, CLEAN!, FUTURE+5, FUTURE+7, GETVSIT+2
^TMP($J AGN!, AGN+9!

Label References

Name Line Occurrences
$$GETVSIT AGN+41, AGN+61
$$INOUT ENPN+4
$$SELLOC ADD+7
$$VSITYPE ADD+20
ADD AGN+18, AGN+35, AGN+37, BREAK+16
AGN AGN+27, AGN+53, AGN+55, AGN+56, AGN+59
BREAK AGN+47, AGN+56, BREAK+18
CLEAN AGN+54, AGN+58
FUTURE BREAK+13
MAIN ENPN+6
MORE BREAK+12
VADPT AGN+19, AGN+27, AGN+39
WRITE AGN+46

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLOWNEW ENPN~, ENPN+6
APPT GETVSIT+1~, GETVSIT+2*, GETVSIT+3, GETVSIT+5
ASK ADD~, ADD+2*, ADD+3, ADD+6
C AGN+1~
CLINIC GETAPPT~, GETAPPT+1
COUNT GETAPPT~, GETAPPT+1
DA ADD+1~, DEFER~, DEFER+4, DEFER+8, CREDIT+1~, REMFLAG~
DFLT VSITYPE+1~, VSITYPE+2*, VSITYPE+5
DFN ENPN~, ENPN+2, ENPN+3, ENPN+6, ENPN+7, MAIN~, AGN+4*, AGN+7, AGN+16, AGN+18
, AGN+20, AGN+34, AGN+35, AGN+37, AGN+48, AGN+57, VADPT, BREAK+16, INOUT+2, MORE+3
, FUTURE+1, ADD~, CREDIT+1~, CREDIT+7*, CREDIT+9, GETAPPT~, GETAPPT+1
DIC SELLOC+1~*
DIC("A" SELLOC+2*
DIC("B" SELLOC+3*, SELLOC+4*
DIC("S" SELLOC+5*, SELLOC+6!
DIC(0 SELLOC+1*
DIE ADD+1~, DEFER+1~, DEFER+3*, REMFLAG+1~, REMFLAG+2*
>> DIROUT AGN+32
DIRUT ENPN+1~, ENPN+5
DR ADD+1~, DEFER+1~, DEFER+4*, DEFER+5*, REMFLAG+1~, REMFLAG+2*
DT AGN+30, FUTURE+7
DTIME BREAK+7
DTOUT ENPN+1~, AGN+32
DUOUT ENPN+1~, AGN+32
DUZ SELLOC+3, SELLOC+4
EARLY GETAPPT~, GETAPPT+1
FUTURE GETAPPT~, GETAPPT+1
I AGN+1~
INDEX GETAPPT~, GETAPPT+1
LAST GETAPPT~, GETAPPT+1
LETNEW MAIN~, AGN+3*, AGN+16, AGN+18, AGN+27, AGN+34, AGN+35, AGN+48, AGN+57, BREAK+4
, BREAK+5, BREAK+15, BREAK+16
N AGN+1~
OCCLIM GETAPPT~, GETAPPT+1
PROMPT VSITYPE+1~, VSITYPE+3*, VSITYPE+5
TIU CREDIT+1~, CREDIT+8, CREDIT+9
TIUAPDT ADD+1~, ADD+12*, ADD+13, ADD+14, ADD+15, SELLOC+1~
TIUAPPTS AGN+2~, AGN+8*, AGN+10, AGN+12, AGN+14, AGN+19
TIUARR AGN+2~, AGN+8
TIUARR("FLDS" AGN+6*
TIUARR("MAX" AGN+7*
TIUARR(1 AGN+7*
TIUARR(4 AGN+7*
TIUCNT MORE+1~, MORE+2*, MORE+3
TIUD0 CREDIT+1~, CREDIT+2*, CREDIT+3, CREDIT+4, CREDIT+7
TIUDA AGN+1~, CREDIT~, CREDIT+2, CREDIT+8
TIUDFLT MAIN~, AGN+16, AGN+34, AGN+39, AGN+42, AGN+48, AGN+57
TIUDPRM CREDIT+1~, CREDIT+4
TIUDPRM(0 CREDIT+6
TIUER AGN+1~, AGN+43*, AGN+45, AGN+52, AGN+55, AGN+59, BREAK+9*, BREAK+15*, BREAK+16*, ADD+6*
, ADD+8*, ADD+11*, ADD+19*, ADD+22*, ADD+23*
TIUFUTUR MAIN+1~, AGN+16, AGN+20*, AGN+27, AGN+34, AGN+36*, AGN+48, AGN+52*, AGN+53, AGN+56
, AGN+57, FUTURE+9*
TIUI AGN+1~, AGN+40~*, AGN+41, AGN+43*, AGN+45*, AGN+46, AGN+47, AGN+50*, MORE+1~, MORE+2*
, MORE+3, FUTURE+9*, WRITE+1
TIUII AGN+1~, AGN+46*, AGN+56, BREAK+1, BREAK+2, BREAK+3, BREAK+6, BREAK+15, BREAK+16, WRITE+2
TIUINOUT ENPN+1~, ENPN+4*, ENPN+6
TIULAST AGN+2~, AGN+20, MORE+3, FUTURE+1
TIULDT MAIN~, AGN+16, AGN+20, AGN+34, AGN+48, AGN+57, FUTURE+1
TIULOC ENPN+1~, MAIN~, AGN+16, AGN+20, AGN+34, AGN+48, AGN+57, MORE+3, FUTURE+1
TIUMODE MAIN~, AGN+3*, AGN+12, AGN+14, AGN+16, AGN+22, AGN+27, AGN+34, AGN+38, AGN+39
, AGN+42, AGN+48, AGN+56, AGN+57
TIUNVIS AGN+1~, AGN+60, ADD+23*
TIUOCC MAIN~, AGN+5*, AGN+16, AGN+20, AGN+34, AGN+48, AGN+57, MORE+3, FUTURE+1
TIUOK AGN+1~, AGN+43*, AGN+45, AGN+52, AGN+60, AGN+61, BREAK+1*, BREAK+19*, GETVSIT~, GETVSIT+2
TIUOUT AGN+1~, AGN+4*, AGN+17, AGN+45, AGN+49*, AGN+53*, AGN+54, AGN+58, BREAK+9*, BREAK+15*
, BREAK+16*
TIUPICK AGN+2~, AGN+42*, BREAK+7, BREAK+10
>> TIUPRM0 BREAK+4
TIUPRMT INOUT+1~*, INOUT+3
TIUSDC AGN+2~, AGN+18, AGN+35, AGN+37, VADPT, BREAK+16, DEFER~, DEFER+2, DEFER+5
TIUSSN MAIN~, AGN+4, AGN+16, AGN+34, AGN+48, AGN+57
TIUVDT MAIN~, AGN+16, AGN+20, AGN+34, AGN+48, AGN+57, FUTURE+1
TIUVSIT GETVSIT+1~, GETVSIT+6*, GETVSIT+7, DEFER+1~, DEFER+8
TIUVTRY AGN+2~, AGN+18, AGN+35
TIUX AGN+1~, AGN+14, AGN+18, AGN+19, AGN+27, AGN+35, AGN+37, AGN+39, AGN+41*, AGN+45
, AGN+52, AGN+61*, AGN+62, VADPT, BREAK+16, ADD+6*, WRITE+1~*, WRITE+2
TIUY ENPN~, ENPN+3, ENPN+6, ENPN+7, MAIN~, AGN+16, AGN+18, AGN+34, AGN+35, AGN+48
, AGN+52, AGN+57, VADPT, ADD+1~, ADD+5*, ADD+6
U ENPN+6, BREAK+4, BREAK+7, GETVSIT+3, GETVSIT+4, GETVSIT+5, ADD+9, WRITE+2, SELLOC+3, SELLOC+4
, CREDIT+6, CREDIT+7, VSITYPE+1, VSITYPE+5, VSITYPE+6
VAERR AGN+1~
VASD AGN+1~
VDT GETVSIT+1~, GETVSIT+3*, GETVSIT+6, ADD+1~, ADD+10*, ADD+11, ADD+12, ADD+13, ADD+21, ADD+23
VLOC GETVSIT+1~, GETVSIT+3*, GETVSIT+4, GETVSIT+6, ADD+1~, ADD+7*, ADD+8, ADD+9, ADD+12, ADD+14
, ADD+21
VSIT CREDIT+1~, CREDIT+7*, CREDIT+9
VSTOP GETVSIT+1~, GETVSIT+4*, ADD~, ADD+9*, ADD+20, VSITYPE~, VSITYPE+1*, VSITYPE+2
VSTR ADD~, ADD+21*, ADD+22
VTYPE GETVSIT+1~, GETVSIT+5*, GETVSIT+6, ADD+1~, ADD+20*, ADD+21
WHATNOW AGN+28~, AGN+31*, AGN+33, AGN+36, AGN+37
X AGN+1~, AGN+47, AGN+50*, AGN+51*, AGN+56, AGN+59, BREAK+1*, BREAK+7*, BREAK+8*, BREAK+9
, BREAK+10*, BREAK+11, BREAK+12, BREAK+13, BREAK+14, BREAK+15, BREAK+16, BREAK+17, BREAK+18, BREAK+19
, ADD+1~, SELLOC+1~, DEFER+1~, REMFLAG+1~, VSITYPE+1~, VSITYPE+4*, VSITYPE+5
Y ADD+1~, SELLOC+1~, SELLOC+7, DEFER+1~, REMFLAG+1~, VSITYPE+1~, VSITYPE+5*, VSITYPE+6*, VSITYPE+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All