Routine: TIUMOBJ2

Package	Total	Call Graph
Text Integration Utility	2	$$SETSTR^TIUMOBJ1 ($$FMR,CLS)^TIUMOBJLM
Kernel	1	(CLEAR,IOXY)^XGF
VA FileMan	1	BROWSE^DDBR

Package	Total	Caller Graph
Text Integration Utility	1	TIUMOBJLM

Entry Points

Name	Comments	DBIA/ICR reference
GETDT(P)	; get TIUDATE value(s)
MEDFIX(HV0,HV1)	; med rec fix
MEDREC(P)	; prompt for TIUDATE values for med rec object
README	;
TIUDATE(TIUDATE)	; display med rec start/end values
UPDTMR(P,REP)	; update a med rec object
MRF	;Med Rec Objects Fix
MR	;
IB	;Inpatient Start:
IE	;Inpatient End:
OB	;Outpatient Start:
OE	;Outpatient End:
RM	;Medication Objects 101

Name	Line Occurrences
Function Call: WRITE	Prompt: @Y,! Line Location: MEDFIX+1
Function Call: WRITE	Prompt: Y,! Line Location: MEDREC+2
Function Call: WRITE	Prompt: "Medication Reconciliation TIUDATE Start/End",!,"=============================================",! Line Location: TIUDATE+1
Function Call: WRITE	Prompt: " N/A TIUDATE will equal """" in method.",!! Line Location: TIUDATE+2
Function Call: WRITE	Prompt: !! Line Location: TIUDATE+3
Function Call: WRITE	Prompt: $$SETSTR^TIUMOBJ1(X,"Start Date: T-"_+TIUDATE,(46-$L(X)),$L(X)) Line Location: TIUDATE+4
Function Call: WRITE	Prompt: "Inpatient",?27,"Outpatient",! Line Location: TIUDATE+5
Function Call: WRITE	Prompt: $$SETSTR^TIUMOBJ1(X,"Start Date: T-"_$P(TIUDATE,U,3),28,$L(X)),! Line Location: TIUDATE+6
Function Call: WRITE	Prompt: $$SETSTR^TIUMOBJ1(X," End Date: "_$S($P(TIUDATE,U,4):"T-"_$P(TIUDATE,U,4),1:"TODAY"),30,$L(X)) Line Location: TIUDATE+7
Function Call: WRITE	Prompt: !! Line Location: TIUDATE+8

Name	Line Occurrences
$$GETDT	MEDREC+3
MEDREC	UPDTMR+1

Name	Field # of Occurrence
DELIM	GETDT+1~, GETDT+2, UPDTMR+2~, UPDTMR+4
HELP	MEDREC+1~, MEDREC+8*
HELP(	MEDREC+7, MEDREC+9, MEDREC+13!
HELP(""	MEDREC+9, MEDREC+10, MEDREC+13
HV0	MEDFIX~
HV1	MEDFIX~
I	MEDREC+7~*
J	MEDREC+7~, MEDREC+13
MAX	MEDREC+1~, MEDREC+3*, MEDREC+8, MEDREC+11
P	GETDT~, GETDT+1, GETDT+2, MEDREC~, UPDTMR~, UPDTMR+1
P("Method"	MEDREC+3, UPDTMR+2, UPDTMR+4
P("TIUDATE"	MEDREC+15, UPDTMR+1, UPDTMR+3, UPDTMR+4
PROMPT	MEDREC+1~, MEDREC+6*, MEDREC+11
REP	UPDTMR~
REP(" K TIUDA	TE" , UPDTMR+5*
REP("TIUDATE="	UPDTMR+4*
RESPONSE	MEDREC+1~, MEDREC+4, MEDREC+11*, MEDREC+12, MEDREC+14
TEXT	README+1~
TEXT(	README+2*
TIUDATE	MEDREC+1~, MEDREC+5, MEDREC+8, MEDREC+11, MEDREC+12, MEDREC+15, TIUDATE~, TIUDATE+2, TIUDATE+3, TIUDATE+4 , TIUDATE+6, TIUDATE+7
TIUDATE("Default"	MEDREC+3*, MEDREC+11
U	MEDREC+4, MEDREC+5, MEDREC+8, MEDREC+11, MEDREC+12, MEDREC+14, TIUDATE+3, TIUDATE+4, TIUDATE+6, TIUDATE+7 , UPDTMR+3
X	MEDFIX+1~, MEDREC+1~, MEDREC+2, MEDREC+4, MEDREC+5, MEDREC+8, MEDREC+11, MEDREC+12, README+1~, README+2 , TIUDATE+4~, TIUDATE+5~, TIUDATE+6, TIUDATE+7*
Y	MEDFIX+1~, MEDREC+1~, MEDREC+2, MEDREC+4, MEDREC+10, README+1~, README+2