Routine: PXRMDNVA

Package	Total	Call Graph
Clinical Reminders	4	($$DURATION,$$EDATE)^PXRMDATE $$INSCHR^PXRMEXLC EVALTERM^PXRMINDX FORMATS^PXRMTEXT
Outpatient Pharmacy	1	NVA^PSOPXRM1

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

Entry Points

Name	Comments	DBIA/ICR reference
GETDATA(DAS,FIEVT)	;Return data for an non-VA med finding.
EVALTERM(DFN,FINDPA,ENODE,TERMARR,TFIEVAL)	;Evaluate terms.
MHVOUT(INDENT,IFIEVAL,NLINES,TEXT)	;Produce the MHV output.
OUTPUT(INDENT,IFIEVAL,NLINES,TEXT)	;Produce the clinical

Name	Field # of Occurrence
NVA^PSOPXRM1	GETDATA+2
$$DURATION^PXRMDATE	GETDATA+5
$$EDATE^PXRMDATE	MHVOUT+3, MHVOUT+5, OUTPUT+6, OUTPUT+7, OUTPUT+9
$$INSCHR^PXRMEXLC	OUTPUT+4
EVALTERM^PXRMINDX	EVALTERM+1
FORMATS^PXRMTEXT	MHVOUT+7, OUTPUT+15

Name	Field # of Occurrence
DAS	GETDATA~, GETDATA+2
DATE	MHVOUT+1~, MHVOUT+4, MHVOUT+5, MHVOUT+6, OUTPUT+2~, OUTPUT+5, OUTPUT+6, OUTPUT+8, OUTPUT+9*, OUTPUT+10
DFN	EVALTERM~, EVALTERM+1
ENODE	EVALTERM~, EVALTERM+1
FIEVT	GETDATA~, GETDATA+2
FIEVT("DISCON	TINUED DATE" , GETDATA+5
FIEVT("DOCUME	NTED DATE" , GETDATA+4
FIEVT("DURATION"	GETDATA+5*
FIEVT("START	DATE" , GETDATA+4*, GETDATA+5
FIEVT("STATUS"	GETDATA+3
FIEVT("VALUE"	GETDATA+3*
FINDPA	EVALTERM~, EVALTERM+1
IFIEVAL	MHVOUT~, OUTPUT~
IFIEVAL("DATE"	OUTPUT+5
IFIEVAL("DISC	ONTINUED DATE" , MHVOUT+4, OUTPUT+8
IFIEVAL("DOSA	GE FORM" , OUTPUT+12
IFIEVAL("DOSAGE"	OUTPUT+13
IFIEVAL("DURATION"	OUTPUT+11
IFIEVAL("MEDI	CATION ROUTE" , OUTPUT+14
IFIEVAL("ORDE	RABLE ITEM" , MHVOUT+2, OUTPUT+4
IFIEVAL("STAR	T DATE" , MHVOUT+3, OUTPUT+7
IFIEVAL("STATUS"	OUTPUT+6
INDENT	MHVOUT~, MHVOUT+7, OUTPUT~, OUTPUT+4, OUTPUT+15
JND	MHVOUT+1~, MHVOUT+8, OUTPUT+2~, OUTPUT+16
NLINES	MHVOUT~, MHVOUT+8, OUTPUT~, OUTPUT+3, OUTPUT+4, OUTPUT+16, OUTPUT+17
NOUT	MHVOUT+1~, MHVOUT+7, MHVOUT+8, OUTPUT+2~, OUTPUT+15, OUTPUT+16
>> PXRMRM	MHVOUT+7, OUTPUT+15
TEMP	MHVOUT+1~, MHVOUT+2, MHVOUT+3, MHVOUT+6, MHVOUT+7, OUTPUT+2~, OUTPUT+6, OUTPUT+7, OUTPUT+10, OUTPUT+11* , OUTPUT+12, OUTPUT+13, OUTPUT+14*, OUTPUT+15
TERMARR	EVALTERM~, EVALTERM+1
TEXT	MHVOUT~, OUTPUT~
TEXT(	MHVOUT+8, OUTPUT+4, OUTPUT+16, OUTPUT+17
TEXTOUT	MHVOUT+1~, MHVOUT+7, OUTPUT+2~, OUTPUT+15
TEXTOUT(	MHVOUT+8, OUTPUT+16
TFIEVAL	EVALTERM~, EVALTERM+1