source:
WorldVistAEHR/tag/Release_6_08/r/MEDICINE-MC/MCPARAM.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 365 bytes |
Line | |
---|---|
1 | MCPARAM ;WISC/TJK-CHECK FOR MEDICINE PARAMETERS ;7/8/92 08:53 |
2 | ;;2.3;Medicine;;09/13/1996 |
3 | ORDER ; |
4 | K MCOEON I $D(^MCAR(690.1,1,0)),$P(^(0),U,3)="Y" S MCOEON="" |
5 | Q |
6 | QTASK Q:$P($G(^MCAR(690.1,1,0)),U,2)'="Y" Q:'$D(MCARGDA)!'$D(MCFILE) |
7 | S ZTRTN="^MCQH",ZTSAVE("MCFILE")="",ZTSAVE("MCARGDA")="" |
8 | S ZTDTH=$H,ZTIO="",ZTDESC="MEDICINE-PCC UPDATE",ZTREQ="@" D ^%ZTLOAD |
9 | Q |
Note:
See TracBrowser
for help on using the repository browser.