|
Last change
on this file since 708 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
