| [613] | 1 | ORBX31 ; SLC/CLA - Export Package Level Parameters ; Sep 30, 1998@11:03:28
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**31**;Dec 17, 1997
|
|---|
| 3 | MAIN ; main (initial) parameter transport routine
|
|---|
| 4 | K ^TMP($J,"XPARRSTR")
|
|---|
| 5 | N ORENT,IDX,ROOT,REF,ORVAL,I
|
|---|
| 6 | S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
|
|---|
| 7 | D ^ORBX3101
|
|---|
| 8 | XX2 S IDX=0,ORENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
|
|---|
| 9 | F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
|
|---|
| 10 | . N ORPAR,ORINST,ORVAL,ORERR
|
|---|
| 11 | . S ORPAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),ORINST=$P(^("KEY"),U,2)
|
|---|
| 12 | . M ORVAL=^TMP($J,"XPARRSTR",IDX,"VAL")
|
|---|
| 13 | . D EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)
|
|---|
| 14 | K ^TMP($J,"XPARRSTR")
|
|---|
| 15 | Q
|
|---|
