SDQ ;ALB/MJK - Query Object Methods ;8/12/96
;;5.3;Scheduling;**131,1015**;Aug 13, 1993;Build 21
;
OPEN(SDQ,SDERR) ; -- SDQ OPEN [API ID: 79]
D PREP^SDQUT
;
; -- get query object instance and set up query class info
IF '$$CREATE(.SDQ,"SD STANDARD ENCOUNTER QUERY",$G(SDERR)) G OPENQ
;
; -- do query object instance kills and sets
K @SDQUERY@(SDQ)
S @SDQUERY@(SDQ)=""
F X="SCAN" M @SDQUERY@(SDQ,X)=^TMP("SDQUERY CLASS",$J,SDQ,X)
D STOP^SDQPROP(.SDQ)
;
; -- do open actions
N SDOPEN
S SDOPEN=$G(^TMP("SDQUERY CLASS",$J,SDQ,"OPEN"))
IF SDOPEN]"" X SDOPEN
OPENQ Q
;
CLOSE(SDQ,SDERR) ; -- SDQ CLOSE [API ID: 80]
D PREP^SDQUT
;
; -- do validation checks
IF '$$QRY^SDQVAL(.SDQ,$G(SDERR)) G CLOSEQ
;
; -- do close actions
N SDCLOSE
S SDCLOSE=$G(^TMP("SDQUERY CLASS",$J,SDQ,"CLOSE"))
IF SDCLOSE]"" X SDCLOSE
;
; -- do query object instance kills
K @SDQUERY@(SDQ)
;
; -- do query class kills
IF '$$DESTROY(.SDQ) G CLOSEQ
S SDQ=""
CLOSEQ Q
;
CREATE(SDQ,SDQNAME,SDERR) ; -- query class level method for CREATE
N SDCLS,SDCLS0,SDOK,SDSTORE
S SDCLS=+$O(^SD(409.64,"B",SDQNAME,0))
IF SDCLS D
. S SDCLS0=$G(^SD(409.64,SDCLS,0))
. S SDSTORE=$S($P(SDCLS0,U,4):$P(SDCLS0,U,4),1:5000)
. IF $G(SDQUERY)="" S SDQUERY="SDQDATA"
. D STORE(.SDQUERY,SDSTORE)
. IF '$O(@SDQUERY@(0)) D KILL
. ;
. ; -- set query id
. S (SDQ,@SDQUERY)=$G(@SDQUERY)+1
. ; -- set up tmp class info
. K ^TMP("SDQUERY CLASS",$J,SDQ)
. M ^TMP("SDQUERY CLASS",$J,SDQ)=^SD(409.64,SDCLS)
. S ^TMP("SDQUERY CLASS",$J,SDQ)=SDCLS
. S ^TMP("SDQUERY CLASS",$J,SDQ,"GL")=$G(^DIC(+$P(SDCLS0,"^",2),0,"GL"))
. ; -- subscript level of files root ; ex:^SCE = 0 ; ex:^SD(404.42, = 1
. S ^TMP("SDQUERY CLASS",$J,SDQ,"GL SUBSCRIPTS")=+$P(SDCLS0,"^",3)
. ;
. S SDOK=1
ELSE D
. ; -- build error msg
. N SDIN,SDOUT
. S SDIN("CLASS")=SDQNAME
. S SDOUT("CLASS")=SDQNAME
. D BLD^SDQVAL(4096400.001,.SDIN,.SDOUT,$G(SDERR))
. S SDOK=0
;
Q SDOK
;
STORE(SDQUERY,SDSTORE) ; -- decide whether to use a local or global
N SDOLD
IF $S<SDSTORE,SDQUERY'["^TMP" D
. S SDOLD=SDQUERY
. S SDQUERY=$NA(^TMP("SDQDATA",$J))
. K @SDQUERY
. M @SDQUERY=@SDOLD
. K @SDOLD
Q
;
DESTROY(SDQ) ; -- query class level method for DESTROY
K ^TMP("SDQUERY CLASS",$J,SDQ)
IF '$O(@SDQUERY@(0)) D KILL K SDQUERY
Q 1
;
KILL ; -- kill class and ien list globals
K ^TMP("SDQUERY CLASS",$J)
K ^TMP("SDQUERY LIST",$J)
K @SDQUERY
Q
;
;
PAT(SDQ,SDFN,SDACT,SDERR) ; -- SDQ PATIENT [API ID: 81]
D PREP^SDQUT
G PATG^SDOEQ
;
GETPAT(SDQ,SDERR) ; -- get patient property [API ID: 1xx]
; -- not supported
D PREP^SDQUT
N SDFN
D PAT^SDOEQ(.SDQ,.SDFN,"GET",$G(SDERR))
Q $G(SDFN)
;
DATE(SDQ,SDBEG,SDEND,SDACT,SDERR) ; -- SDQ DATE RANGE [API ID: 82]
D PREP^SDQUT
G DATEG^SDQPROP
;
GETDATE(SDQ,SDERR) ; -- get date range property [API ID: 1xx]
; -- not supported
D PREP^SDQUT
N SDBEG,SDEND
D DATE^SDQPROP(.SDQ,.SDBEG,.SDEND,"GET",$G(SDERR))
Q $G(SDBEG)_"^"_$G(SDEND)
;
FILTER(SDQ,SDFIL,SDACT,SDERR) ; -- SDQ FILTER [API ID: 83]
D PREP^SDQUT
G FILTERG^SDQPROP
;
GETFIL(SDQ,SDERR) ; -- get filter property [API ID: 1xx]
; -- not supported
D PREP^SDQUT
N SDFIL
D FILTER^SDQPROP(.SDQ,.SDFIL,"GET",$G(SDERR))
Q $G(SDFIL)
;
VISIT(SDQ,SDVST,SDACT,SDERR) ; -- SDQ VISIT [API ID: 84]
D PREP^SDQUT
G VISITG^SDOEQ
;
GETVISIT(SDQ,SDERR) ; -- get visit property [API ID: 1xx]
; -- not supported
D PREP^SDQUT
N SDVST
D VISIT^SDOEQ(.SDQ,.SDVST,.SDACT,$G(SDERR))
Q $G(SDVST)
;
INDEX(SDQ,SDIDX,SDACT,SDERR) ; -- SDQ INDEX NAME [API ID: 85]
D PREP^SDQUT
G INDEXG^SDQPROP
;
GETINDEX(SDQ,SDERR) ; -- get index property [API ID: 1xx]
; -- not supported
D PREP^SDQUT
N SDIDX
D INDEX^SDQPROP(.SDQ,.SDIDX,"GET",$G(SDERR))
Q $G(SDIDX)
;
ACTIVE(SDQ,SDSTAT,SDACT,SDERR) ; -- SDQ ACTIVE STATUS [API ID: 88]
D PREP^SDQUT
G ACTIVEG^SDQPROP
;
GETACT(SDQ,SDERR) ; -- activate query [API ID: 1xx]
; -- not supported
D PREP^SDQUT
N SDSTAT
D ACTIVE^SDQPROP(.SDQ,.SDSTAT,.SDACT,$G(SDERR))
Q $G(SDSTAT)
;
REFRESH(SDQ,SDERR) ; -- SDQ REFRESH [API ID: 94]
D PREP^SDQUT
G REFRESHG^SDQUT
;
SCAN(SDQ,SDIR,SDERR) ; -- SDQ SCAN [API ID: 99]
D PREP^SDQUT
G SCANG^SDQNAV
;
SCANCB(SDQ,SDCB,SDACT,SDERR) ; -- SDQ SCAN CALLBACK [API ID: 100]
D PREP^SDQUT
G SCANCBG^SDQNAV
;
NEXT(SDQ,SDERR) ; -- SDQ NEXT [API ID: 92]
D PREP^SDQUT
G NEXTG^SDQNAV
;
PRIOR(SDQ,SDERR) ; -- SDQ PRIOR [API ID: 93]
D PREP^SDQUT
G PRIORG^SDQNAV
;
FIRST(SDQ,SDERR) ; -- SDQ FIRST [API ID: 90]
D PREP^SDQUT
G FIRSTG^SDQNAV
;
LAST(SDQ,SDERR) ; -- SDQ LAST [API ID: 91]
D PREP^SDQUT
G LASTG^SDQNAV
;
EOF(SDQ,SDERR) ; -- SDQ EOF [API ID: 86]
D PREP^SDQUT
Q $$EOF^SDQNAV(.SDQ,$G(SDERR))
;
BOF(SDQ,SDERR) ; -- SDQ BOF [API ID: 87]
D PREP^SDQUT
Q $$BOF^SDQNAV(.SDQ,$G(SDERR))
;
COUNT(SDQ,SDERR) ; -- SDQ COUNT [API ID: 89]
D PREP^SDQUT
Q $$COUNT^SDQNAV(.SDQ,$G(SDERR))
;
GETENTRY(SDQ,SDERR) ; -- SDQ GET CURRENT ENTRY ID [API ID: 95]
D PREP^SDQUT
Q $$GETENTRY^SDQUT(.SDQ,$G(SDERR))
;
SDQ ;ALB/MJK - Query Object Methods ;8/12/96
+1 ;;5.3;Scheduling;**131,1015**;Aug 13, 1993;Build 21
+2 ;
OPEN(SDQ,SDERR) ; -- SDQ OPEN [API ID: 79]
+1 DO PREP^SDQUT
+2 ;
+3 ; -- get query object instance and set up query class info
+4 IF '$$CREATE(.SDQ,"SD STANDARD ENCOUNTER QUERY",$GET(SDERR))
GOTO OPENQ
+5 ;
+6 ; -- do query object instance kills and sets
+7 KILL @SDQUERY@(SDQ)
+8 SET @SDQUERY@(SDQ)=""
+9 FOR X="SCAN"
MERGE @SDQUERY@(SDQ,X)=^TMP("SDQUERY CLASS",$JOB,SDQ,X)
+10 DO STOP^SDQPROP(.SDQ)
+11 ;
+12 ; -- do open actions
+13 NEW SDOPEN
+14 SET SDOPEN=$GET(^TMP("SDQUERY CLASS",$JOB,SDQ,"OPEN"))
+15 IF SDOPEN]""
XECUTE SDOPEN
OPENQ QUIT
+1 ;
CLOSE(SDQ,SDERR) ; -- SDQ CLOSE [API ID: 80]
+1 DO PREP^SDQUT
+2 ;
+3 ; -- do validation checks
+4 IF '$$QRY^SDQVAL(.SDQ,$GET(SDERR))
GOTO CLOSEQ
+5 ;
+6 ; -- do close actions
+7 NEW SDCLOSE
+8 SET SDCLOSE=$GET(^TMP("SDQUERY CLASS",$JOB,SDQ,"CLOSE"))
+9 IF SDCLOSE]""
XECUTE SDCLOSE
+10 ;
+11 ; -- do query object instance kills
+12 KILL @SDQUERY@(SDQ)
+13 ;
+14 ; -- do query class kills
+15 IF '$$DESTROY(.SDQ)
GOTO CLOSEQ
+16 SET SDQ=""
CLOSEQ QUIT
+1 ;
CREATE(SDQ,SDQNAME,SDERR) ; -- query class level method for CREATE
+1 NEW SDCLS,SDCLS0,SDOK,SDSTORE
+2 SET SDCLS=+$ORDER(^SD(409.64,"B",SDQNAME,0))
+3 IF SDCLS
Begin DoDot:1
+4 SET SDCLS0=$GET(^SD(409.64,SDCLS,0))
+5 SET SDSTORE=$SELECT($PIECE(SDCLS0,U,4):$PIECE(SDCLS0,U,4),1:5000)
+6 IF $GET(SDQUERY)=""
SET SDQUERY="SDQDATA"
+7 DO STORE(.SDQUERY,SDSTORE)
+8 IF '$ORDER(@SDQUERY@(0))
DO KILL
+9 ;
+10 ; -- set query id
+11 SET (SDQ,@SDQUERY)=$GET(@SDQUERY)+1
+12 ; -- set up tmp class info
+13 KILL ^TMP("SDQUERY CLASS",$JOB,SDQ)
+14 MERGE ^TMP("SDQUERY CLASS",$JOB,SDQ)=^SD(409.64,SDCLS)
+15 SET ^TMP("SDQUERY CLASS",$JOB,SDQ)=SDCLS
+16 SET ^TMP("SDQUERY CLASS",$JOB,SDQ,"GL")=$GET(^DIC(+$PIECE(SDCLS0,"^",2),0,"GL"))
+17 ; -- subscript level of files root ; ex:^SCE = 0 ; ex:^SD(404.42, = 1
+18 SET ^TMP("SDQUERY CLASS",$JOB,SDQ,"GL SUBSCRIPTS")=+$PIECE(SDCLS0,"^",3)
+19 ;
+20 SET SDOK=1
End DoDot:1
+21 IF '$TEST
Begin DoDot:1
+22 ; -- build error msg
+23 NEW SDIN,SDOUT
+24 SET SDIN("CLASS")=SDQNAME
+25 SET SDOUT("CLASS")=SDQNAME
+26 DO BLD^SDQVAL(4096400.001,.SDIN,.SDOUT,$GET(SDERR))
+27 SET SDOK=0
End DoDot:1
+28 ;
+29 QUIT SDOK
+30 ;
STORE(SDQUERY,SDSTORE) ; -- decide whether to use a local or global
+1 NEW SDOLD
+2 IF $STORAGE<SDSTORE
IF SDQUERY'["^TMP"
Begin DoDot:1
+3 SET SDOLD=SDQUERY
+4 SET SDQUERY=$NAME(^TMP("SDQDATA",$JOB))
+5 KILL @SDQUERY
+6 MERGE @SDQUERY=@SDOLD
+7 KILL @SDOLD
End DoDot:1
+8 QUIT
+9 ;
DESTROY(SDQ) ; -- query class level method for DESTROY
+1 KILL ^TMP("SDQUERY CLASS",$JOB,SDQ)
+2 IF '$ORDER(@SDQUERY@(0))
DO KILL
KILL SDQUERY
+3 QUIT 1
+4 ;
KILL ; -- kill class and ien list globals
+1 KILL ^TMP("SDQUERY CLASS",$JOB)
+2 KILL ^TMP("SDQUERY LIST",$JOB)
+3 KILL @SDQUERY
+4 QUIT
+5 ;
+6 ;
PAT(SDQ,SDFN,SDACT,SDERR) ; -- SDQ PATIENT [API ID: 81]
+1 DO PREP^SDQUT
+2 GOTO PATG^SDOEQ
+3 ;
GETPAT(SDQ,SDERR) ; -- get patient property [API ID: 1xx]
+1 ; -- not supported
+2 DO PREP^SDQUT
+3 NEW SDFN
+4 DO PAT^SDOEQ(.SDQ,.SDFN,"GET",$GET(SDERR))
+5 QUIT $GET(SDFN)
+6 ;
DATE(SDQ,SDBEG,SDEND,SDACT,SDERR) ; -- SDQ DATE RANGE [API ID: 82]
+1 DO PREP^SDQUT
+2 GOTO DATEG^SDQPROP
+3 ;
GETDATE(SDQ,SDERR) ; -- get date range property [API ID: 1xx]
+1 ; -- not supported
+2 DO PREP^SDQUT
+3 NEW SDBEG,SDEND
+4 DO DATE^SDQPROP(.SDQ,.SDBEG,.SDEND,"GET",$GET(SDERR))
+5 QUIT $GET(SDBEG)_"^"_$GET(SDEND)
+6 ;
FILTER(SDQ,SDFIL,SDACT,SDERR) ; -- SDQ FILTER [API ID: 83]
+1 DO PREP^SDQUT
+2 GOTO FILTERG^SDQPROP
+3 ;
GETFIL(SDQ,SDERR) ; -- get filter property [API ID: 1xx]
+1 ; -- not supported
+2 DO PREP^SDQUT
+3 NEW SDFIL
+4 DO FILTER^SDQPROP(.SDQ,.SDFIL,"GET",$GET(SDERR))
+5 QUIT $GET(SDFIL)
+6 ;
VISIT(SDQ,SDVST,SDACT,SDERR) ; -- SDQ VISIT [API ID: 84]
+1 DO PREP^SDQUT
+2 GOTO VISITG^SDOEQ
+3 ;
GETVISIT(SDQ,SDERR) ; -- get visit property [API ID: 1xx]
+1 ; -- not supported
+2 DO PREP^SDQUT
+3 NEW SDVST
+4 DO VISIT^SDOEQ(.SDQ,.SDVST,.SDACT,$GET(SDERR))
+5 QUIT $GET(SDVST)
+6 ;
INDEX(SDQ,SDIDX,SDACT,SDERR) ; -- SDQ INDEX NAME [API ID: 85]
+1 DO PREP^SDQUT
+2 GOTO INDEXG^SDQPROP
+3 ;
GETINDEX(SDQ,SDERR) ; -- get index property [API ID: 1xx]
+1 ; -- not supported
+2 DO PREP^SDQUT
+3 NEW SDIDX
+4 DO INDEX^SDQPROP(.SDQ,.SDIDX,"GET",$GET(SDERR))
+5 QUIT $GET(SDIDX)
+6 ;
ACTIVE(SDQ,SDSTAT,SDACT,SDERR) ; -- SDQ ACTIVE STATUS [API ID: 88]
+1 DO PREP^SDQUT
+2 GOTO ACTIVEG^SDQPROP
+3 ;
GETACT(SDQ,SDERR) ; -- activate query [API ID: 1xx]
+1 ; -- not supported
+2 DO PREP^SDQUT
+3 NEW SDSTAT
+4 DO ACTIVE^SDQPROP(.SDQ,.SDSTAT,.SDACT,$GET(SDERR))
+5 QUIT $GET(SDSTAT)
+6 ;
REFRESH(SDQ,SDERR) ; -- SDQ REFRESH [API ID: 94]
+1 DO PREP^SDQUT
+2 GOTO REFRESHG^SDQUT
+3 ;
SCAN(SDQ,SDIR,SDERR) ; -- SDQ SCAN [API ID: 99]
+1 DO PREP^SDQUT
+2 GOTO SCANG^SDQNAV
+3 ;
SCANCB(SDQ,SDCB,SDACT,SDERR) ; -- SDQ SCAN CALLBACK [API ID: 100]
+1 DO PREP^SDQUT
+2 GOTO SCANCBG^SDQNAV
+3 ;
NEXT(SDQ,SDERR) ; -- SDQ NEXT [API ID: 92]
+1 DO PREP^SDQUT
+2 GOTO NEXTG^SDQNAV
+3 ;
PRIOR(SDQ,SDERR) ; -- SDQ PRIOR [API ID: 93]
+1 DO PREP^SDQUT
+2 GOTO PRIORG^SDQNAV
+3 ;
FIRST(SDQ,SDERR) ; -- SDQ FIRST [API ID: 90]
+1 DO PREP^SDQUT
+2 GOTO FIRSTG^SDQNAV
+3 ;
LAST(SDQ,SDERR) ; -- SDQ LAST [API ID: 91]
+1 DO PREP^SDQUT
+2 GOTO LASTG^SDQNAV
+3 ;
EOF(SDQ,SDERR) ; -- SDQ EOF [API ID: 86]
+1 DO PREP^SDQUT
+2 QUIT $$EOF^SDQNAV(.SDQ,$GET(SDERR))
+3 ;
BOF(SDQ,SDERR) ; -- SDQ BOF [API ID: 87]
+1 DO PREP^SDQUT
+2 QUIT $$BOF^SDQNAV(.SDQ,$GET(SDERR))
+3 ;
COUNT(SDQ,SDERR) ; -- SDQ COUNT [API ID: 89]
+1 DO PREP^SDQUT
+2 QUIT $$COUNT^SDQNAV(.SDQ,$GET(SDERR))
+3 ;
GETENTRY(SDQ,SDERR) ; -- SDQ GET CURRENT ENTRY ID [API ID: 95]
+1 DO PREP^SDQUT
+2 QUIT $$GETENTRY^SDQUT(.SDQ,$GET(SDERR))
+3 ;
