source:
WorldVistAEHR/trunk/r/MEDICINE-MC/MCPARAM.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 365 bytes |
Rev | Line | |
---|---|---|
[613] | 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.