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

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

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
Info |  Source |  Entry Points |  Interaction Calls