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

Call Graph

Call Graph Total: 5

Package Total Call Graph
Text Integration Utility 4 $$PATIENT^TIULA  ($$IDATE,$$NOW)^TIULC  $$DATE^TIULS  PATVADPT^TIULV  
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Text Integration Utility 9 TIUCHLP  TIUDSCNV  TIULD  TIUPUTCN  TIUPUTCP  TIUPUTPF  TIUPUTU  TIUSRVP  
TIUVSIT  
IHS Electronic Health Record 1 BEHODCS  

Entry Points

Name Comments DBIA/ICR reference
AGN ; Loop for handling repeated attempts
TGET(Y,DFN,MDT,LDT,MTYPE,C,MODE) ; Get list of movements
WRITE
VADPT
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)
BREAK ; Handle prompting

External References

Name Field # of Occurrence
Y^DIQ WRITE+5
$$PATIENT^TIULA AGN+7
$$IDATE^TIULC TGET+2, TGET+3
$$NOW^TIULC AGN+5
$$DATE^TIULS AGN+29, WRITE
PATVADPT^TIULV VADPT

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: !?23,"FROM: ",$S($D(^DIC(4,+$P(TIUX,"^",5),0)):$P(^(0),"^",1),1:"")
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: ?55,"TO: ",$S($D(^DIC(42,+$P(TIUX,"^",6),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !?23,"FROM: "
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: Y
  • Line Location: WRITE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(405 WRITE+5
^DG(405.1 - [#405.1] WRITE
^DGPM - [#405] TGET+5
^DGPM("ATID" AGN+9, TGET+4, TGET+5
^DIC(42 - [#42] WRITE+4
^DISV( AGN+28*, BREAK+4
^DPT - [#2] AGN+10

Label References

Name Line Occurrences
AGN AGN+16
BREAK AGN+23, AGN+26, BREAK+5
TGET AGN+11
VADPT AGN+10
WRITE AGN+23

Naked Globals

Name Field # of Occurrence
^( BREAK+4
^(0 TGET+6, WRITE, WRITE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C TGET~, TGET+4*, TGET+6*, TGET+7, WRITE+5~*
D TGET+1~, TGET+6*, TGET+7
DFN MAIN~, AGN+7*, AGN+8, AGN+9, AGN+10, AGN+11, AGN+28, VADPT, TGET~, TGET+4
, TGET+5, BREAK+4
DTIME BREAK+1
DUZ AGN+28, BREAK+4
I TGET+1~, TGET+4*, TGET+5
LDT TGET~, TGET+1*, TGET+3*, TGET+4
MDT TGET~, TGET+1*, TGET+2*, TGET+4
MODE TGET~, TGET+7
MTYPE TGET~, TGET+1*, TGET+4, TGET+5
N TGET+1~, TGET+5*, TGET+6, TGET+7
TIUCNT AGN+1~, AGN+11, AGN+13, AGN+14, AGN+15, AGN+17, AGN+19
TIUDFLT MAIN~, AGN+10, AGN+13
TIUER AGN+1~, AGN+16, AGN+20*, AGN+21, AGN+25, AGN+27, BREAK+2*
TIUI AGN+1~, AGN+20*, AGN+21*, AGN+22, AGN+23, WRITE
TIUII AGN+1~, AGN+22*, AGN+26, BREAK+1, BREAK+2
TIULDT MAIN~, AGN+5*, AGN+11
TIULOC MAIN~
TIUMDT MAIN~, AGN+4*, AGN+11
TIUMLST AGN+1~, AGN+11
TIUMLST( AGN+21, AGN+22, AGN+28, BREAK+1, BREAK+2, BREAK+5
TIUMLST("TIUMVDA" BREAK+4
TIUMLST(1 AGN+13
TIUMODE MAIN~, AGN+3*, AGN+9, AGN+10, AGN+11, AGN+13, AGN+14, AGN+15, AGN+16
TIUMTSTR AGN+1~, AGN+6*, AGN+9, AGN+17, AGN+18
TIUMTYP MAIN~, AGN+2*, AGN+9, AGN+10, AGN+11, AGN+17, AGN+18
TIUOK AGN+1~, AGN+20*, AGN+21, AGN+28, BREAK+4*, BREAK+6*
TIUOUT AGN+1~, AGN+8*, AGN+16, AGN+24, AGN+25*, AGN+26, AGN+27*
TIUSSN MAIN~, AGN+7
TIUX AGN+1~, AGN+10*, AGN+13*, AGN+14, AGN+22*, AGN+28*, AGN+29, VADPT, BREAK+4*, WRITE
, WRITE+4, WRITE+5
TIUY MAIN~, VADPT
U AGN+9, AGN+17, AGN+18, AGN+29, WRITE+5
X AGN+1~, BREAK+1*, BREAK+2, BREAK+3, BREAK+4, BREAK+5, BREAK+6
Y TGET~, WRITE+5~*
Y( TGET+6*
Y("TIUMVD" TGET+7*
Y("TIUMVDA" TGET+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All