Routine: ISIJLS2

Package	Total	Call Graph
Vendor - ISI	4	$$STATUS^ISIJLS1 FORMOUT^ISIJLS2B QRSPECS^ISIJLS2C $$Q^ISINUQRY
VA FileMan	3	(H,NOW)^%DTC DT^DICRW UPDATE^DIE
Imaging	2	SVMAG2A^MAGJLS3 GETEXAM2^MAGJUTL1
Kernel	2	$$EC^%ZOSV $$FMDIFF^XLFDT

Package	Total	Caller Graph
Imaging	4	MAGJLS2 MAGJLS2B MAGJLS3 ^MAG(2006.631
Vendor - ISI	2	ISIJ DYNAMIC QUERY ISIJLS2C

Entry Points

Name	Comments	DBIA/ICR reference
ERR
QRYCOMP(REPLY)	; Compile dynamic query lists
QRSCAN	; scan the db--Full scan
QRSCAN1	;
QRSCANP	; Scan thru prior result records
QREXAMS	; process all exams this pt/dt ; "high-level" filtering performed below, for efficiency of DB scan ; any tested condition that fails sets NOGO to 1 --> skip record ; otherwise call normal list processing to check any other ; criteria and process for output
QREXAMS2(RACNI)	; process one exam
SETVARS(DIS,MDCVAR,LSTHDR,MDLVAR)	; selection logic & column data modify ; * called from magjls2b * ; define search terms stuff for use in list selection logic (magjls2b)
QRYGET(FULLSCAN,QUERY)	; Dynamic query find & return query specs ; Returns: ; -- fullscan TRUE if no scan results exist in this session ; -- query TRUE if query specs are defined for this session
QRYLOG	; Log queries run; * * * called by magjls2 * * * ; --> possible future enh--create index(es) optimized for the types ; of queries that are often run, based on evaluating this log
QRYLOG2(STATREC,ISCAN)	; init &/or return statistics record references
NEWLOG(SESSION)	; Create new entry in Stats file; only called if not yet defined
AGECALC(DT1,DT2)	; return age given 2 dates; up to 2 yrs returns decimal rsl
NAMEFMT(X)	; normalize name text
STRIP(X)	; remove up-carets, extraneous spaces
UPCASE(X)	; cx to uppercase
TDELTA(T1,T2,SCALE)	; calc time delta in $s(scale="SEC": seconds, 1: days)
QRYRPC(MAGGRY,PARAMS,DATA)	; ISIJ DYNAMIC QUERY -- RPC ep ; 1 = Create/Edit query (populate gui form: either new in session, or edit existing query) ; 3 = Clear session query (populate gui form) ; 2 = Validate query--validate, translate & store the specs (only if OK); else error msg
SX70SIT(X,DA)	;Set Query Site index for RAD/NUC MED PATIENT file
KX70SIT(X,DA)	;Delete Query Site index for RAD/NUC MED PATIENT file

Name	Field # of Occurrence
H^%DTC	TDELTA+3, TDELTA+4
NOW^%DTC	QRYCOMP+13, QRYLOG+10
$$EC^%ZOSV	ERR
DT^DICRW	QRYRPC+5
UPDATE^DIE	NEWLOG+5
$$STATUS^ISIJLS1	QREXAMS2+7
FORMOUT^ISIJLS2B	QRYRPC+13
QRSPECS^ISIJLS2C	QRYCOMP+10, QRYRPC+22
$$Q^ISINUQRY	QRYRPC+14
SVMAG2A^MAGJLS3	QREXAMS2+30
GETEXAM2^MAGJUTL1	QREXAMS2+29
$$FMDIFF^XLFDT	AGECALC+2

RPC Name	Call Tags
ISIJ DYNAMIC QUERY	QRYRPC

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR+2
^DPT - [#2]	QREXAMS+15
^ISI(	QRYLOG+12, QRYLOG+15, QRYLOG+28, QRYLOG2+2, QRYLOG2+5, QRYLOG2+6, QRYLOG2+7*, QRYLOG2+8
^ISINDX(70	QRSCAN+3, QRSCAN+17, SX70SIT+5*, KX70SIT+3!
^MAG(2006.63 - [#2006.63]	SETVARS+15
^MAG(2006.69 - [#2006.69]	QRYCOMP+14
^RADPT - [#70]	QREXAMS+6, QREXAMS+39, QREXAMS2+1
^RADPT("AR"	QRSCAN+6
^TMP($J	ERR*, ERR+1, QRYRPC+9
^XTMP("MAGJ2"	QRYCOMP+13, QRYCOMP+17, QRSCANP+1, SETVARS+4, SETVARS+5, SETVARS+9, QRYGET+7, QRYGET+8!, QRYGET+9, QRYGET+10 , QRYGET+11!, QRYLOG+8, QRYLOG+18, QRYLOG+20, QRYRPC+10!

Name	Line Occurrences
$$AGECALC	QREXAMS+34
$$NAMEFMT	QREXAMS+21
$$NEWLOG	QRYLOG2+3
$$STRIP	NAMEFMT+3
$$TDELTA	QRYLOG+17, QRYLOG+23, QRYLOG+24, QRYLOG+25
$$UPCASE	NAMEFMT+2
@(	ERR+2
QREXAMS	QRSCAN1+6, QRSCANP+3
QREXAMS2	QREXAMS+37, QREXAMS+39
QRSCAN	QRYCOMP+15
QRSCAN1	QRSCAN+10, QRSCAN+17
QRSCANP	QRYCOMP+16
QRYGET	QRYCOMP+8
QRYLOG2	QRYLOG+11

Name	Field # of Occurrence
^(	QRSCANP+2, QRYLOG+20
^("ISI"	QREXAMS2+1
^(0	QRYLOG2+6*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QRYCOMP+13, QRYLOG+10
>> %H	TDELTA+3, TDELTA+4
>> %T	TDELTA+3, TDELTA+4
ABORT	QRYCOMP+5~, QRYCOMP+14, QRYCOMP+17, QRSCAN+17, QRSCAN1+3, QREXAMS2+31
AGE	AGECALC+1~, AGECALC+2, AGECALC+3, AGECALC+4*, AGECALC+5
AGE1	QRYCOMP+3~, QREXAMS+35
AGE2	QRYCOMP+3~, QREXAMS+35
ASSNCHK	QRYCOMP+5~, QREXAMS2+22, QREXAMS2+23, QREXAMS2+24, QREXAMS2+25
ASSNDATA	QRYCOMP+5~, QREXAMS2+1*, QREXAMS2+21
ASSNDEF	QREXAMS2+20~, QREXAMS2+21, QREXAMS2+22, QREXAMS2+24, QREXAMS2+25
ASSNISME	QREXAMS2+20~, QREXAMS2+21, QREXAMS2+23, QREXAMS2+24
C	QREXAMS+20~*, QREXAMS+22, QREXAMS+24, QREXAMS+25
COMMA	QRYCOMP+3~, QRYCOMP+6*, QRSCAN1+4, QRSCAN1+5, QRSCAN1+6
DA	SX70SIT~, SX70SIT+4, SX70SIT+5, KX70SIT~, KX70SIT+2, KX70SIT+3
DA(1	SX70SIT+5, KX70SIT+3
DATA	QRYRPC~, QRYRPC+21, QRYRPC+22
DATE	SX70SIT+3~, SX70SIT+4, SX70SIT+5, KX70SIT+1~, KX70SIT+2, KX70SIT+3
DATTEST	QRYCOMP+3~, QRSCAN+1~, QRSCAN+7, QRSCAN+13, QRSCAN1+5
DFNPC	QRSCAN+1~, QRSCAN+9, QRSCAN+15, QRSCAN1+6
>> DIQUIET	QRYRPC+5*
DIS	SETVARS~, SETVARS+6!
DIS(0	SETVARS+6*
DIS(1	SETVARS+7*
DT1	AGECALC~, AGECALC+2
DT2	AGECALC~, AGECALC+2
DTIPC	QRSCAN+1~, QRSCAN+9, QRSCAN+15, QRSCAN1+6
DUZ	QRYCOMP+13, QRYCOMP+17, QRSCANP+1, QREXAMS2+14, QREXAMS2+21, SETVARS+4, SETVARS+5, SETVARS+9, QRYGET+7, QRYGET+8 , QRYGET+9, QRYGET+10, QRYGET+11, QRYLOG+8, QRYLOG+18, QRYLOG+20, NEWLOG+3, QRYRPC+10
ERR	ERR~*
ERRMSG	QRYCOMP+3~, QRYCOMP+6, QRYCOMP+10, QRYCOMP+11, QRYRPC+6~, QRYRPC+7, QRYRPC+21*, QRYRPC+22, QRYRPC+23
EXAMDAT	QRYCOMP+5~, QRSCAN1+5, QRSCANP+3, QREXAMS+32, QREXAMS+33
FLD	SETVARS+12~, SETVARS+13, SETVARS+14, SETVARS+15, SETVARS+16, SETVARS+18, SETVARS+20*, SETVARS+21
FULL	QRYLOG+5~, QRYLOG+16*
FULLSCAN	QRYCOMP+1~, QRYCOMP+8, QRYCOMP+13, QRYCOMP+15, QREXAMS2+31, QRYGET~, QRYGET+6, QRYGET+9, QRYGET+11, QRYLOG+6~ , QRYLOG+9*, QRYLOG+13, QRYLOG+16
H1	TDELTA+1~, TDELTA+3*, TDELTA+5
H2	TDELTA+1~, TDELTA+4*, TDELTA+5
HDR	SETVARS+12~, SETVARS+17, SETVARS+18, SETVARS+20, SETVARS+21
I	QREXAMS+20~, QREXAMS+22, QREXAMS+24, QREXAMS+25, QREXAMS+26, QREXAMS2+14, SETVARS+6, SETVARS+7, SETVARS+9, SETVARS+10 , QRYLOG+27, NAMEFMT+1~, NAMEFMT+3, STRIP+1~, STRIP+3, STRIP+4, STRIP+5, STRIP+6, QRYRPC+17*, QRYRPC+18
IDX	QRYCOMP+3~, QRSCANP+1, QRSCANP+2
IDXFIL	QRYCOMP+3~, QRSCAN+6, QRSCAN+17, QRSCAN1+2, QRSCAN1+4, QRSCANP+1*, QRSCANP+2
IEN	QRYLOG2+1~, QRYLOG2+2, QRYLOG2+3, QRYLOG2+4, QRYLOG2+6*, QRYLOG2+7, QRYLOG2+9
IOUT	QRYRPC+16~, QRYRPC+17
ISCAN	QRYLOG+6~, QRYLOG+11, QRYLOG+28, QRYLOG2~, QRYLOG2+9*
J	QREXAMS+20~, QREXAMS+23*
L	QREXAMS+20~, QREXAMS+25*
LOGFILE	QRYLOG+6~, QRYLOG+7*, QRYLOG+12, QRYLOG+15, QRYLOG+28, QRYLOG2+2, QRYLOG2+5, QRYLOG2+6, QRYLOG2+7, QRYLOG2+8 , NEWLOG+2, NEWLOG+3, NEWLOG+4
LSTHDR	SETVARS~, SETVARS+10, SETVARS+21*
MAGGRY	ERR+1, QRYRPC~, QRYRPC+9!, QRYRPC+11, QRYRPC+17, QRYRPC+18, QRYRPC+19, QRYRPC+23, QRYRPC+24
>> MAGJOB("CONSOLIDATED"	QREXAMS+7
>> MAGJOB("DIVSCRN"	QRSCAN+3, QRSCAN+17, QREXAMS+9
>> MAGJOB("SESSION"	QRYCOMP+6, SETVARS+4, SETVARS+5, SETVARS+9, QRYGET+5, QRYLOG+7, QRYRPC+7
MAGLST	QRYRPC+6~, QRYRPC+8*, QRYRPC+9
MAGRET	QRYCOMP+3~, QREXAMS2+29, QREXAMS2+30
MDCVAR	SETVARS~, SETVARS+6!
MDCVAR(	SETVARS+7*
MDLVAR	SETVARS~, SETVARS+21*
>> N	QRYLOG+20*, QRYLOG+21, QRYLOG+22
NAMTST	QREXAMS+20~, QREXAMS+23*, QREXAMS+24, QREXAMS+25
NDAY	TDELTA+1~, TDELTA+5*, TDELTA+6, TDELTA+8
NDAYBAKS	QRYLOG+4~, QRYLOG+24*
NDAYSOFF	QRYLOG+4~, QRYLOG+23*
NDAYSTOT	QRYLOG+4~, QRYLOG+25*
NIMG1	QRYCOMP+3~
NIMG2	QRYCOMP+3~
NIMGSPEC	QRYCOMP+3~
NOGO	QRYCOMP+3~, QREXAMS+5, QREXAMS+6, QREXAMS+7, QREXAMS+9, QREXAMS+11, QREXAMS+13, QREXAMS+15, QREXAMS+17, QREXAMS+23 , QREXAMS+26, QREXAMS+28, QREXAMS+30, QREXAMS+35, QREXAMS2+3, QREXAMS2+5, QREXAMS2+6, QREXAMS2+8, QREXAMS2+9, QREXAMS2+10 , QREXAMS2+12, QREXAMS2+13, QREXAMS2+15, QREXAMS2+16, QREXAMS2+17, QREXAMS2+19, QREXAMS2+20, QREXAMS2+22, QREXAMS2+23, QREXAMS2+24 , QREXAMS2+25*
NRESULTS	QRYLOG+5~, QRYLOG+7, QRYLOG+22
NSCANFUL	QRYLOG+4~
NSCANRE	QRYLOG+4~
NSEC	QRYLOG+4~, QRYLOG+17, TDELTA+1~, TDELTA+7, TDELTA+8
OK	QREXAMS+20~, QREXAMS+25*, QREXAMS+26
ORD	SETVARS+12~, SETVARS+16*, SETVARS+18
PARAMS	QRYRPC~, QRYRPC+10, QRYRPC+12, QRYRPC+20
PTAGE	QREXAMS+31~, QREXAMS+34*, QREXAMS+35
PTDATA	QRYCOMP+4~, QREXAMS+15*, QREXAMS+21, QREXAMS+28, QREXAMS+32
PTNAME	QRYCOMP+4~
PTNAME(	QREXAMS+23
PTNAME(0	QREXAMS+23
QAGE	QRYCOMP+1~, QREXAMS+29
QASSN	QRYCOMP+1~, QREXAMS2+18
QDATFR	QRYCOMP+1~, QRYCOMP+13, QRSCAN1+2, QRYLOG+6~, QRYLOG+9*, QRYLOG+24, QRYLOG+25
QDATTO	QRYCOMP+1~, QRYCOMP+13, QRSCAN1+5, QRYLOG+6~, QRYLOG+9*, QRYLOG+23, QRYLOG+25
QIMGLOC	QRYCOMP+2~, QREXAMS+12
QIMGLOC(	QREXAMS+13
QIMGTYP	QRYCOMP+1~, QREXAMS+10
QIMGTYP(	QREXAMS+11
QNIMG	QRYCOMP+1~
QPTNAME	QRYCOMP+1~, QREXAMS+16
QRCOLS	SETVARS+3~
QRCOLS(	SETVARS+18*
QRIST	QRYCOMP+1~, QREXAMS2+11
QRMD	SETVARS+3~, SETVARS+5*
QRMD(	SETVARS+7
QSEX	QRYCOMP+1~, QREXAMS+27
QSTATUS	QRYCOMP+1~, QREXAMS2+4
QUERY	QRYCOMP+1~, QRYCOMP+8, QRYCOMP+9, QRYGET~, QRYGET+6, QRYGET+10
RACNI	QRYCOMP+4~, QRSCAN1+6, QRSCANP+3, QREXAMS+37, QREXAMS+38, QREXAMS+39, QREXAMS2~, QREXAMS2+1, QREXAMS2+29
RADATA	QRYCOMP+4~, QREXAMS+6, QREXAMS+8, QREXAMS+11, QREXAMS+13, QREXAMS2+1, QREXAMS2+2, QREXAMS2+6, QREXAMS2+14
RADFN	QRYCOMP+4~, QRSCAN1+6, QRSCANP+3, QREXAMS+6, QREXAMS+15, QREXAMS+39, QREXAMS2+1, QREXAMS2+29
RADTI	QRYCOMP+4~, QRSCAN1+6, QRSCANP+3, QREXAMS+6, QREXAMS+39, QREXAMS2+1, QREXAMS2+29
RAST	QREXAMS2+30!
RECCOUNT	QRYCOMP+5~, QRYCOMP+14, QREXAMS2+31
REPLY	QRYCOMP~, QRYCOMP+7, QRYCOMP+11, QRYCOMP+18, QRYCOMP+19, QRYRPC+6~, QRYRPC+13, QRYRPC+16
REPLY(""	QRYRPC+14
REPLY(0	QRYRPC+14
RISTCHK	QRYCOMP+4~, QREXAMS2+15, QREXAMS2+16, QREXAMS2+17
RISTDEF	QREXAMS2+13~, QREXAMS2+14, QREXAMS2+16, QREXAMS2+17
RISTISME	QREXAMS2+13~, QREXAMS2+14, QREXAMS2+15, QREXAMS2+16
RSL	NEWLOG+1~, TDELTA+1~, TDELTA+2, TDELTA+8, TDELTA+9
RSL(1	NEWLOG+6
RSLLIMIT	QRYCOMP+5~, QRYCOMP+14*, QRYCOMP+17, QREXAMS2+31
SCALE	TDELTA~, TDELTA+8
SCAN	QRYCOMP+4~, QRSCAN1+2, QRSCAN1+3, QRSCAN1+4, QRSCAN1+5, QRSCAN1+6
SCANEND	QRYLOG+4~, QRYLOG+10*, QRYLOG+17, QRYLOG+23, QRYLOG+24
SCANIDX	QRSCAN+1~, QRSCAN+2, QRSCAN+3, QRSCAN+5, QRSCAN+11
SCANREC	QRYLOG+5~, QRYLOG+7, QRYLOG+21, QRYLOG+27*, QRYLOG+28
SCANSTRT	QRYCOMP+5~, QRYCOMP+13, QRYLOG+6~, QRYLOG+9, QRYLOG+17
SCANTERM	QRYLOG+4~, QRYLOG+7, QRYLOG+19
SESSION	QRYCOMP+4~, QRYCOMP+6, QRYCOMP+13, QRYCOMP+17, QRSCANP+1, QRYGET+5~, QRYGET+8, QRYGET+9, QRYGET+10, QRYGET+11 , QRYLOG+6~, QRYLOG+7, QRYLOG+8, QRYLOG+18, QRYLOG+20, QRYLOG2+2, QRYLOG2+3, NEWLOG~, NEWLOG+2, QRYRPC+6~ , QRYRPC+7
SESSTR	QRYLOG+5~, QRYLOG+12, QRYLOG+14, QRYLOG+15
SEX	QRYCOMP+4~, QREXAMS+28
SITE	QRSCAN+16~, QRSCAN+17
SPECFLDS	SETVARS+3~, SETVARS+11
SPECFLDS(	SETVARS+9*, SETVARS+10!, SETVARS+14
SSTEST	QRSCAN+1~, QRSCAN+8, QRSCAN+14, QRSCAN1+4
STATCHK	QREXAMS2+30!
STATREC	QRYLOG+6~, QRYLOG+11, QRYLOG+12, QRYLOG+15, QRYLOG+28, QRYLOG2~, QRYLOG2+4*, QRYLOG2+5, QRYLOG2+6, QRYLOG2+7 , QRYLOG2+8
STATTEST	QRYCOMP+4~
STATTEST(	QREXAMS2+10
STOP	QRSCAN1+1~, QRSCAN1+2, QRSCAN1+3, QRSCAN1+4, QRSCAN1+5*
STS	QRYCOMP+4~, QREXAMS2+6*, QREXAMS2+7
T	SETVARS+10, SETVARS+19, SETVARS+20, QRYLOG+13, QRYLOG+14, QRYLOG+21, QRYLOG2+1~, QRYLOG2+6, STRIP+1~, STRIP+7 , STRIP+9, STRIP+10, QRYRPC+14*
T1	TDELTA~, TDELTA+3
T2	TDELTA~, TDELTA+4
THISDATE	QRYLOG+5~, QRYLOG+10*, NEWLOG+4
TT1	TDELTA+1~, TDELTA+3*, TDELTA+7
TT2	TDELTA+1~, TDELTA+4, TDELTA+6, TDELTA+7
TYP	SETVARS+12~, SETVARS+16, SETVARS+18, SETVARS+20, SETVARS+21
U	QRYCOMP+13, QRYCOMP+14, QRSCANP+3, QREXAMS+8, QREXAMS+11, QREXAMS+13, QREXAMS+21, QREXAMS+28, QREXAMS+32, QREXAMS2+6 , QREXAMS2+14, QREXAMS2+21, SETVARS+7, SETVARS+10, SETVARS+16, SETVARS+17, SETVARS+18, SETVARS+20, SETVARS+21, QRYLOG+9 , QRYLOG+14, QRYLOG+21, QRYLOG+27, QRYLOG2+6, STRIP+2, QRYRPC+18
VARSTR	QRYLOG+5~, QRYLOG+26*, QRYLOG+27
X	QRSCANP+2, QRSCANP+3, QREXAMS+8, QREXAMS+9, QREXAMS+20~, QREXAMS+21, QREXAMS+22, QREXAMS2+7, QREXAMS2+8, QREXAMS2+9 , QREXAMS2+10, QREXAMS2+14, QREXAMS2+21, SETVARS+15, SETVARS+16, SETVARS+17, SETVARS+20, QRYLOG+8, QRYLOG+9, QRYLOG+10 , QRYLOG+14, QRYLOG+18, QRYLOG+19, QRYLOG+20, QRYLOG+21, QRYLOG+27, QRYLOG2+1~, QRYLOG2+6, NAMEFMT~, NAMEFMT+2* , NAMEFMT+3, NAMEFMT+4, STRIP~, STRIP+2, STRIP+3, STRIP+4, STRIP+5, STRIP+6, STRIP+7, STRIP+9 , STRIP+10, STRIP+11, UPCASE~, UPCASE+1, TDELTA+3, TDELTA+4*, SX70SIT~, KX70SIT~
X(	QREXAMS+22*, QREXAMS+25
X(1	SX70SIT+5, KX70SIT+3
>> X1	QREXAMS+32, QREXAMS+33, QREXAMS+34
>> X2	QREXAMS+32, QREXAMS+33, QREXAMS+34
Y	QREXAMS+20~, QREXAMS+24!
Y(	QREXAMS+24*, QREXAMS+25
ZJ	NEWLOG+1~
ZJ(	NEWLOG+2, NEWLOG+3, NEWLOG+4*

Customize PDF page

Package: Vendor - ISI

Routine: ISIJLS2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: