ORY165.m

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")

 ;;@

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       ;;@