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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCPARAM 374 printed Nov 22, 2024@17:25:59 Page 2
MCPARAM ;WISC/TJK-CHECK FOR MEDICINE PARAMETERS ;7/8/92 08:53
+1 ;;2.3;Medicine;;09/13/1996
ORDER ;
+1 KILL MCOEON
IF $DATA(^MCAR(690.1,1,0))
IF $PIECE(^(0),U,3)="Y"
SET MCOEON=""
+2 QUIT
QTASK if $PIECE($GET(^MCAR(690.1,1,0)),U,2)'="Y"
QUIT
if '$DATA(MCARGDA)!'$DATA(MCFILE)
QUIT
+1 SET ZTRTN="^MCQH"
SET ZTSAVE("MCFILE")=""
SET ZTSAVE("MCARGDA")=""
+2 SET ZTDTH=$HOROLOG
SET ZTIO=""
SET ZTDESC="MEDICINE-PCC UPDATE"
SET ZTREQ="@"
DO ^%ZTLOAD
+3 QUIT