2011-04-10 22:44:11 -04:00
|
|
|
CWMAPP ; Export Package Level Parameters ;21-Jun-2005 06:34;CLC
|
|
|
|
|
;;2.3;CWMAIL;;Jul 19, 2005
|
2011-04-10 14:13:17 -04:00
|
|
|
;;
|
|
|
|
|
MAIN ; main (initial) parameter transport routine
|
|
|
|
|
K ^TMP($J,"XPARRSTR")
|
|
|
|
|
N ENT,IDX,ROOT,REF,VAL,I
|
|
|
|
|
S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
|
|
|
|
|
D ^CWMAPP01
|
|
|
|
|
XX2 S IDX=0,ENT="PKG."_"CW GUIMail"
|
|
|
|
|
F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
|
|
|
|
|
. N PAR,INST,VAL,ERR
|
|
|
|
|
. S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
|
|
|
|
|
. M VAL=^TMP($J,"XPARRSTR",IDX,"VAL")
|
|
|
|
|
. D EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
|
|
|
|
|
K ^TMP($J,"XPARRSTR")
|
|
|
|
|
Q
|
