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