109 lines
2.6 KiB
Mathematica
109 lines
2.6 KiB
Mathematica
ORY210 ; slc/CLA - Export Package Level Parameters ; Oct 15, 2003@12:06:03
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**210**;Dec 17, 1997
|
|
POST ;
|
|
D PARAM
|
|
Q
|
|
PARAM ; main (initial) parameter transport routine
|
|
K ^TMP($J,"XPARRSTR")
|
|
N ORENT,IDX,ROOT,REF,ORVAL,I
|
|
S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
|
|
D LOAD
|
|
XX2 S IDX=0,ORENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
|
|
F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
|
|
. N ORPAR,ORINST,ORVAL,ORERR
|
|
. S ORPAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),ORINST=$P(^("KEY"),U,2)
|
|
. M ORVAL=^TMP($J,"XPARRSTR",IDX,"VAL")
|
|
. D EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)
|
|
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 ORVAL=$T(DATA+I+1) D
|
|
. S I=I+2,REF=$P(REF,";",3,999),ORVAL=$P(ORVAL,";",3,999)
|
|
. S @(ROOT_REF)=ORVAL
|
|
Q
|
|
DATA ; parameter data
|
|
;;14489,"KEY")
|
|
;;ORB ARCHIVE PERIOD^MAMMOGRAM RESULTS
|
|
;;14489,"VAL")
|
|
;;30
|
|
;;14490,"KEY")
|
|
;;ORB ARCHIVE PERIOD^PAP SMEAR RESULTS
|
|
;;14490,"VAL")
|
|
;;30
|
|
;;14491,"KEY")
|
|
;;ORB ARCHIVE PERIOD^ANATOMIC PATHOLOGY RESULTS
|
|
;;14491,"VAL")
|
|
;;30
|
|
;;14492,"KEY")
|
|
;;ORB DELETE MECHANISM^MAMMOGRAM RESULTS
|
|
;;14492,"VAL")
|
|
;;Individual Recipient
|
|
;;14493,"KEY")
|
|
;;ORB DELETE MECHANISM^PAP SMEAR RESULTS
|
|
;;14493,"VAL")
|
|
;;Individual Recipient
|
|
;;14494,"KEY")
|
|
;;ORB DELETE MECHANISM^ANATOMIC PATHOLOGY RESULTS
|
|
;;14494,"VAL")
|
|
;;Individual Recipient
|
|
;;14495,"KEY")
|
|
;;ORB FORWARD SUPERVISOR^MAMMOGRAM RESULTS
|
|
;;14495,"VAL")
|
|
;;0
|
|
;;14496,"KEY")
|
|
;;ORB FORWARD SUPERVISOR^PAP SMEAR RESULTS
|
|
;;14496,"VAL")
|
|
;;0
|
|
;;14497,"KEY")
|
|
;;ORB FORWARD SUPERVISOR^ANATOMIC PATHOLOGY RESULTS
|
|
;;14497,"VAL")
|
|
;;0
|
|
;;14498,"KEY")
|
|
;;ORB FORWARD SURROGATES^MAMMOGRAM RESULTS
|
|
;;14498,"VAL")
|
|
;;0
|
|
;;14499,"KEY")
|
|
;;ORB FORWARD SURROGATES^PAP SMEAR RESULTS
|
|
;;14499,"VAL")
|
|
;;0
|
|
;;14500,"KEY")
|
|
;;ORB FORWARD SURROGATES^ANATOMIC PATHOLOGY RESULTS
|
|
;;14500,"VAL")
|
|
;;0
|
|
;;14501,"KEY")
|
|
;;ORB FORWARD BACKUP REVIEWER^MAMMOGRAM RESULTS
|
|
;;14501,"VAL")
|
|
;;0
|
|
;;14502,"KEY")
|
|
;;ORB FORWARD BACKUP REVIEWER^PAP SMEAR RESULTS
|
|
;;14502,"VAL")
|
|
;;0
|
|
;;14503,"KEY")
|
|
;;ORB FORWARD BACKUP REVIEWER^ANATOMIC PATHOLOGY RESULTS
|
|
;;14503,"VAL")
|
|
;;0
|
|
;;14504,"KEY")
|
|
;;ORB PROCESSING FLAG^MAMMOGRAM RESULTS
|
|
;;14504,"VAL")
|
|
;;Disabled
|
|
;;14505,"KEY")
|
|
;;ORB PROCESSING FLAG^PAP SMEAR RESULTS
|
|
;;14505,"VAL")
|
|
;;Disabled
|
|
;;14506,"KEY")
|
|
;;ORB PROCESSING FLAG^ANATOMIC PATHOLOGY RESULTS
|
|
;;14506,"VAL")
|
|
;;Disabled
|
|
;;14507,"KEY")
|
|
;;ORB URGENCY^MAMMOGRAM RESULTS
|
|
;;14507,"VAL")
|
|
;;Moderate
|
|
;;14508,"KEY")
|
|
;;ORB URGENCY^PAP SMEAR RESULTS
|
|
;;14508,"VAL")
|
|
;;Moderate
|
|
;;14509,"KEY")
|
|
;;ORB URGENCY^ANATOMIC PATHOLOGY RESULTS
|
|
;;14509,"VAL")
|
|
;;Moderate
|