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

ORY280P.m

Go to the documentation of this file.
  1. ORY280P ;slc/dcm - Export Package Level Parameters ;3/17/10 09:18
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**280**;Dec 17, 1997;Build 85
  1. MAIN ; main (initial) parameter transport routine
  1. K ^TMP($J,"XPARRSTR")
  1. N ENT,IDX,ROOT,REF,VAL,I
  1. S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
  1. D LOAD
  1. S IDX=0,ENT="PKG.ORDER ENTRY/RESULTS REPORTING"
  1. F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
  1. . N PAR,INST,ORVAL,ORERR
  1. . S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
  1. . M ORVAL=^TMP($J,"XPARRSTR",IDX,"VAL")
  1. . D EN^XPAR(ENT,PAR,INST,.ORVAL,.ORERR)
  1. K ^TMP($J,"XPARRSTR")
  1. D PKG
  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 VAL=$T(DATA+I+1) D
  1. . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
  1. . S @(ROOT_REF)=VAL
  1. Q
  1. PKG ;Setup VBECS package level parameters of Pointer Type
  1. N ORX,P
  1. S P="OR VBECS COMPONENT ORDER"
  1. D SET("RED BLOOD CELLS",P,5,"S.VBC")
  1. D SET("FRESH FROZEN PLASMA",P,10,"S.VBC")
  1. D SET("PLATELETS",P,15,"S.VBC")
  1. D SET("CRYOPRECIPITATE",P,20,"S.VBC")
  1. D SET("WHOLE BLOOD",P,25,"S.VBC")
  1. D SET("OTHER",P,30,"S.VBC")
  1. S P="OR VBECS DIAGNOSTIC TEST ORDER"
  1. D SET("ABO/RH",P,5,"S.VBT")
  1. D SET("ANTIBODY SCREEN",P,10,"S.VBT")
  1. D SET("DIRECT ANTIGLOBULIN TEST",P,15,"S.VBT")
  1. D SET("TRANSFUSION REACTION WORKUP",P,20,"S.VBT")
  1. D SET("TYPE & SCREEN",P,25,"S.VBT")
  1. Q
  1. SET(ONAME,P,S,XREF) ;Set the parameter
  1. ;ONAME=Report name
  1. ;P=Parameter name
  1. ;S=Sequence (count)
  1. ;XREF=Cross Reference to screen on
  1. N DA,ORERR
  1. S DA=0 F S DA=$O(^ORD(101.43,XREF,ONAME,DA)) Q:'DA D
  1. . D EN^XPAR("PKG.ORDER ENTRY/RESULTS REPORTING",P,S,ONAME,.ORERR)
  1. Q
  1. DATA ; parameter data
  1. ;;9343,"KEY")
  1. ;;OR VBECS REMOVE COLL TIME^1
  1. ;;9343,"VAL")
  1. ;;NO
  1. ;;9344,"KEY")
  1. ;;OR VBECS DIAGNOSTIC PANEL 1ST^1
  1. ;;9344,"VAL")
  1. ;;NO