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;09-Apr-2014 16:23;DU

Source Information

Source file <TIUVSIT.m>

Call Graph

Call Graph Total: 22

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  
IHS Mods To Text Integration Utilities 2 VV^BTIUPCC  (ADD,FINDVST)^BTIUVSIT  
Kernel 2 ($$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
VA Fileman 2 ^DIC  ^DIE  
RPC Broker 1 $$BROKER^XWBLIB  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Caller Graph Total: 31

Package Total Caller Graph
Text Integration Utility 23 TIUCHLP  TIUCNFIX  TIUEDI3  TIUEDIM  TIUEDIT  TIUEDITR  TIUGEDIT  TIUHL7U2  
TIULD  TIUPFFIX  TIUPNAPI  TIUPNFIX  TIUPUTCN  TIUPUTCP  TIUPUTPF  TIUPUTPN  
TIUPXAP2  TIUPXAPC  TIURA  TIURD3  TIURS  TIUSRVP  TIUVISIT  
IHS Mods To Text Integration Utilities 6 BTIUCHLP  BTIUEDIT  BTIULD  BTIUPUTP  BTIURS  BTIUVSIT  
IHS Electronic Health Record 1 BEHODCP  
Order Entry Results Reporting 1 ORWPT16  

Entry Points

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

External References

Name Field # of Occurrence
VV^BTIUPCC BREAK+18
ADD^BTIUVSIT ADD+8
FINDVST^BTIUVSIT AGN+7
^DIC SELLOC+6
^DIE DEFER+6, REMFLAG+2
$$SDAPI^SDAMA301 AGN+11
$$PATIENT^TIULA AGN+4
DOCPRM^TIULC1 CREDIT+4
GETTIU^TIULD CREDIT+8
$$PERSLOC^TIULE SELLOC+3
$$DATE^TIULS AGN+33, IHS1+26, ADD+18
PATVADPT^TIULV VADPT
MAIN^TIUMOVE ENPN+4, ENPN+8
$$WORKOK^TIUPXAP1 DEFER+4
$$LNKVST^TIUPXAP3 DEFER+8
CREDIT^TIUPXAPI CREDIT+9
$$READ^TIUU INOUT+3, ADD+5, ADD+13, VSITYPE+5
MAIN^TIUVISIT AGN+19, AGN+37, IHS1+12, IHS1+21
$$NOTFOUND^TIUVSIT1 AGN+34
GETAPPT^TIUVSIT1 AGN+23, MORE+3, FUTURE+1, GETAPPT+1
HELP^TIUVSITH BREAK+19
$$FMADD^XLFDT AGN+33, FUTURE+7
$$NOW^XLFDT FUTURE+5
$$UP^XLFSTR AGN+34, BREAK+15, 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+14
Function Call: WRITE
  • Prompt: !!,"No SCHEDULED APPOINTMENTS on file"
  • Line Location: AGN+18
Function Call: WRITE
  • Prompt: !!,$G(^TMP("TIUVERR",$J)),!
  • Line Location: AGN+26
Function Call: WRITE
  • Prompt: ^TMP("TIUVERR",$J,115),!
  • Line Location: AGN+27
Function Call: WRITE
  • Prompt: !!,"No SCHEDULED APPOINTMENTS found through "
  • Line Location: AGN+32
Function Call: WRITE
  • Prompt: $$DATE^TIULS($$FMADD^XLFDT(DT,1),"AMTH DD, CCYY"),"...",!
  • Line Location: AGN+33
Function Call: WRITE
  • Prompt: !!,"The following VISITS are available:",!
  • Line Location: IHS1+8
Function Call: WRITE
  • Prompt: " ",$$DATE^TIULS(+$P(TIUX,";",2),"AMTH DD CCYY@HR:MIN")
  • Line Location: IHS1+26
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",TIUII,", or",!
  • Line Location: BREAK+2
Function Call: WRITE
  • Prompt: "<U>NSCHEDULED VISITS, "
  • Line Location: BREAK+5
Function Call: WRITE
  • Prompt: "<V>IEW VISITS, "
  • Line Location: BREAK+6
Function Call: WRITE
  • Prompt: "<F>UTURE VISITS, "
  • Line Location: BREAK+7
Function Call: WRITE
  • Prompt: !!,$C(7),"INVALID RESPONSE",!
  • Line Location: BREAK+27
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+17
Function Call: WRITE
  • Prompt: " is scheduled for ",$$DATE^TIULS(TIUAPDT,"MM/DD/YY HR:MIN")
  • Line Location: ADD+18
Function Call: WRITE
  • Prompt: " at this location..."
  • Line Location: ADD+19
Function Call: WRITE
  • Prompt: !!,"Please select the existing appointment, rather than creating a "
  • Line Location: ADD+20
Function Call: WRITE
  • Prompt: "redundant one.",!
  • Line Location: ADD+21
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
  • DIE
  • Line Location:
    • DEFER+6
    • REMFLAG+2
Routine Call
  • DIC
  • Line Location:
    • SELLOC+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] VSITYPE+1
