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

Package: Text Integration Utility

Routine: TIUMOVE


Information

TIUMOVE ; SLC/JER - Patient movement look-up ;10/26/95 21:17

Source Information

Source file <TIUMOVE.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN(TIUY,DFN,TIUSSN,TIUMDT,TIULDT,TIUMTYP,TIUDFLT,TIUMODE,TIULOC) ;
; Call with: .TIUY - (by ref) array in which demographic, movement,
; & visit data are returned
; [DFN] - patient file entry number
; [TIUSSN] - patient SSN
; [TIUMDT] - movement date
; [TIULDT] - upper bound of date range
; [TIUMTYP] - MAS Movement event type
; [TIUDFLT] - Default movement (e.g., "LAST")
; [TIUMODE] - mode flag 0 ==> Silent
; 1 ==> Interactive (default)
AGN ; Loop for handling repeated attempts
VADPT
TGET(Y,DFN,MDT,LDT,MTYPE,C,MODE) ; Get list of movements
BREAK ; Handle prompting
WRITE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No ",$P(TIUMTSTR,U,TIUMTYP),"S on file.",!
  • Line Location: AGN+9
Function Call: WRITE
  • Prompt: !,"No ",$P(TIUMTSTR,U,TIUMTYP),"S within search parameters.",!
  • Line Location: AGN+17
Function Call: WRITE
  • Prompt: !,"The following ",$P(TIUMTSTR,U,TIUMTYP)
  • Line Location: AGN+18
Function Call: WRITE
  • Prompt: $S(+TIUCNT>1:"(S) are",1:" is")," available:"
  • Line Location: AGN+19
Function Call: WRITE
  • Prompt: " ",$$DATE^TIULS(+$P(TIUX,U,2),"AMTH DD CCYY@HR:MIN")
  • Line Location: AGN+29
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",TIUII
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT"
  • Condition for execution: $D(TIUMLST(TIUII+1))
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: ": "
  • Line Location: BREAK+1
Function Call: WRITE
  • Prompt: !!,$C(7),"INVALID RESPONSE",!
  • Line Location: BREAK+5
Function Call: WRITE
  • Prompt: ?55,"TO: ",$S($D(^DIC(42,+$P(TIUX,"^",6),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: !?23,"FROM: ",$S($D(^DIC(4,+$P(TIUX,"^",5),0)):$P(^(0),"^",1),1:"")
  • Line Location: WRITE+1
Info |  Source |  Entry Points |  Interaction Calls