Routine: TIUMOBJ2

Information

TIUMOBJ2 ;XAN/AJB - MEDICATION OBJECT LIST MANAGER ;Aug 29, 2025@06:54:46

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