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

XHDPARAM.m

Go to the documentation of this file.
  1. XHDPARAM ; SLC/JER - Configurator Server Calls ; 25 Jul 2003 9:42 AM
  1. ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003
  1. PUT(ERR,KEY,VALUE) ; Calls PUT^XPAR to set param value
  1. N ENT,PAR,INST,PUTVAL,X,VDTYPE
  1. S X="ONERROR^XHDPARAM",@^%ZOSF("TRAP")
  1. S ENT=$S(+$P(KEY,U,2):$P(KEY,U,2),1:DUZ_";VA(200,"),PAR=$P(KEY,U,3)
  1. S VDTYPE=$P($G(^XTV(8989.51,PAR,1)),U)
  1. S INST=$P(KEY,U,4)
  1. S:INST']"" INST=1
  1. I $S(VDTYPE="W":1,$$COUNT(.VALUE)>1:1,1:0) D SETWPVAL(.VALUE,.PUTVAL) S PUTVAL=$P(KEY,U) I 1
  1. E S PUTVAL=$$XFORM(VALUE(1),VDTYPE)
  1. S ^XTMP("XHDPARAM",$J,KEY,"ENT")=ENT,^("PAR")=PAR,^("INST")=INST,^("PUTVAL")=PUTVAL
  1. D EN^XPAR(ENT,PAR,INST,.PUTVAL,.ERR)
  1. S ^XTMP("XHDPARAM",$J,KEY,"ERR")=ERR
  1. Q
  1. COUNT(VALUE) ; Count number of lines in VALUE
  1. N XHDI,COUNT S (COUNT,XHDI)=0
  1. F S XHDI=$O(VALUE(XHDI)) Q:+XHDI'>0 S COUNT=COUNT+1
  1. Q COUNT
  1. SETWPVAL(INVALUE,OUTVALUE) ; Sets 0-nodes for WordProcessing value
  1. N XHDI,VAL S XHDI=0
  1. F S XHDI=$O(INVALUE(XHDI)) Q:+XHDI'>0 S OUTVALUE(XHDI,0)=INVALUE(XHDI) K INVALUE(XHDI)
  1. Q
  1. ONERROR ; Trap errors
  1. S ERR="1^"_$TR($$EC^%ZOSV,"^","~")
  1. D ^%ZTER
  1. Q
  1. XFORM(VAL,VDTYPE) ; Transform values for select data types
  1. N XHDY S XHDY=VAL
  1. I VDTYPE="D" S XHDY=$$HL7TFM^XLFDT(VAL) G XFORMX
  1. I VDTYPE="Y" S XHDY=$S(VAL="true":"YES",VAL="false":"NO",1:VAL)
  1. XFORMX Q XHDY