Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORY210

ORY210.m

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