MCPARAM.m

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 ---MCPARAM   374     printed  Dec 13, 2024@02:15:57                                                                                                                                                                                                      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