ORCHTAB5 ;SLC/dcm - Add item to tab listing ;4/17/97 11:08
;;3.0;ORDER ENTRY/RESULTS REPORTING;**25,263**;Dec 17, 1997;Build 9
;;Per VHA Directive 2004-038, this routine should not be modified.
;
MED ; -- Medicine Summary of Patient Procedures
K ^TMP("MCAR",$J)
;I '$D(^MCAR(690,"AC",+ORVP)) Q
D EN^MCARPS2(+ORVP)
N MCARID,J
S MCARID=0 F S MCARID=$O(^TMP("OR",$J,"MCAR","OT",MCARID)) Q:MCARID<1 S X=^(MCARID) D
. S X1=$P(X,"^") S:$L(X1)'>ORMAX ORTX=1,ORTX(1)=X1 I $L(X1)>ORMAX D TXT^ORCHTAB
. S ID=ORVP,DATA(1)=$$PAD^ORCHTAB($P(X,"^",6),16),DATA=1,ORIFN="MED~"_MCARID
. D ADD^ORCHTAB
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORCHTAB5 615 printed Nov 22, 2024@17:38:28 Page 2
ORCHTAB5 ;SLC/dcm - Add item to tab listing ;4/17/97 11:08
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**25,263**;Dec 17, 1997;Build 9
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
MED ; -- Medicine Summary of Patient Procedures
+1 KILL ^TMP("MCAR",$JOB)
+2 ;I '$D(^MCAR(690,"AC",+ORVP)) Q
+3 DO EN^MCARPS2(+ORVP)
+4 NEW MCARID,J
+5 SET MCARID=0
FOR
SET MCARID=$ORDER(^TMP("OR",$JOB,"MCAR","OT",MCARID))
if MCARID<1
QUIT
SET X=^(MCARID)
Begin DoDot:1
+6 SET X1=$PIECE(X,"^")
if $LENGTH(X1)'>ORMAX
SET ORTX=1
SET ORTX(1)=X1
IF $LENGTH(X1)>ORMAX
DO TXT^ORCHTAB
+7 SET ID=ORVP
SET DATA(1)=$$PAD^ORCHTAB($PIECE(X,"^",6),16)
SET DATA=1
SET ORIFN="MED~"_MCARID
+8 DO ADD^ORCHTAB
End DoDot:1
+9 QUIT
