source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORCHTAB5.m@ 1757

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 
1ORCHTAB5 ;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 ;
5MED ; -- 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.