Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGDQR06

Package: Imaging

Routine: MAGDQR06


Information

MAGDQR06 ;WOIFO/EdM,MLH - Imaging RPCs for Query/Retrieve ; 03 Apr 2012 11:26 AM

Source Information

Source file <MAGDQR06.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Imaging 4 $$GMRCIEN^MAGDFCNV  $$COMPARE^MAGDQR03  $$STYDESC2^MAGUE001  $$PROCIX^MAGUE005  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 $$DT^XLFDT  
Radiology Nuclear Medicine 1 $$ACCFIND^RAAPI  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Imaging 1 MAGDQR03  

Entry Points

Name Comments DBIA/ICR reference
Q0080050(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;R Accession Number
; sensitive/employee?
Q0200010(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;R Study ID
; sensitive/employee?
Q0080062(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O SOP Classes in Study
; --- probably not supported --- ?
; ? ? ?
Q0080090(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O Referring Physician's Name
Q0081030(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O Study Description
; sensitive/employee?
Q0080100(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O >Code Value
Q0080104(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O >Code Meaning
Q0081060(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O Name of Physician(s) Reading Study
Q0081080(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O Admitting Diagnosis Description
; ? ? ?
Q01021B0(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O Additional Patient History
; sensitive/employee?
Q0104000(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O Patient Comments
; ? ? ?
; (there is a modality that passes the accession number in this field)
U008010C(TYPE,REQ,V,T,MAGDFN,MAGIEN,MAGRORD,MAGINTERP,SENSEMP,OK) ;O Interpretation Author
GMRC(ACCNUM,IMAGE) ; Return consult number for image
TIUIX(TYPE,STUDYIX) ; FUNCTION - find the TIU note index corresponding to a study's procedure
; perform appropriate lookup for old / new database structure
FINDTYP(IMGTYPE,MAGDFN,MAGIEN,MAGRORD,MAGINTERP) ; find type of image on new DB
; if found, will reset IMGTYPE for further processing

External References

Name Field # of Occurrence
$$GET1^DIQ Q0080090+11, Q0080090+17, Q0080100+14, Q0080104+15, Q0081060+12, Q01021B0+15, U008010C+11, U008010C+18
$$CPT^ICPTCOD Q0080100+7, Q0080104+8
$$GMRCIEN^MAGDFCNV GMRC+4
$$COMPARE^MAGDQR03 Q0081030+7, Q01021B0+19
$$STYDESC2^MAGUE001 Q0081030+6
$$PROCIX^MAGUE005 FINDTYP+3
$$ACCFIND^RAAPI FINDTYP+8
$$DT^XLFDT Q0080050+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAG(2005 - [#2005] TIUIX+4
^MAGV(2005.61 - [#2005.61] TIUIX+10, FINDTYP+4
^MAGV(2005.62 - [#2005.62] TIUIX+9
^RADPT - [#70] Q0080090+10, Q0080100+5, Q0080104+6, Q0081060+10, U008010C+10
^RAMIS(71 - [#71] Q0080100+6, Q0080104+7
^RARPT - [#74] Q0081060+11
^TIU(8925 - [#8925] Q01021B0+14, U008010C+17, GMRC+6
^TMP("MAG" Q0080050+8, Q0200010+6, Q0080090+16, Q0080100+13, Q0080104+14

Label References

Name Line Occurrences
$$GMRC Q0080090+16, Q0080100+13, Q0080104+14
$$TIUIX Q01021B0+12, U008010C+15, GMRC+5
FINDTYP Q0080090+8, Q0080100+3, Q0080104+3, Q0081060+7, Q01021B0+9, U008010C+8

Naked Globals

Name Field # of Occurrence
^(0 TIUIX+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACCARY FINDTYP+7~, FINDTYP+8
ACCARY( FINDTYP+10, FINDTYP+11
ACCNUM GMRC~, GMRC+4
D1 Q01021B0+6~
G0 Q0080090+14~, Q0080090+16*, Q0080090+17, Q0080100+11~, Q0080100+13*, Q0080100+14, Q0080104+12~, Q0080104+14*, Q0080104+15, GMRC+3~
, GMRC+4*
I Q0200010+3~*, Q0081030+3~*, Q01021B0+3~*, Q01021B0+6~, FINDTYP+7~, FINDTYP+8*, FINDTYP+9*, FINDTYP+10*, FINDTYP+11
IMAGE GMRC~, GMRC+5
IMGTYPE Q0080090+1~, Q0080090+7*, Q0080090+8, Q0080090+9, Q0080090+13, Q0080100+1~, Q0080100+2*, Q0080100+3, Q0080100+4, Q0080100+10
, Q0080104+1~, Q0080104+2*, Q0080104+3, Q0080104+4, Q0080104+11, Q0081060+5~, Q0081060+6*, Q0081060+7, Q0081060+8, Q0081060+14
, Q01021B0+6~, Q01021B0+7~, Q01021B0+8*, Q01021B0+9, Q01021B0+10, Q01021B0+11, Q01021B0+12, U008010C+1~, U008010C+6~, U008010C+7*
, U008010C+8, U008010C+9, U008010C+13, U008010C+15, FINDTYP~, FINDTYP+12*, FINDTYP+15*
MAGDFN Q0080050~, Q0200010~, Q0080062~, Q0080090~, Q0080090+8, Q0080090+10, Q0081030~, Q0080100~, Q0080100+3, Q0080100+5
, Q0080104~, Q0080104+3, Q0080104+6, Q0081060~, Q0081060+7, Q0081060+10, Q0081080~, Q01021B0~, Q01021B0+9, Q0104000~
, U008010C~, U008010C+8, U008010C+10, FINDTYP~, FINDTYP+10
MAGIEN Q0080050~, Q0200010~, Q0080062~, Q0080090~, Q0080090+8, Q0080090+15, Q0080090+16, Q0081030~, Q0081030+6, Q0080100~
, Q0080100+3, Q0080100+12, Q0080100+13, Q0080104~, Q0080104+3, Q0080104+13, Q0080104+14, Q0081060~, Q0081060+7, Q0081080~
, Q01021B0~, Q01021B0+9, Q01021B0+12, Q0104000~, U008010C~, U008010C+8, U008010C+15, FINDTYP~, FINDTYP+3
MAGINTERP Q0080050~, Q0200010~, Q0080062~, Q0080090~, Q0080090+8, Q0080090+10, Q0081030~, Q0080100~, Q0080100+3, Q0080100+5
, Q0080104~, Q0080104+3, Q0080104+6, Q0081060~, Q0081060+7, Q0081060+10, Q0081080~, Q01021B0~, Q01021B0+9, Q0104000~
, U008010C~, U008010C+8, U008010C+10, FINDTYP~, FINDTYP+11*
MAGRORD Q0080050~, Q0200010~, Q0080062~, Q0080090~, Q0080090+8, Q0080090+10, Q0081030~, Q0080100~, Q0080100+3, Q0080100+5
, Q0080104~, Q0080104+3, Q0080104+6, Q0081060~, Q0081060+7, Q0081060+10, Q0081080~, Q01021B0~, Q01021B0+9, Q0104000~
, U008010C~, U008010C+8, U008010C+10, FINDTYP~, FINDTYP+11*
OK Q0080050~, Q0200010~, Q0080062~, Q0080090~, Q0081030~, Q0081030+7*, Q0080100~, Q0080104~, Q0081060~, Q0081080~
, Q01021B0~, Q01021B0+19*, Q0104000~, U008010C~
PROCIDNT FINDTYP+2~, FINDTYP+5*, FINDTYP+8
PROCIX TIUIX+8~, TIUIX+9*, TIUIX+10, FINDTYP+2~, FINDTYP+3*, FINDTYP+4
PROCREC FINDTYP+2~, FINDTYP+4*, FINDTYP+5
PROCTYP FINDTYP+2~, FINDTYP+5*, FINDTYP+6, FINDTYP+14
REQ Q0080050~, Q0200010~, Q0080062~, Q0080090~, Q0081030~, Q0080100~, Q0080104~, Q0081060~, Q0081080~, Q01021B0~
, Q0104000~, U008010C~
REQ( Q0200010+3, Q0081030+3, Q01021B0+3
SENSEMP Q0080050~, Q0080050+2, Q0200010~, Q0200010+2, Q0080062~, Q0080090~, Q0080090+3, Q0081030~, Q0081030+2, Q0080100~
, Q0080104~, Q0081060~, Q0081060+1, Q0081080~, Q01021B0~, Q01021B0+2, Q0104000~, U008010C~, U008010C+2
STUDYIX TIUIX~, TIUIX+4, TIUIX+9
T Q0080050~, Q0080050+5, Q0080050+8, Q0200010~, Q0200010+3, Q0200010+6, Q0200010+7, Q0080062~, Q0080090~, Q0080090+4
, Q0080090+11, Q0080090+15, Q0080090+16, Q0080090+17, Q0081030~, Q0081030+3, Q0081030+6, Q0081030+7, Q0080100~, Q0080100+8
, Q0080100+12, Q0080100+13, Q0080100+14, Q0080104~, Q0080104+9, Q0080104+13, Q0080104+14, Q0080104+15, Q0081060~, Q0081060+2
, Q0081060+12, Q0081080~, Q01021B0~, Q01021B0+3, Q01021B0+12, Q01021B0+16, Q01021B0+19, Q0104000~, U008010C~, U008010C+3
, U008010C+11, U008010C+15, U008010C+19
T0 Q01021B0+6~, GMRC+3~
TIUIX Q01021B0+12*, Q01021B0+13, Q01021B0+14, U008010C+14~, U008010C+15*, U008010C+16, U008010C+17, GMRC+5*, GMRC+6, TIUIX+5*
, TIUIX+10*, TIUIX+12
TYPE Q0080050~, Q0200010~, Q0080062~, Q0080090~, Q0080090+7, Q0081030~, Q0081030+6, Q0080100~, Q0080100+2, Q0080104~
, Q0080104+2, Q0081060~, Q0081060+6, Q0081080~, Q01021B0~, Q01021B0+8, Q0104000~, U008010C~, U008010C+7, GMRC+5
, TIUIX~, TIUIX+2, TIUIX+7
V Q0080050~, Q0200010~, Q0080062~, Q0080090~, Q0081030~, Q0080100~, Q0080104~, Q0081060~, Q0081080~, Q01021B0~
, Q0104000~, U008010C~
V( Q0080050+5*, Q0080050+8*, Q0200010+3*, Q0200010+6*, Q0200010+7*, Q0080090+4*, Q0080090+11*, Q0080090+15*, Q0080090+16*, Q0080090+17*
, Q0081030+3*, Q0081030+6*, Q0081030+7, Q0080100+12*, Q0080100+13*, Q0080100+14*, Q0080104+13*, Q0080104+14*, Q0080104+15*, Q0081060+2*
, Q0081060+12*, Q01021B0+3*, Q01021B0+12*, Q01021B0+16*, Q01021B0+19, U008010C+3*, U008010C+11*, U008010C+15*, U008010C+19*
V("0008,1030" Q0080100+8*, Q0080104+9*
WRKDT Q0080050+3~, Q0080050+4*, Q0080050+5
X Q0080090+10*, Q0080090+11, Q0080100+5*, Q0080100+6*, Q0080100+7*, Q0080100+8, Q0080104+5~, Q0080104+6*, Q0080104+7*, Q0080104+8*
, Q0080104+9, Q0081060+9~, Q0081060+10*, Q0081060+11*, Q0081060+12, Q01021B0+6~, Q01021B0+14*, Q01021B0+15*, Q01021B0+16, U008010C+1~
, U008010C+10*, U008010C+11, U008010C+17*, U008010C+18*, U008010C+19, GMRC+1~, GMRC+4*, GMRC+5*, GMRC+6*, GMRC+7*
, GMRC+9, TIUIX+3~, TIUIX+4*, TIUIX+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All