SDQUT ;ALB/MJK - Query Object Utility Methods ;8/12/96
;;5.3;Scheduling;**131**;Aug 13, 1993
;
REG(SDQ,SDGREF) ; -- regular xref validator
N SDSUB
S SDSUB=$G(^TMP("SDQUERY CLASS",$J,SDQ,"GL SUBSCRIPTS"))+1
IF $QS(SDGREF,SDSUB)'=$G(@SDQUERY@(SDQ,"INDEX INTERNAL")) S SDGREF="" G REGQ
IF $QS(SDGREF,SDSUB+1)'=$G(@SDQUERY@(SDQ,"MASTER VALUE")) S SDGREF="" G REGQ
REGQ Q
;
;
REGDT(SDQ,SDGREF) ;-- regular date/time xref validator
N SDSUB,SDT,SDBEG,SDEND
S SDSUB=$G(^TMP("SDQUERY CLASS",$J,SDQ,"GL SUBSCRIPTS"))+1
S SDBEG=$G(@SDQUERY@(SDQ,"BEGIN DATE"))
S SDEND=$G(@SDQUERY@(SDQ,"END DATE"))
;
IF $QS(SDGREF,SDSUB)'=$G(@SDQUERY@(SDQ,"INDEX INTERNAL")) S SDGREF="" G REGDTQ
S SDT=$QS(SDGREF,SDSUB+1)
IF SDT>SDEND!(SDT<SDBEG) S SDGREF="" G REGDTQ
REGDTQ Q
;
;
COM(SDQ,SDGREF) ; -- composite xref validator
COMQ Q
;
;
COMDT(SDQ,SDGREF) ;-- composite xref with date/time validator
N SDSUB,SDT,SDBEG,SDEND
S SDSUB=$G(^TMP("SDQUERY CLASS",$J,SDQ,"GL SUBSCRIPTS"))+1
S SDBEG=$G(@SDQUERY@(SDQ,"BEGIN DATE"))
S SDEND=$G(@SDQUERY@(SDQ,"END DATE"))
IF $QS(SDGREF,SDSUB)'=$G(@SDQUERY@(SDQ,"INDEX INTERNAL")) S SDGREF="" G COMDTQ
IF $QS(SDGREF,SDSUB+1)'=$G(@SDQUERY@(SDQ,"MASTER VALUE")) S SDGREF="" G COMDTQ
S SDT=$QS(SDGREF,SDSUB+2)
IF SDT>SDEND!(SDT<SDBEG) S SDGREF="" G COMDTQ
COMDTQ Q
;
;
REFRESH(SDQ,SDERR) ; -- refresh query
; API ID: 94
; API NAME: SDQ REFRESH
;
REFRESHG ; -- goto entry point
; -- do validation checks
IF '$$QRY^SDQVAL(.SDQ,$G(SDERR)) G REFRESHQ
IF '$$QRYACT^SDQVAL(.SDQ,$G(SDERR)) G REFRESHQ
;
D ACTIVE^SDQPROP(.SDQ,"FALSE","SET",$G(SDERR))
D ACTIVE^SDQPROP(.SDQ,"TRUE","SET",$G(SDERR))
REFRESHQ Q
;
;
GETENTRY(SDQ,SDERR) ; -- get ID/IEN number for cursor entry
; API ID: 95
; API NAME: SDQ GET CURRENT ENCOUNTER ID
;
; -- do validation checks
IF '$$QRY^SDQVAL(.SDQ,$G(SDERR)) Q ""
IF '$$QRYACT^SDQVAL(.SDQ,$G(SDERR)) Q ""
;
N SDID,SDGREF,SDSUB
S SDGREF=$G(^TMP("SDQUERY LIST",$J,SDQ,+$G(@SDQUERY@(SDQ,"CURSOR"))))
S SDSUB=+$G(@SDQUERY@(SDQ,"IEN SUBSCRIPT"))
S SDID=$QS(SDGREF,SDSUB)
Q SDID
;
;
POST ; -- post error action logic
;W !,"Error: ",!
;ZW DIPI ZW DIPE
Q
;
;
PREP ; -- Prepare environment / clean up generic error arrays
D CLEAN^DILF
Q
;
;
ERRCHK(SDQERRS) ; -- is an error present in error array?
IF $G(SDQERRS)]"" Q $O(@SDQERRS@("DIERR",0))>0
Q $O(^TMP("DIERR",$J,0))>0
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDQUT 2445 printed Dec 13, 2024@03:00:04 Page 2
SDQUT ;ALB/MJK - Query Object Utility Methods ;8/12/96
+1 ;;5.3;Scheduling;**131**;Aug 13, 1993
+2 ;
REG(SDQ,SDGREF) ; -- regular xref validator
+1 NEW SDSUB
+2 SET SDSUB=$GET(^TMP("SDQUERY CLASS",$JOB,SDQ,"GL SUBSCRIPTS"))+1
+3 IF $QSUBSCRIPT(SDGREF,SDSUB)'=$GET(@SDQUERY@(SDQ,"INDEX INTERNAL"))
SET SDGREF=""
GOTO REGQ
+4 IF $QSUBSCRIPT(SDGREF,SDSUB+1)'=$GET(@SDQUERY@(SDQ,"MASTER VALUE"))
SET SDGREF=""
GOTO REGQ
REGQ QUIT
+1 ;
+2 ;
REGDT(SDQ,SDGREF) ;-- regular date/time xref validator
+1 NEW SDSUB,SDT,SDBEG,SDEND
+2 SET SDSUB=$GET(^TMP("SDQUERY CLASS",$JOB,SDQ,"GL SUBSCRIPTS"))+1
+3 SET SDBEG=$GET(@SDQUERY@(SDQ,"BEGIN DATE"))
+4 SET SDEND=$GET(@SDQUERY@(SDQ,"END DATE"))
+5 ;
+6 IF $QSUBSCRIPT(SDGREF,SDSUB)'=$GET(@SDQUERY@(SDQ,"INDEX INTERNAL"))
SET SDGREF=""
GOTO REGDTQ
+7 SET SDT=$QSUBSCRIPT(SDGREF,SDSUB+1)
+8 IF SDT>SDEND!(SDT<SDBEG)
SET SDGREF=""
GOTO REGDTQ
REGDTQ QUIT
+1 ;
+2 ;
COM(SDQ,SDGREF) ; -- composite xref validator
COMQ QUIT
+1 ;
+2 ;
COMDT(SDQ,SDGREF) ;-- composite xref with date/time validator
+1 NEW SDSUB,SDT,SDBEG,SDEND
+2 SET SDSUB=$GET(^TMP("SDQUERY CLASS",$JOB,SDQ,"GL SUBSCRIPTS"))+1
+3 SET SDBEG=$GET(@SDQUERY@(SDQ,"BEGIN DATE"))
+4 SET SDEND=$GET(@SDQUERY@(SDQ,"END DATE"))
+5 IF $QSUBSCRIPT(SDGREF,SDSUB)'=$GET(@SDQUERY@(SDQ,"INDEX INTERNAL"))
SET SDGREF=""
GOTO COMDTQ
+6 IF $QSUBSCRIPT(SDGREF,SDSUB+1)'=$GET(@SDQUERY@(SDQ,"MASTER VALUE"))
SET SDGREF=""
GOTO COMDTQ
+7 SET SDT=$QSUBSCRIPT(SDGREF,SDSUB+2)
+8 IF SDT>SDEND!(SDT<SDBEG)
SET SDGREF=""
GOTO COMDTQ
COMDTQ QUIT
+1 ;
+2 ;
REFRESH(SDQ,SDERR) ; -- refresh query
+1 ; API ID: 94
+2 ; API NAME: SDQ REFRESH
+3 ;
REFRESHG ; -- goto entry point
+1 ; -- do validation checks
+2 IF '$$QRY^SDQVAL(.SDQ,$GET(SDERR))
GOTO REFRESHQ
+3 IF '$$QRYACT^SDQVAL(.SDQ,$GET(SDERR))
GOTO REFRESHQ
+4 ;
+5 DO ACTIVE^SDQPROP(.SDQ,"FALSE","SET",$GET(SDERR))
+6 DO ACTIVE^SDQPROP(.SDQ,"TRUE","SET",$GET(SDERR))
REFRESHQ QUIT
+1 ;
+2 ;
GETENTRY(SDQ,SDERR) ; -- get ID/IEN number for cursor entry
+1 ; API ID: 95
+2 ; API NAME: SDQ GET CURRENT ENCOUNTER ID
+3 ;
+4 ; -- do validation checks
+5 IF '$$QRY^SDQVAL(.SDQ,$GET(SDERR))
QUIT ""
+6 IF '$$QRYACT^SDQVAL(.SDQ,$GET(SDERR))
QUIT ""
+7 ;
+8 NEW SDID,SDGREF,SDSUB
+9 SET SDGREF=$GET(^TMP("SDQUERY LIST",$JOB,SDQ,+$GET(@SDQUERY@(SDQ,"CURSOR"))))
+10 SET SDSUB=+$GET(@SDQUERY@(SDQ,"IEN SUBSCRIPT"))
+11 SET SDID=$QSUBSCRIPT(SDGREF,SDSUB)
+12 QUIT SDID
+13 ;
+14 ;
POST ; -- post error action logic
+1 ;W !,"Error: ",!
+2 ;ZW DIPI ZW DIPE
+3 QUIT
+4 ;
+5 ;
PREP ; -- Prepare environment / clean up generic error arrays
+1 DO CLEAN^DILF
+2 QUIT
+3 ;
+4 ;
ERRCHK(SDQERRS) ; -- is an error present in error array?
+1 IF $GET(SDQERRS)]""
QUIT $ORDER(@SDQERRS@("DIERR",0))>0
+2 QUIT $ORDER(^TMP("DIERR",$JOB,0))>0
+3 ;
