Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORXPAR

ORXPAR.m

Go to the documentation of this file.
  1. ORXPAR ; Export Package Level Parameters ; Dec 17, 1997@11:35:35
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
  1. ;;
  1. MAIN ; main (initial) parameter transport routine
  1. K ^TMP($J,"XPARRSTR")
  1. N ENT,IDX,ROOT,REF,VAL,I
  1. S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
  1. D ^ORXPAR01
  1. XX2 S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
  1. F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
  1. . N PAR,INST,VAL,ERR
  1. . S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
  1. . M VAL=^TMP($J,"XPARRSTR",IDX,"VAL")
  1. . D EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
  1. K ^TMP($J,"XPARRSTR")
  1. Q