BDMVRL7.m

BDMVRL7 ; IHS/CMI/LAB - VIEW PT RECORD CON'T ;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**2,8,12**;JUN 14, 2007;Build 51

 ;MOVED VARIOUS SUBROUTINES INTO BDMVRL42

 ;

 ;

 ;

TD(P,EDATE) ;EP

 Q $$TD^BDMS9B3(P,$$DOB^AUPNPAT(P),DT,"D")  ;cmi/maw 9/21/06, use hmr call for this

 ;

BDMVRL7   ; IHS/CMI/LAB - VIEW PT RECORD CON'T ;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**2,8,12**;JUN 14, 2007;Build 51

 +2       ;MOVED VARIOUS SUBROUTINES INTO BDMVRL42

 +3       ;

 +4       ;

 +5       ;

TD(P,EDATE) ;EP

 +1       ;cmi/maw 9/21/06, use hmr call for this

           QUIT $$TD^BDMS9B3(P,$$DOB^AUPNPAT(P),DT,"D")

 +2       ;