Routine: PXRMDIN

Package	Total	Call Graph
Clinical Reminders	4	($$DURATION,$$EDATE)^PXRMDATE $$INSCHR^PXRMEXLC EVALTERM^PXRMINDX FORMATS^PXRMTEXT
Inpatient Medications	1	OEL^PSJPXRM1
Pharmacy Data Management	1	$$DRUG^PSSCLINR

Package	Total	Caller Graph
Clinical Reminders	5	PXRMDATA PXRMDGEN PXRMDRCL PXRMDRUG PXRMTERM

Entry Points

Name	Comments	DBIA/ICR reference
MHVOUT(INDENT,IFIEVAL,NLINES,TEXT)	;Produce the MHV output.
GETDATA(DAS,FIEVT)	;Return data for an inpatient drug finding.
EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL)	;Evaluate terms.
OUTPUT(INDENT,IFIEVAL,NLINES,TEXT)	;Produce the clinical
GETFNAME(DRUG,FIEVT)	;Return the name of the drug.

Name	Field # of Occurrence
OEL^PSJPXRM1	GETDATA+2
$$DRUG^PSSCLINR	GETFNAME+1, MHVOUT+3, OUTPUT+4
$$DURATION^PXRMDATE	GETDATA+6
$$EDATE^PXRMDATE	MHVOUT+5, MHVOUT+6, OUTPUT+7, OUTPUT+8, OUTPUT+9
$$INSCHR^PXRMEXLC	OUTPUT+6
EVALTERM^PXRMINDX	EVALTERM+1
FORMATS^PXRMTEXT	MHVOUT+7, OUTPUT+11

Name	Field # of Occurrence
DAS	GETDATA~, GETDATA+2
DFN	EVALTERM~, EVALTERM+1
DRUG	GETFNAME~, GETFNAME+1, MHVOUT+1~, MHVOUT+2, MHVOUT+3, MHVOUT+4, OUTPUT+2~, OUTPUT+3, OUTPUT+4, OUTPUT+6
ENODE	EVALTERM~, EVALTERM+1
FIEVT	GETDATA~, GETDATA+2, GETFNAME~
FIEVT("DURATION"	GETDATA+6*
FIEVT("START	DATE" , GETDATA+4*, GETDATA+6
FIEVT("START"	GETDATA+4!
FIEVT("STAT"	GETDATA+3!
FIEVT("STATUS"	GETDATA+3*
FIEVT("STOP D	ATE" , GETDATA+5*, GETDATA+6
FIEVT("STOP"	GETDATA+5!
FIEVT("VALUE"	GETDATA+3*
FINDPA	EVALTERM~, EVALTERM+1
IFIEVAL	MHVOUT~, OUTPUT~
IFIEVAL("DATE"	OUTPUT+7
IFIEVAL("DISP	ENSE DRUG" , MHVOUT+2, OUTPUT+3
IFIEVAL("DURATION"	OUTPUT+10
IFIEVAL("STAR	T DATE" , MHVOUT+5, OUTPUT+8
IFIEVAL("STATUS"	OUTPUT+7
IFIEVAL("STOP	DATE" , MHVOUT+6, OUTPUT+9
INDENT	MHVOUT~, MHVOUT+7, OUTPUT~, OUTPUT+6, OUTPUT+11
JND	MHVOUT+1~, MHVOUT+8, OUTPUT+2~, OUTPUT+12
NLINES	MHVOUT~, MHVOUT+8, OUTPUT~, OUTPUT+5, OUTPUT+6, OUTPUT+12, OUTPUT+13
NOUT	MHVOUT+1~, MHVOUT+7, MHVOUT+8, OUTPUT+2~, OUTPUT+11, OUTPUT+12
>> PXRMRM	MHVOUT+7, OUTPUT+11
TEMP	MHVOUT+1~, MHVOUT+4, MHVOUT+5, MHVOUT+6, MHVOUT+7, OUTPUT+2~, OUTPUT+7, OUTPUT+8, OUTPUT+9, OUTPUT+10* , OUTPUT+11
TERMARR	EVALTERM~, EVALTERM+1
TEXT	MHVOUT~, OUTPUT~
TEXT(	MHVOUT+8, OUTPUT+6, OUTPUT+12, OUTPUT+13
TEXTOUT	MHVOUT+1~, MHVOUT+7, OUTPUT+2~, OUTPUT+11
TEXTOUT(	MHVOUT+8, OUTPUT+12
TFIEVAL	EVALTERM~, EVALTERM+1