Last change
on this file since 1785 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
520 bytes
|
Line | |
---|
1 | ORCHTAB5 ;SLC/dcm - Add item to tab listing ;4/17/97 11:08
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**25**;Dec 17, 1997
|
---|
3 | ;
|
---|
4 | MED ; -- Medicine Summary of Patient Procedures
|
---|
5 | K ^TMP("MCAR",$J)
|
---|
6 | I '$D(^MCAR(690,"AC",+ORVP)) Q
|
---|
7 | D EN^MCARPS2(+ORVP)
|
---|
8 | N MCARID,J
|
---|
9 | S MCARID=0 F S MCARID=$O(^TMP("OR",$J,"MCAR","OT",MCARID)) Q:MCARID<1 S X=^(MCARID) D
|
---|
10 | . S X1=$P(X,"^") S:$L(X1)'>ORMAX ORTX=1,ORTX(1)=X1 I $L(X1)>ORMAX D TXT^ORCHTAB
|
---|
11 | . S ID=ORVP,DATA(1)=$$PAD^ORCHTAB($P(X,"^",6),16),DATA=1,ORIFN="MED~"_MCARID
|
---|
12 | . D ADD^ORCHTAB
|
---|
13 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.