PSOQCF04	;HINES/RMS - NON-VA MEDS DOCUMENTATION DATE ; 30 Nov 2007  7:55 AM
	;;7.0;OUTPATIENT PHARMACY;**294**;DEC 1997;Build 13
	;
NVADT(DFN,TEST,DATE,VALUE,TEXT)	;
	N PSOQL,PSOQDT,PSOQARR,PSOQRDT
	S TEST=0,DATE=""
	D ^PSOHCSUM
	Q:'$D(^TMP("PSOO",$J,"NVA"))
	S PSOQL=0 F  S PSOQL=$O(^TMP("PSOO",$J,"NVA",PSOQL)) Q:'+PSOQL  D  ;
	. S PSOQDT=9999999-$P($G(^TMP("PSOO",$J,"NVA",PSOQL,0)),"^",5)
	. S PSOQARR(PSOQDT)=""
	S PSOQRDT=$O(PSOQARR(0)) Q:PSOQRDT=9999999
	S TEST=1,DATE=9999999-PSOQRDT,TEXT=$$FMTE^XLFDT(DATE,"D")
	Q