Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
365 bytes
|
Rev | Line | |
---|
[628] | 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.