- 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 Jan 18, 2025@03:17:08 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