Last change
on this file since 1757 was 628, checked in by George Lilly, 15 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.