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

SDQUT.m

Go to the documentation of this file.
  1. SDQUT ;ALB/MJK - Query Object Utility Methods ;8/12/96
  1. ;;5.3;Scheduling;**131**;Aug 13, 1993
  1. ;
  1. REG(SDQ,SDGREF) ; -- regular xref validator
  1. N SDSUB
  1. S SDSUB=$G(^TMP("SDQUERY CLASS",$J,SDQ,"GL SUBSCRIPTS"))+1
  1. IF $QS(SDGREF,SDSUB)'=$G(@SDQUERY@(SDQ,"INDEX INTERNAL")) S SDGREF="" G REGQ
  1. IF $QS(SDGREF,SDSUB+1)'=$G(@SDQUERY@(SDQ,"MASTER VALUE")) S SDGREF="" G REGQ
  1. REGQ Q
  1. ;
  1. ;
  1. REGDT(SDQ,SDGREF) ;-- regular date/time xref validator
  1. N SDSUB,SDT,SDBEG,SDEND
  1. S SDSUB=$G(^TMP("SDQUERY CLASS",$J,SDQ,"GL SUBSCRIPTS"))+1
  1. S SDBEG=$G(@SDQUERY@(SDQ,"BEGIN DATE"))
  1. S SDEND=$G(@SDQUERY@(SDQ,"END DATE"))
  1. ;
  1. IF $QS(SDGREF,SDSUB)'=$G(@SDQUERY@(SDQ,"INDEX INTERNAL")) S SDGREF="" G REGDTQ
  1. S SDT=$QS(SDGREF,SDSUB+1)
  1. IF SDT>SDEND!(SDT<SDBEG) S SDGREF="" G REGDTQ
  1. REGDTQ Q
  1. ;
  1. ;
  1. COM(SDQ,SDGREF) ; -- composite xref validator
  1. COMQ Q
  1. ;
  1. ;
  1. COMDT(SDQ,SDGREF) ;-- composite xref with date/time validator
  1. N SDSUB,SDT,SDBEG,SDEND
  1. S SDSUB=$G(^TMP("SDQUERY CLASS",$J,SDQ,"GL SUBSCRIPTS"))+1
  1. S SDBEG=$G(@SDQUERY@(SDQ,"BEGIN DATE"))
  1. S SDEND=$G(@SDQUERY@(SDQ,"END DATE"))
  1. IF $QS(SDGREF,SDSUB)'=$G(@SDQUERY@(SDQ,"INDEX INTERNAL")) S SDGREF="" G COMDTQ
  1. IF $QS(SDGREF,SDSUB+1)'=$G(@SDQUERY@(SDQ,"MASTER VALUE")) S SDGREF="" G COMDTQ
  1. S SDT=$QS(SDGREF,SDSUB+2)
  1. IF SDT>SDEND!(SDT<SDBEG) S SDGREF="" G COMDTQ
  1. COMDTQ Q
  1. ;
  1. ;
  1. REFRESH(SDQ,SDERR) ; -- refresh query
  1. ; API ID: 94
  1. ; API NAME: SDQ REFRESH
  1. ;
  1. REFRESHG ; -- goto entry point
  1. ; -- do validation checks
  1. IF '$$QRY^SDQVAL(.SDQ,$G(SDERR)) G REFRESHQ
  1. IF '$$QRYACT^SDQVAL(.SDQ,$G(SDERR)) G REFRESHQ
  1. ;
  1. D ACTIVE^SDQPROP(.SDQ,"FALSE","SET",$G(SDERR))
  1. D ACTIVE^SDQPROP(.SDQ,"TRUE","SET",$G(SDERR))
  1. REFRESHQ Q
  1. ;
  1. ;
  1. GETENTRY(SDQ,SDERR) ; -- get ID/IEN number for cursor entry
  1. ; API ID: 95
  1. ; API NAME: SDQ GET CURRENT ENCOUNTER ID
  1. ;
  1. ; -- do validation checks
  1. IF '$$QRY^SDQVAL(.SDQ,$G(SDERR)) Q ""
  1. IF '$$QRYACT^SDQVAL(.SDQ,$G(SDERR)) Q ""
  1. ;
  1. N SDID,SDGREF,SDSUB
  1. S SDGREF=$G(^TMP("SDQUERY LIST",$J,SDQ,+$G(@SDQUERY@(SDQ,"CURSOR"))))
  1. S SDSUB=+$G(@SDQUERY@(SDQ,"IEN SUBSCRIPT"))
  1. S SDID=$QS(SDGREF,SDSUB)
  1. Q SDID
  1. ;
  1. ;
  1. POST ; -- post error action logic
  1. ;W !,"Error: ",!
  1. ;ZW DIPI ZW DIPE
  1. Q
  1. ;
  1. ;
  1. PREP ; -- Prepare environment / clean up generic error arrays
  1. D CLEAN^DILF
  1. Q
  1. ;
  1. ;
  1. ERRCHK(SDQERRS) ; -- is an error present in error array?
  1. IF $G(SDQERRS)]"" Q $O(@SDQERRS@("DIERR",0))>0
  1. Q $O(^TMP("DIERR",$J,0))>0
  1. ;