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:
601 bytes
|
Line | |
---|
1 | ORCHTAB5 ;SLC/dcm - Add item to tab listing ;4/17/97 11:08
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**25,263**;Dec 17, 1997;Build 9
|
---|
3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | MED ; -- Medicine Summary of Patient Procedures
|
---|
6 | K ^TMP("MCAR",$J)
|
---|
7 | ;I '$D(^MCAR(690,"AC",+ORVP)) Q
|
---|
8 | D EN^MCARPS2(+ORVP)
|
---|
9 | N MCARID,J
|
---|
10 | S MCARID=0 F S MCARID=$O(^TMP("OR",$J,"MCAR","OT",MCARID)) Q:MCARID<1 S X=^(MCARID) D
|
---|
11 | . S X1=$P(X,"^") S:$L(X1)'>ORMAX ORTX=1,ORTX(1)=X1 I $L(X1)>ORMAX D TXT^ORCHTAB
|
---|
12 | . S ID=ORVP,DATA(1)=$$PAD^ORCHTAB($P(X,"^",6),16),DATA=1,ORIFN="MED~"_MCARID
|
---|
13 | . D ADD^ORCHTAB
|
---|
14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.