10 lines
365 B
Mathematica
10 lines
365 B
Mathematica
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
|