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")
 Q