| 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.
