| Rev | Line | |
|---|
| [1139] | 1 | CWMAPP ; Export Package Level Parameters ;21-Jun-2005 06:34;CLC
|
|---|
| 2 | ;;2.3;CWMAIL;;Jul 19, 2005
|
|---|
| [1138] | 3 | ;;
|
|---|
| 4 | MAIN ; main (initial) parameter transport routine
|
|---|
| 5 | K ^TMP($J,"XPARRSTR")
|
|---|
| 6 | N ENT,IDX,ROOT,REF,VAL,I
|
|---|
| 7 | S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
|
|---|
| 8 | D ^CWMAPP01
|
|---|
| 9 | XX2 S IDX=0,ENT="PKG."_"CW GUIMail"
|
|---|
| 10 | F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
|
|---|
| 11 | . N PAR,INST,VAL,ERR
|
|---|
| 12 | . S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
|
|---|
| 13 | . M VAL=^TMP($J,"XPARRSTR",IDX,"VAL")
|
|---|
| 14 | . D EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
|
|---|
| 15 | K ^TMP($J,"XPARRSTR")
|
|---|
| 16 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
