- 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 Feb 19, 2025@00:05:40 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