source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY210.m@ 1657

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