source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORCHTAB5.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 520 bytes
RevLine 
[613]1ORCHTAB5 ;SLC/dcm - Add item to tab listing ;4/17/97 11:08
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**25**;Dec 17, 1997
3 ;
4MED ; -- 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.