source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWUPX.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 594 bytes
RevLine 
[613]1ORWUPX ; Export Package Level Parameters ; Aug 21, 2000@13:26:02
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
3MAIN ; main (initial) parameter transport routine
4 K ^TMP($J,"XPARRSTR")
5 N ENT,IDX,ROOT,REF,VAL,I
6 S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
7 D ^ORWUPX01
8XX2 S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
9 F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
10 . N PAR,INST,VAL,ERR
11 . S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
12 . M VAL=^TMP($J,"XPARRSTR",IDX,"VAL")
13 . D EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
14 K ^TMP($J,"XPARRSTR")
15 Q
Note: See TracBrowser for help on using the repository browser.