MAGDRPC3 ;WOIFO/EDM,SAF,DAC - Imaging RPCs ; Apr 20, 2022@12:50:41
Source file <MAGDRPC3.m>
| Package | Total | Call Graph |
|---|---|---|
| Imaging | 5 | LOOKUP^MAGDRPCA QUEUE^MAGDRPCD CHK^MAGGSQI ENTRY^MAGLOG $$ISIHS^MAGSPID |
| CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
| Kernel | 1 | ($$FMADD,$$NOW)^XLFDT |
| MailMan | 1 | SENDMSG^XMXAPI |
| Radiology Nuclear Medicine | 1 | ($$ACCFIND,$$ACCRPT)^RAAPI |
| Registration | 1 | $$SITE^VASITE |
| VA FileMan | 1 | $$GET1^DIQ |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Imaging | 4 | MAG DICOM LOOKUP RAD STUDY MAG DICOM QUEUE IMAGE MAGBRTUT MAGDRPCD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RADLKUP(OUT,CASENUMB,STUDYDAT) | ; RPC = MAG DICOM LOOKUP RAD STUDY
; Radiology patient/study lookup ; STUDYDAT is a vestigial input parameter, it is not used |
|
| QUEUE(OUT,IMAGE,APPNAM,LOCATION,ACNUMB,REASON,EMAIL,PRIORITY,JBTOHD) | ; RPC = MAG DICOM QUEUE IMAGE
; Add the DICOM study send image request to the queue |
|
| ENQUEUE(IMAGE,D0,PRIORITY,NEWSOPCLASS) | ; Add an image to the DICOM send image request queue sub-file
|
|
| FIND(DATE,CASE,NUM) | ; ADC x-reference (Radiology patient file)
|
|
| MMDDYY(DAY) | ; YYYMMDD --> MMDDYY
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | RADLKUP+49, RADLKUP+79 |
| $$CPT^ICPTCOD | RADLKUP+57 |
| LOOKUP^MAGDRPCA | QUEUE+38 |
| QUEUE^MAGDRPCD | QUEUE+8 |
| CHK^MAGGSQI | ENQUEUE+7 |
| ENTRY^MAGLOG | QUEUE+70 |
| $$ISIHS^MAGSPID | RADLKUP+79 |
| $$ACCFIND^RAAPI | RADLKUP+23 |
| $$ACCRPT^RAAPI | RADLKUP+47 |
| $$SITE^VASITE | RADLKUP+79 |
| $$FMADD^XLFDT | FIND+3 |
| $$NOW^XLFDT | QUEUE+48 |
| SENDMSG^XMXAPI | QUEUE+81 |
| RPC Name | Call Tags |
|---|---|
| MAG DICOM LOOKUP RAD STUDY | RADLKUP |
| MAG DICOM QUEUE IMAGE | QUEUE |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^RA(72 - [#72] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2005 - [#2005] | QUEUE+17, QUEUE+26, QUEUE+27, QUEUE+64, QUEUE+65 |
| ^MAGDOUTP(2006.574 - [#2006.574] | QUEUE+25, QUEUE+28, QUEUE+29, QUEUE+30, QUEUE+42, QUEUE+44, QUEUE+47*, QUEUE+49*, QUEUE+50*, QUEUE+51* , QUEUE+52*, QUEUE+53*, QUEUE+58, ENQUEUE+14, ENQUEUE+15, ENQUEUE+19, ENQUEUE+20, ENQUEUE+22, ENQUEUE+24*, ENQUEUE+25* , ENQUEUE+26*, ENQUEUE+27 |
| ^RADPT - [#70] | RADLKUP+33, RADLKUP+36, RADLKUP+38, RADLKUP+41, RADLKUP+44, RADLKUP+46, RADLKUP+77, RADLKUP+81 |
| ^RADPT("ADC" | FIND+4 |
| ^RAMIS(71 - [#71] | RADLKUP+55, RADLKUP+71, RADLKUP+72 |
| ^RAMIS(73.1 - [#73.1] | RADLKUP+73 |
| ^RAO(75.1 - [#75.1] | RADLKUP+82 |
| ^TMP("XMERR" | QUEUE+83 |
| Name | Line Occurrences |
|---|---|
| $$ENQUEUE | QUEUE+61, QUEUE+65 |
| $$MMDDYY | FIND+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACNUMB | RADLKUP+3~, RADLKUP+47*, RADLKUP+83, QUEUE~, QUEUE+8, QUEUE+36, QUEUE+40*, QUEUE+49, QUEUE+53 |
| APPNAM | QUEUE~, QUEUE+8, QUEUE+12, QUEUE+30, QUEUE+49, QUEUE+69, QUEUE+80 |
| CASE | FIND~, FIND+4 |
| CASENUMB | RADLKUP~, RADLKUP+21, RADLKUP+23 |
| COUNT | QUEUE+2~, QUEUE+59*, QUEUE+61*, QUEUE+65*, QUEUE+70 |
| CPTCODE | RADLKUP+4~, RADLKUP+50*, RADLKUP+56*, RADLKUP+57, RADLKUP+63 |
| CPTNAME | RADLKUP+5~, RADLKUP+50*, RADLKUP+57*, RADLKUP+58*, RADLKUP+64 |
| D0 | QUEUE+2~, QUEUE+28*, QUEUE+29, QUEUE+30, QUEUE+31, QUEUE+33*, QUEUE+34, QUEUE+44*, QUEUE+45, QUEUE+49 , QUEUE+50, QUEUE+51, QUEUE+52, QUEUE+53, QUEUE+55, QUEUE+61, QUEUE+65, ENQUEUE~, ENQUEUE+14, ENQUEUE+15 , ENQUEUE+20, ENQUEUE+22, ENQUEUE+24, ENQUEUE+25, ENQUEUE+26 |
| D1 | RADLKUP+16~, RADLKUP+71*, RADLKUP+72, QUEUE+2~, QUEUE+64*, QUEUE+65, ENQUEUE+3~, ENQUEUE+14*, ENQUEUE+15, ENQUEUE+22* , ENQUEUE+25, ENQUEUE+26 |
| DATE | FIND~, FIND+2, FIND+3 |
| DATETIME | RADLKUP+6~, RADLKUP+41*, RADLKUP+68 |
| DAY | MMDDYY~, MMDDYY+1, MMDDYY+2 |
| DFN | RADLKUP+36*, RADLKUP+67, RADLKUP+81, QUEUE+2~, QUEUE+18*, QUEUE+70 |
| DIVISION | RADLKUP+7~, RADLKUP+78*, RADLKUP+79 |
| DUZ | QUEUE+70, QUEUE+77 |
| QUEUE~, QUEUE+8, QUEUE+79 | |
| EXAMSTS | RADLKUP+8~, RADLKUP+48*, RADLKUP+49*, RADLKUP+66 |
| I | RADLKUP+16~, ENQUEUE+3~, ENQUEUE+10* |
| IMAGE | QUEUE~, QUEUE+6, QUEUE+8, QUEUE+11, QUEUE+17, QUEUE+26, QUEUE+61, QUEUE+64, QUEUE+65, QUEUE+70 , ENQUEUE~, ENQUEUE+2, ENQUEUE+7, ENQUEUE+9, ENQUEUE+15, ENQUEUE+25 |
| JBTOHD | QUEUE~, QUEUE+8, QUEUE+15*, QUEUE+49 |
| LIST | RADLKUP+16~ |
| LOCATION | QUEUE~, QUEUE+8, QUEUE+13, QUEUE+29, QUEUE+49, ENQUEUE+26 |
| LOG | QUEUE+2~, QUEUE+69*, QUEUE+70, QUEUE+74 |
| NEWSOPCLASS | ENQUEUE~, ENQUEUE+1*, ENQUEUE+2, ENQUEUE+7 |
| NUM | FIND~, FIND+3 |
| OK | QUEUE+2~, QUEUE+28*, QUEUE+31*, QUEUE+33 |
| OLD | ENQUEUE+3~, ENQUEUE+14*, ENQUEUE+15*, ENQUEUE+17 |
| OUT | RADLKUP~, RADLKUP+19!, QUEUE~, QUEUE+4!, QUEUE+8, QUEUE+11*, QUEUE+12*, QUEUE+13*, QUEUE+20*, QUEUE+23 , QUEUE+34*, QUEUE+36, QUEUE+39*, QUEUE+55* |
| OUT(1 | RADLKUP+21*, RADLKUP+25*, RADLKUP+29*, RADLKUP+30*, RADLKUP+31*, RADLKUP+33*, RADLKUP+38*, RADLKUP+44*, RADLKUP+53*, RADLKUP+84* |
| OUT(10 | RADLKUP+67* |
| OUT(11 | RADLKUP+68* |
| OUT(12 | RADLKUP+69* |
| OUT(13 | RADLKUP+76* |
| OUT(14 | RADLKUP+79* |
| OUT(15 | RADLKUP+82* |
| OUT(16 | RADLKUP+83* |
| OUT(2 | RADLKUP+59* |
| OUT(3 | RADLKUP+60* |
| OUT(4 | RADLKUP+61* |
| OUT(5 | RADLKUP+62* |
| OUT(6 | RADLKUP+63* |
| OUT(7 | RADLKUP+64* |
| OUT(8 | RADLKUP+65* |
| OUT(9 | RADLKUP+66* |
| P | QUEUE+2~, QUEUE+26*, QUEUE+27, QUEUE+38, QUEUE+49 |
| PRIORITY | QUEUE~, QUEUE+8, QUEUE+14*, QUEUE+29, QUEUE+49, QUEUE+61, QUEUE+65, ENQUEUE~, ENQUEUE+26 |
| PROBLEM | QUEUE+2~, QUEUE+59*, QUEUE+71, ENQUEUE+8*, ENQUEUE+9*, ENQUEUE+10* |
| PROBLEM( | ENQUEUE+8*, ENQUEUE+9*, ENQUEUE+10* |
| PROBLEM(1 | QUEUE+73* |
| PROBLEM(2 | QUEUE+74* |
| PROBLEM(3 | QUEUE+75* |
| PROCDESC | RADLKUP+9~, RADLKUP+50*, RADLKUP+56*, RADLKUP+58, RADLKUP+69 |
| PROCIEN | RADLKUP+10~, RADLKUP+48*, RADLKUP+53, RADLKUP+55, RADLKUP+62, RADLKUP+71, RADLKUP+72 |
| RAA | RADLKUP+11~, RADLKUP+23, RADLKUP+47 |
| RAA(1 | RADLKUP+27, RADLKUP+47 |
| RADPT1 | RADLKUP+13~, RADLKUP+27*, RADLKUP+29, RADLKUP+33, RADLKUP+36, RADLKUP+38, RADLKUP+41, RADLKUP+44, RADLKUP+46, RADLKUP+59 , RADLKUP+77 |
| RADPT2 | RADLKUP+14~, RADLKUP+27*, RADLKUP+30, RADLKUP+38, RADLKUP+41, RADLKUP+44, RADLKUP+46, RADLKUP+60, RADLKUP+77, RADLKUP+81 |
| RADPT3 | RADLKUP+15~, RADLKUP+27*, RADLKUP+31, RADLKUP+44, RADLKUP+46, RADLKUP+61, RADLKUP+81 |
| RAIX | RADLKUP+12~ |
| REASON | QUEUE~, QUEUE+8, QUEUE+69, QUEUE+70 |
| REQUESTDATETIME | QUEUE+2~, QUEUE+48*, QUEUE+49, QUEUE+50 |
| RESULT | QUEUE+37~, QUEUE+38, QUEUE+39, QUEUE+40 |
| STUDYDAT | RADLKUP~ |
| STUDYUID | QUEUE+2~, QUEUE+27*, QUEUE+28, QUEUE+51, QUEUE+52 |
| TYPE | QUEUE+2~, QUEUE+18*, QUEUE+19, QUEUE+20, QUEUE+60, QUEUE+63 |
| X | RADLKUP+16~, RADLKUP+23*, RADLKUP+25, RADLKUP+46*, RADLKUP+47, RADLKUP+48, RADLKUP+70*, RADLKUP+74*, RADLKUP+76, RADLKUP+77* , RADLKUP+78, RADLKUP+81*, RADLKUP+82, QUEUE+2~, QUEUE+17*, QUEUE+18, QUEUE+42*, QUEUE+43*, QUEUE+45*, QUEUE+46* , QUEUE+47, ENQUEUE+3~, ENQUEUE+7, ENQUEUE+20*, ENQUEUE+21*, ENQUEUE+22*, ENQUEUE+23*, ENQUEUE+24, FIND+1~, FIND+3* , FIND+4 |
| X( | ENQUEUE+10 |
| X(0 | ENQUEUE+7 |
| XMERR | QUEUE+72~, QUEUE+82, QUEUE+83* |
| XMID | QUEUE+72~, QUEUE+77*, QUEUE+78, QUEUE+81 |
| XMSUB | QUEUE+72~, QUEUE+80*, QUEUE+81 |
| XMY | QUEUE+72~, QUEUE+81 |
| XMY( | QUEUE+78*, QUEUE+79* |
| XMZ | QUEUE+72~, QUEUE+81 |
| Z | RADLKUP+16~, RADLKUP+47*, RADLKUP+55*, RADLKUP+56, RADLKUP+65, RADLKUP+72*, RADLKUP+73*, RADLKUP+74 |
