BDPTEST.m

BDPTEST ; IHS/CMI/TMJ - TEST ROUTINE ON PARM PASS ;

 ;;1.0;DESIGNATED PROVIDER MGT SYSTEM;;SEP 10, 2004

 ;

 S PAT=468

 S TYPE=1

 S PROV=6

 S X=$$CREATE^BDPPASS(PAT,TYPE,PROV)

 Q

BDPTEST   ; IHS/CMI/TMJ - TEST ROUTINE ON PARM PASS ;

 +1       ;;1.0;DESIGNATED PROVIDER MGT SYSTEM;;SEP 10, 2004

 +2       ;

 +3        SET PAT=468

 +4        SET TYPE=1

 +5        SET PROV=6

 +6        SET X=$$CREATE^BDPPASS(PAT,TYPE,PROV)

 +7        QUIT