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

ORWTPD1.m

Go to the documentation of this file.
  1. ORWTPD1 ; SLC/PKS - Personal Preferences. [7/22/04 10:53am]
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**195**;Dec 17,1997
  1. ;
  1. Q
  1. ;
  1. GETEFDAT(INFO) ; Get non-user level Encounter appointment date range params.
  1. ;
  1. N ORSTART,ORSTOP
  1. S INFO=""
  1. ;
  1. S ORSTART=$$GET^XPAR("DIV^SYS^PKG","ORQQEAPT ENC APPT START",1,"I")
  1. I 'ORSTART S ORSTART=60
  1. ;
  1. S ORSTOP=$$GET^XPAR("DIV^SYS^PKG","ORQQEAPT ENC APPT STOP",1,"I")
  1. I 'ORSTOP S ORSTOP=0
  1. ;
  1. S INFO=ORSTART_U_ORSTOP
  1. ;
  1. Q
  1. ;
  1. GETEDATS(INFO) ; Get user's (all levels) Encounter app't date range params.
  1. ;
  1. N ORSRV,ORUSER
  1. S ORUSER=DUZ
  1. ;
  1. S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S.
  1. S INFO=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQEAPT ENC APPT START",1,"I")_U
  1. S INFO=INFO_$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQEAPT ENC APPT STOP",1,"I")
  1. ;
  1. Q
  1. ;
  1. PUTEDATS(OK,Y) ; Save Encounter app't date range params at user level.
  1. ;
  1. N ORSTART,ORSTOP,ORUSER
  1. ;
  1. S OK=1,ORUSER=DUZ
  1. S ORSTART=$P(Y,U,1)
  1. S ORSTOP=$P(Y,U,2)
  1. I ORSTART="" S ORSTART=0
  1. I ORSTOP="" S ORSTOP=0
  1. I ORSTART>999 S ORSTART=999
  1. I ORSTOP>999 S ORSTART=999
  1. ;
  1. D EN^XPAR(ORUSER_";VA(200,","ORQQEAPT ENC APPT START",1,ORSTART)
  1. D EN^XPAR(ORUSER_";VA(200,","ORQQEAPT ENC APPT STOP",1,ORSTOP)
  1. ;
  1. Q
  1. ;
  1. GETCSDEF(INFO) ; Get Div/Sys/Pkg Cover Sheet default range parameters.
  1. ;
  1. N ORVAL
  1. ;
  1. S ORVAL=""
  1. S ORVAL=$$GET^XPAR("DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")
  1. S ORVAL=$$CHKRNG(ORVAL,999)
  1. S INFO=ORVAL_U,ORVAL=""
  1. S ORVAL=$$GET^XPAR("DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
  1. S ORVAL=$$CHKRNG(ORVAL,999)
  1. S INFO=INFO_ORVAL
  1. ;
  1. Q
  1. ;
  1. GETCSRNG(VAL) ; Get user's Cover Sheet date range defaults.
  1. ;
  1. N ORSRV,ORUSER,ORVAL
  1. S ORUSER=DUZ
  1. ;
  1. S ORVAL=""
  1. S ORSRV=$G(^VA(200,DUZ,5)) I +ORSRV>0 S ORSRV=$P(ORSRV,U) ; Get S/S.
  1. S ORVAL=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE START",1,"I")
  1. S ORVAL=$$CHKRNG(ORVAL,999)
  1. S VAL=ORVAL_U,ORVAL=""
  1. S ORVAL=$$GET^XPAR("USR.`"_ORUSER_"^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORQQCSDR CS RANGE STOP",1,"I")
  1. S ORVAL=$$CHKRNG(ORVAL,999)
  1. S VAL=VAL_ORVAL
  1. ;
  1. Q
  1. ;
  1. PUTCSRNG(OK,INFO) ; Save user's Cover Sheet data range defaults.
  1. ;
  1. N ORINPT,OROUTPT,ORSTART,ORSTOP,ORUSER
  1. ;
  1. S OK=1,ORUSER=DUZ
  1. S ORSTART=+$P(INFO,U,3) S:ORSTART>999 ORSTART=999 S ORSTART=$S(ORSTART=0:"T",ORSTART<0:"T"_ORSTART,1:"T+"_ORSTART)
  1. S ORSTOP=+$P(INFO,U,4) S:ORSTOP>999 ORSTART=999 S ORSTOP=$S(ORSTOP=0:"T",ORSTOP<0:"T"_ORSTOP,1:"T+"_ORSTOP)
  1. S ORINPT=+$P(INFO,U,1),ORINPT=$S('ORINPT:"@",1:ORINPT)
  1. S OROUTPT=+$P(INFO,U,2),OROUTPT=$S('OROUTPT:"@",1:OROUTPT)
  1. D EN^XPAR(ORUSER_";VA(200,","ORQQCSDR CS RANGE START",1,ORSTART)
  1. D EN^XPAR(ORUSER_";VA(200,","ORQQCSDR CS RANGE STOP",1,ORSTOP)
  1. D EN^XPAR(ORUSER_";VA(200,","ORQQLR DATE RANGE INPT",1,ORINPT)
  1. D EN^XPAR(ORUSER_";VA(200,","ORQQLR DATE RANGE OUTPT",1,OROUTPT)
  1. ;
  1. Q
  1. ;
  1. GETEAFL(Y) ; Get "future days limit" parameter setting for Enc appt selection.
  1. ;
  1. S Y=$$GET^XPAR("DIV^SYS^PKG^USR","ORQQEAFL ENC APPT FUTURE LIMIT",1,"I")
  1. ;
  1. Q
  1. ;
  1. CHKRNG(ORV,ORLIMIT) ; Check a "T-xx" or "T+xx" value.
  1. ;
  1. ; ORLIMIT must be a positive number.
  1. ;
  1. N ORNEG,ORPOS,ORT,ORTT,ORVALUE
  1. ;
  1. S (ORNEG,ORPOS,ORT,ORTT)=0
  1. I $G(ORV)="" Q ORV
  1. I $G(ORLIMIT)=0 Q ORV
  1. ;
  1. I ORV["-" S ORNEG=1
  1. I ORV["+" S ORPOS=1
  1. I ORV["T" S ORT=1
  1. I ORV["t" S ORTT=1
  1. S ORVALUE=ORV
  1. I ORT S ORVALUE=$P(ORV,"T",2)
  1. I ORTT S ORVALUE=$P(ORV,"t",2)
  1. I ORPOS S ORVALUE=$P(ORVALUE,"+",2)
  1. I ORNEG S ORVALUE=$P(ORVALUE,"-",2)
  1. I ORVALUE>ORLIMIT S ORVALUE=ORLIMIT
  1. ;
  1. S ORV="T+"_ORVALUE
  1. I ORNEG S ORV="T-"_ORVALUE
  1. ;
  1. Q ORV
  1. ;