- 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 Jan 18, 2025@04:01:14 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 ;