Routine: ORBX31

ORBX31 ; SLC/CLA - Export Package Level Parameters ; Sep 30, 1998@11:03:28

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**31**;Dec 17, 1997

MAIN ; main (initial) parameter transport routine

 K ^TMP($J,"XPARRSTR")

 N ORENT,IDX,ROOT,REF,ORVAL,I

 S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","

 D ^ORBX3101

XX2 S IDX=0,ORENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"

 F  S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX  D

 . N ORPAR,ORINST,ORVAL,ORERR

 . S ORPAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),ORINST=$P(^("KEY"),U,2)

 . M ORVAL=^TMP($J,"XPARRSTR",IDX,"VAL")

 . D EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)

 K ^TMP($J,"XPARRSTR")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORBX31   649     printed  Apr 09, 2024@21:34:11                                                                                                                                                                                                       Page 2

ORBX31    ; SLC/CLA - Export Package Level Parameters ; Sep 30, 1998@11:03:28

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**31**;Dec 17, 1997

MAIN      ; main (initial) parameter transport routine

 +1        KILL ^TMP($JOB,"XPARRSTR")

 +2        NEW ORENT,IDX,ROOT,REF,ORVAL,I

 +3        SET ROOT=$NAME(^TMP($JOB,"XPARRSTR"))

           SET ROOT=$EXTRACT(ROOT,1,$LENGTH(ROOT)-1)_","

 +4        DO ^ORBX3101

XX2        SET IDX=0

           SET ORENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"

 +1        FOR

               SET IDX=$ORDER(^TMP($JOB,"XPARRSTR",IDX))

               if 'IDX

                   QUIT

               Begin DoDot:1

 +2                NEW ORPAR,ORINST,ORVAL,ORERR

 +3                SET ORPAR=$PIECE(^TMP($JOB,"XPARRSTR",IDX,"KEY"),U)

                   SET ORINST=$PIECE(^("KEY"),U,2)

 +4                MERGE ORVAL=^TMP($JOB,"XPARRSTR",IDX,"VAL")

 +5                DO EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)

               End DoDot:1

 +6        KILL ^TMP($JOB,"XPARRSTR")

 +7        QUIT

ORBX31.m