%RO Routine Output Utility
GT.M 24-OCT-2021 16:29:25
W4DPARS
W4DPARS ; DOSCH PRITIM LEFI SHAOT   [ 24.10.21 16:25 ] [ 20.12.18 19:26 ] [ 04.05.14 15:11 ] 
 S $ZT="S zr=$R X ^ZT  ZG "_$ZL_":ERWB^%L1X"
 Q:'$D(JB)
 K @$$^%W1GLPRM
 S @$$^%W1GLPRM@("BEGIN")=1
 S %REPN="W4PARS"
 S @$$^%W1GLPRM@("REPN")=%REPN
 D PUT^%W1PRM("HRFREP","w4dpars.jsp?JB="_JB)
 Q
 ;
DAT ;
 I '$$GETP^%W1PRM("W4DPARS") D
 .D ^W4CLPLU(METRH,ADTRH)
 .D PUT^%W1PRM("W4DPARS",$H)
 ;
 I $$^%L1DC(DAT,4)<METRH S OK=0 Q
 I $$^%L1DC(DAT,4)>ADTRH S OK=0 Q
 S TRH=$$^%L1DC(DAT,1)
 Q
 ;
PAR ;
 S DEP1="" S DEP=$$DEP^W4P(PAR) ;
 I DEP<MEDEP!(DEP>ADDEP) S OK=0 Q
 S SUGP=$$SUG^W4P(PAR)
 I SUGP<MESUGP!(SUGP>ADSUGP) S OK=0
 Q
 ;
SHAA S SHAA1=+$TR(SHAA," ","")
 I $$^W4SHAAZ,SHAA1<$$SHAAZ^W4PRM S SHAA1=SHAA1+24
 I SHAA1<MESHAA1!(SHAA1'<ADSHAA1) S OK=0 Q
 S x1=$P(@GLOB,"*",1)
 S x2=$P(@GLOB,"*",2)
 S x3=$P(@GLOB,"*",4)
 S x4=x2-x3
 N KDM S KDM=""
 I SHAA1>23 S SHAA1=SHAA1-24,KDM="24+"
 S SHAA1=KDM_$J(+SHAA1,2)_" - "_$J(SHAA1+1,2)
 Q
 
 
 
 



