ORDEAAUD.m

ORDEAAUD ;ISL/TC & JMH & JLC - DEA related items ;08/27/12  07:49

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**306**;Dec 17, 1997;Build 43

 ;

AUDIT ;

 N A,ORI

 S A="",ORI=0

 F  S A=A_">>"_$ST(ORI,"PLACE"),ORI=ORI+1 Q:ORI>$ST(-1)

 S ^ORPA(101.52,DA,8)=A

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORDEAAUD   259     printed  Dec 13, 2024@02:29:58                                                                                                                                                                                                     Page 2

ORDEAAUD  ;ISL/TC & JMH & JLC - DEA related items ;08/27/12  07:49

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**306**;Dec 17, 1997;Build 43

 +2       ;

AUDIT     ;

 +1        NEW A,ORI

 +2        SET A=""

           SET ORI=0

 +3        FOR 

               SET A=A_">>"_$STACK(ORI,"PLACE")

               SET ORI=ORI+1

               if ORI>$STACK(-1)

                   QUIT 

 +4        SET ^ORPA(101.52,DA,8)=A

 +5        QUIT