ORCHTAB5.m

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 ---ORCHTAB5   615     printed  Apr 09, 2024@21:34:56                                                                                                                                                                                                     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