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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY210 2802 printed Dec 13, 2024@02:39:08 Page 2
ORY210 ; slc/CLA - Export Package Level Parameters ; Oct 15, 2003@12:06:03
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**210**;Dec 17, 1997
POST ;
+1 DO PARAM
+2 QUIT
PARAM ; main (initial) parameter transport routine
+1 KILL ^TMP($JOB,"XPARRSTR")
+2 NEW ORENT,IDX,ROOT,REF,ORVAL,I
+3 SET ROOT=$NAME(^TMP($JOB,"XPARRSTR"))
SET ROOT=$EXTRACT(ROOT,1,$LENGTH(ROOT)-1)_","
+4 DO LOAD
XX2 SET IDX=0
SET ORENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
+1 FOR
SET IDX=$ORDER(^TMP($JOB,"XPARRSTR",IDX))
if 'IDX
QUIT
Begin DoDot:1
+2 NEW ORPAR,ORINST,ORVAL,ORERR
+3 SET ORPAR=$PIECE(^TMP($JOB,"XPARRSTR",IDX,"KEY"),U)
SET ORINST=$PIECE(^("KEY"),U,2)
+4 MERGE ORVAL=^TMP($JOB,"XPARRSTR",IDX,"VAL")
+5 DO EN^XPAR(ORENT,ORPAR,ORINST,.ORVAL,.ORERR)
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 ORVAL=$TEXT(DATA+I+1)
Begin DoDot:1
+2 SET I=I+2
SET REF=$PIECE(REF,";",3,999)
SET ORVAL=$PIECE(ORVAL,";",3,999)
+3 SET @(ROOT_REF)=ORVAL
End DoDot:1
+4 QUIT
DATA ; parameter data
+1 ;;14489,"KEY")
+2 ;;ORB ARCHIVE PERIOD^MAMMOGRAM RESULTS
+3 ;;14489,"VAL")
+4 ;;30
+5 ;;14490,"KEY")
+6 ;;ORB ARCHIVE PERIOD^PAP SMEAR RESULTS
+7 ;;14490,"VAL")
+8 ;;30
+9 ;;14491,"KEY")
+10 ;;ORB ARCHIVE PERIOD^ANATOMIC PATHOLOGY RESULTS
+11 ;;14491,"VAL")
+12 ;;30
+13 ;;14492,"KEY")
+14 ;;ORB DELETE MECHANISM^MAMMOGRAM RESULTS
+15 ;;14492,"VAL")
+16 ;;Individual Recipient
+17 ;;14493,"KEY")
+18 ;;ORB DELETE MECHANISM^PAP SMEAR RESULTS
+19 ;;14493,"VAL")
+20 ;;Individual Recipient
+21 ;;14494,"KEY")
+22 ;;ORB DELETE MECHANISM^ANATOMIC PATHOLOGY RESULTS
+23 ;;14494,"VAL")
+24 ;;Individual Recipient
+25 ;;14495,"KEY")
+26 ;;ORB FORWARD SUPERVISOR^MAMMOGRAM RESULTS
+27 ;;14495,"VAL")
+28 ;;0
+29 ;;14496,"KEY")
+30 ;;ORB FORWARD SUPERVISOR^PAP SMEAR RESULTS
+31 ;;14496,"VAL")
+32 ;;0
+33 ;;14497,"KEY")
+34 ;;ORB FORWARD SUPERVISOR^ANATOMIC PATHOLOGY RESULTS
+35 ;;14497,"VAL")
+36 ;;0
+37 ;;14498,"KEY")
+38 ;;ORB FORWARD SURROGATES^MAMMOGRAM RESULTS
+39 ;;14498,"VAL")
+40 ;;0
+41 ;;14499,"KEY")
+42 ;;ORB FORWARD SURROGATES^PAP SMEAR RESULTS
+43 ;;14499,"VAL")
+44 ;;0
+45 ;;14500,"KEY")
+46 ;;ORB FORWARD SURROGATES^ANATOMIC PATHOLOGY RESULTS
+47 ;;14500,"VAL")
+48 ;;0
+49 ;;14501,"KEY")
+50 ;;ORB FORWARD BACKUP REVIEWER^MAMMOGRAM RESULTS
+51 ;;14501,"VAL")
+52 ;;0
+53 ;;14502,"KEY")
+54 ;;ORB FORWARD BACKUP REVIEWER^PAP SMEAR RESULTS
+55 ;;14502,"VAL")
+56 ;;0
+57 ;;14503,"KEY")
+58 ;;ORB FORWARD BACKUP REVIEWER^ANATOMIC PATHOLOGY RESULTS
+59 ;;14503,"VAL")
+60 ;;0
+61 ;;14504,"KEY")
+62 ;;ORB PROCESSING FLAG^MAMMOGRAM RESULTS
+63 ;;14504,"VAL")
+64 ;;Disabled
+65 ;;14505,"KEY")
+66 ;;ORB PROCESSING FLAG^PAP SMEAR RESULTS
+67 ;;14505,"VAL")
+68 ;;Disabled
+69 ;;14506,"KEY")
+70 ;;ORB PROCESSING FLAG^ANATOMIC PATHOLOGY RESULTS
+71 ;;14506,"VAL")
+72 ;;Disabled
+73 ;;14507,"KEY")
+74 ;;ORB URGENCY^MAMMOGRAM RESULTS
+75 ;;14507,"VAL")
+76 ;;Moderate
+77 ;;14508,"KEY")
+78 ;;ORB URGENCY^PAP SMEAR RESULTS
+79 ;;14508,"VAL")
+80 ;;Moderate
+81 ;;14509,"KEY")
+82 ;;ORB URGENCY^ANATOMIC PATHOLOGY RESULTS
+83 ;;14509,"VAL")
+84 ;;Moderate
