MCPARAM ;WISC/TJK-CHECK FOR MEDICINE PARAMETERS ;7/8/92  08:53
 ;;2.3;Medicine;;09/13/1996
ORDER ;
 K MCOEON I $D(^MCAR(690.1,1,0)),$P(^(0),U,3)="Y" S MCOEON=""
 Q
QTASK Q:$P($G(^MCAR(690.1,1,0)),U,2)'="Y"  Q:'$D(MCARGDA)!'$D(MCFILE)
 S ZTRTN="^MCQH",ZTSAVE("MCFILE")="",ZTSAVE("MCARGDA")=""
 S ZTDTH=$H,ZTIO="",ZTDESC="MEDICINE-PCC UPDATE",ZTREQ="@" D ^%ZTLOAD
 Q