^DISV( SELLOC+4
^DPT - [#2] ENPN+4, INOUT+2
^SC - [#44] GETVSIT+5, ADD+12, SELLOC+4
^TIU(8925 - [#8925] CREDIT+2
^TMP("TIUIHSV" GETVSIT+1
^TMP("TIUNOT" AGN!, CLEAN!, ADD+15, ADD+17
^TMP("TIUVDT" AGN!, CLEAN!, MORE+2
^TMP("TIUVERR" AGN+25, AGN+26, AGN+27, AGN+28!, FUTURE+2, FUTURE+3, FUTURE+4
^TMP("TIUVN" AGN!, AGN+23, AGN+30, IHS1+9, CLEAN!, BREAK+10, BREAK+23, BREAK+25, BREAK+27, WRITE+1
^TMP("TIUVNI" AGN!, AGN+41, IHS1+3, IHS1+5, CLEAN!, FUTURE+5, FUTURE+7, GETVSIT+3
^TMP($J AGN!, AGN+12!

Label References

Name Line Occurrences
$$GETVSIT IHS1+4, IHS1+25
$$INOUT ENPN+5
$$SELLOC ADD+10
$$VSITYPE ADD+23
ADD AGN+21, AGN+38, AGN+40, BREAK+25
AGN AGN+30, IHS1+17, IHS1+19, IHS1+20, IHS1+23
BREAK IHS1+11, IHS1+20, BREAK+18, BREAK+27
CLEAN IHS1+18, IHS1+22
IHS1 AGN+7
MAIN ENPN+3, ENPN+7
MORE BREAK+20
VADPT AGN+22, AGN+30, IHS1+2
WRITE IHS1+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLOWNEW ENPN~, ENPN+3, ENPN+7
APPT GETVSIT+2~, GETVSIT+3*, GETVSIT+4, GETVSIT+7
ASK ADD~, ADD+2*, ADD+3, ADD+6
BTIUQ AGN+7!
>> BTIUVSIT GETVSIT+1*
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+4, ENPN+7, ENPN+8, MAIN~, AGN+4*, AGN+10, AGN+19
, AGN+21, AGN+23, AGN+37, AGN+38, AGN+40, IHS1+12, IHS1+21, VADPT, BREAK+25, INOUT+2
, MORE+3, FUTURE+1, ADD~, ADD+8, 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+35
DIRUT ENPN+1~, ENPN+6
DR ADD+1~, DEFER+1~, DEFER+4*, DEFER+5*, REMFLAG+1~, REMFLAG+2*
DT AGN+33, FUTURE+7
DTIME BREAK+12
DTOUT ENPN+1~, AGN+35
DUOUT ENPN+1~, AGN+35
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+19, AGN+21, AGN+30, AGN+37, AGN+38, IHS1+12, IHS1+21, BREAK+8
, BREAK+23, BREAK+25
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+15*, ADD+16, ADD+17, ADD+18, SELLOC+1~
TIUAPPTS AGN+2~, AGN+11*, AGN+13, AGN+15, AGN+17, AGN+22
TIUARR AGN+2~, AGN+11
TIUARR("FLDS" AGN+9*
TIUARR("MAX" AGN+10*
TIUARR(1 AGN+10*
TIUARR(4 AGN+10*
TIUCAT MAIN~, MAIN+2*
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+19, AGN+37, IHS1+2, IHS1+5, IHS1+12, IHS1+21
TIUDPRM CREDIT+1~, CREDIT+4
TIUDPRM(0 CREDIT+6
TIUER AGN+1~, IHS1+6*, IHS1+9, IHS1+16, IHS1+19, IHS1+23, BREAK+16*, BREAK+23*, BREAK+25, ADD+6*
, ADD+11*, ADD+14*, ADD+22*, ADD+25*, ADD+26*
TIUFUTUR MAIN+1~, AGN+19, AGN+23*, AGN+30, AGN+37, AGN+39*, IHS1+12, IHS1+16*, IHS1+17, IHS1+20
, IHS1+21, FUTURE+9*
TIUI AGN+1~, IHS1+3~*, IHS1+4, IHS1+6*, IHS1+9*, IHS1+10, IHS1+11, IHS1+14*, BREAK+18*, MORE+1~
, MORE+2*, MORE+3, FUTURE+9*, WRITE+1
TIUII AGN+1~, IHS1+10*, IHS1+20, BREAK+1, BREAK+2, BREAK+6, BREAK+10, BREAK+23, BREAK+25, WRITE+2
TIUINOUT ENPN+1~, ENPN+5*, ENPN+7
TIULAST AGN+2~, AGN+23, MORE+3, FUTURE+1
TIULDT MAIN~, AGN+19, AGN+23, AGN+37, IHS1+12, IHS1+21, FUTURE+1
TIULOC ENPN+1~, MAIN~, AGN+19, AGN+23, AGN+37, IHS1+12, IHS1+21, MORE+3, FUTURE+1
TIUMODE MAIN~, AGN+3*, AGN+15, AGN+17, AGN+19, AGN+25, AGN+30, AGN+37, AGN+41, IHS1+2
, IHS1+5, IHS1+12, IHS1+20, IHS1+21
TIUNVIS AGN+1~, IHS1+24, ADD+26*
TIUOCC MAIN~, AGN+5*, AGN+19, AGN+23, AGN+37, IHS1+12, IHS1+21, MORE+3, FUTURE+1
TIUOK AGN+1~, IHS1+6*, IHS1+9, IHS1+16, IHS1+24, IHS1+25, BREAK+1*, BREAK+28*, GETVSIT~, GETVSIT+1
, GETVSIT+3
TIUOUT AGN+1~, AGN+4*, AGN+20, IHS1+9, IHS1+13*, IHS1+17*, IHS1+18, IHS1+22, BREAK+16*, BREAK+23*
, BREAK+25*
TIUPICK AGN+2~, IHS1+5*, BREAK+17
TIUPRMT INOUT+1~*, INOUT+3
TIUSDC AGN+2~, AGN+21, AGN+38, AGN+40, VADPT, BREAK+25, ADD+8, DEFER~, DEFER+2, DEFER+5
TIUSSN MAIN~, AGN+4, AGN+19, AGN+37, IHS1+12, IHS1+21
TIUVDT MAIN~, AGN+19, AGN+23, AGN+37, IHS1+12, IHS1+21, FUTURE+1
TIUVSIT GETVSIT+2~, GETVSIT+8*, GETVSIT+9, DEFER+1~, DEFER+8
TIUVTRY AGN+2~, AGN+21, AGN+38
TIUX AGN+1~, AGN+17, AGN+21, AGN+22, AGN+30, AGN+38, AGN+40, IHS1+2, IHS1+4*, IHS1+9
, IHS1+16, IHS1+25*, IHS1+26, VADPT, BREAK+25, ADD+6*, WRITE+1~*, WRITE+2
TIUY ENPN~, ENPN+3, ENPN+4, ENPN+7, ENPN+8, MAIN~, AGN+19, AGN+21, AGN+37, AGN+38
, IHS1+12, IHS1+16, IHS1+21, VADPT, ADD+1~, ADD+5*, ADD+6
U ENPN+7, GETVSIT+4, GETVSIT+5, GETVSIT+7, ADD+12, WRITE+2, SELLOC+3, SELLOC+4, CREDIT+6, CREDIT+7
, VSITYPE+1, VSITYPE+5, VSITYPE+6
VAERR AGN+1~
VASD AGN+1~
VDT GETVSIT+2~, GETVSIT+4*, GETVSIT+8, ADD+1~, ADD+13*, ADD+14, ADD+15, ADD+16, ADD+24, ADD+26
VLOC GETVSIT+2~, GETVSIT+4*, GETVSIT+5, GETVSIT+8, ADD+1~, ADD+10*, ADD+11, ADD+12, ADD+15, ADD+17
, ADD+24
VSIT CREDIT+1~, CREDIT+7*, CREDIT+9
VSTOP GETVSIT+2~, GETVSIT+5*, ADD~, ADD+12*, ADD+23, VSITYPE~, VSITYPE+1*, VSITYPE+2
VSTR ADD~, ADD+24*, ADD+25
VTYPE GETVSIT+2~, GETVSIT+7*, GETVSIT+8, ADD+1~, ADD+23*, ADD+24
WHATNOW AGN+31~, AGN+34*, AGN+36, AGN+39, AGN+40
X AGN+1~, IHS1+11, IHS1+14*, IHS1+15*, IHS1+20, IHS1+23, BREAK+1*, BREAK+12*, BREAK+15*, BREAK+16
, BREAK+17*, BREAK+18, BREAK+19, BREAK+20, BREAK+23, BREAK+25, BREAK+26, BREAK+27, BREAK+28, 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