Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
592 bytes
|
Line | |
---|
1 | ORXPAR ; Export Package Level Parameters ; Dec 17, 1997@11:35:35
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
---|
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 ^ORXPAR01
|
---|
9 | XX2 S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
|
---|
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.