ORY165 ; Export Package Level Parameters ;1/15/03 13:50
;;3.0;ORDER ENTRY/RESULTS REPORTING;**165**;Dec 17, 1997
;
MAIN ; main (initial) parameter transport routine
S ORI("OR GXMOVE EVENT")="" D EN^ORYDLG("165 Dialog",.ORI) K ORI
D ^ORY165A
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 LOAD
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
LOAD ; load data into ^TMP (expects ROOT to be defined)
S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D
. S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
. S @(ROOT_REF)=VAL
Q
DATA ; parameter data
;;12333,"KEY")
;;ORB PROVIDER RECIPIENTS^ORDERER-FLAGGED RESULTS
;;12333,"VAL")
;;@
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY165 994 printed Nov 22, 2024@17:48:47 Page 2
ORY165 ; Export Package Level Parameters ;1/15/03 13:50
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**165**;Dec 17, 1997
+2 ;
MAIN ; main (initial) parameter transport routine
+1 SET ORI("OR GXMOVE EVENT")=""
DO EN^ORYDLG("165 Dialog",.ORI)
KILL ORI
+2 DO ^ORY165A
+3 KILL ^TMP($JOB,"XPARRSTR")
+4 NEW ENT,IDX,ROOT,REF,VAL,I
+5 SET ROOT=$NAME(^TMP($JOB,"XPARRSTR"))
SET ROOT=$EXTRACT(ROOT,1,$LENGTH(ROOT)-1)_","
+6 DO LOAD
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
LOAD ; load data into ^TMP (expects ROOT to be defined)
+1 SET I=1
FOR
SET REF=$TEXT(DATA+I)
if REF=""
QUIT
SET VAL=$TEXT(DATA+I+1)
Begin DoDot:1
+2 SET I=I+2
SET REF=$PIECE(REF,";",3,999)
SET VAL=$PIECE(VAL,";",3,999)
+3 SET @(ROOT_REF)=VAL
End DoDot:1
+4 QUIT
DATA ; parameter data
+1 ;;12333,"KEY")
+2 ;;ORB PROVIDER RECIPIENTS^ORDERER-FLAGGED RESULTS
+3 ;;12333,"VAL")
+4 ;;@
