Routine: TIUMOVE

Information

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

Source file <TIUMOVE.m>

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

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

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

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

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

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

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*