- ORXPAR ; Export Package Level Parameters ; Dec 17, 1997@11:35:35
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
- ;;
- 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 ^ORXPAR01
- XX2 S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
- 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
- ORXPAR ; Export Package Level Parameters ; Dec 17, 1997@11:35:35
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
- +2 ;;
- MAIN ; main (initial) parameter transport routine
- +1 KILL ^TMP($JOB,"XPARRSTR")
- +2 NEW ENT,IDX,ROOT,REF,VAL,I
- +3 SET ROOT=$NAME(^TMP($JOB,"XPARRSTR"))
- SET ROOT=$EXTRACT(ROOT,1,$LENGTH(ROOT)-1)_","
- +4 DO ^ORXPAR01
- XX2 SET IDX=0
- SET ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
- +1 FOR
- SET IDX=$ORDER(^TMP($JOB,"XPARRSTR",IDX))
- IF 'IDX
- QUIT
- Begin DoDot:1
- +2 NEW PAR,INST,VAL,ERR
- +3 SET PAR=$PIECE(^TMP($JOB,"XPARRSTR",IDX,"KEY"),U)
- SET INST=$PIECE(^("KEY"),U,2)
- +4 MERGE VAL=^TMP($JOB,"XPARRSTR",IDX,"VAL")
- +5 DO EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
- End DoDot:1
- +6 KILL ^TMP($JOB,"XPARRSTR")
- +7 QUIT