MAGDSTA5 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Oct 05, 2022@16:17:37
Source file <MAGDSTA5.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN() | ; The main loop for the program for Radiology
; Input Variables ; SCANMODE ;-- "PATIENT", "DATE", or "NUMBER" ; DIRECTION ;- 1="ASCENDING" or 0="DESCENDING" ; BATCHSIZE ;- number of consult & procedure requests to process on this run ; BEGDATE ;--- begin date for search ; ENDDATE ;-- end date for search ; QRSCP ;----- default query/retrieve provider ; HOURS ;----- 24 character string of Y's and N's indicating active times |
|
| RADLKUP() | ; Find the next study to retrieve
|
|
| PATIENT() | ; use ^RARPT "C" xref to find studies for a single patient
; ^RARPT("C",DFN,RARPT1)="" |
|
| DATE() | ; use ^RADPT "AR" xref to find studies by exam date
; ^RADPT("AR",EXAMDATE,RADFN,RADTI)="" |
|
| NUMBER() | ; use ^RARPT ien
; ^RARPT(RARPT1,... |
|
| RADLKUP1(RARPT1) | ; lookup one radiology exam
|
|
| RADTI(RADTI) | ; convert a reverse date to a FM date and vice versa
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RADPT - [#70] | DATE+19, DATE+20, RADLKUP1+9 |
| ^RADPT("AR" | DATE+10, DATE+14, DATE+16 |
| ^RARPT - [#74] | PATIENT+6, DATE+27, NUMBER+8, NUMBER+9, RADLKUP1+3, RADLKUP1+15, RADLKUP1+16 |
| ^RARPT("C" | PATIENT+5 |
| ^TMP("MAG" | NUMBER+5, NUMBER+6 |
| Name | Line Occurrences |
|---|---|
| $$DATE | RADLKUP+6 |
| $$NUMBER | RADLKUP+9 |
| $$PATIENT | RADLKUP+3 |
| $$RADLKUP | MAIN+15 |
| $$RADLKUP1 | PATIENT+10, DATE+30, NUMBER+14 |
| $$RADTI | RADLKUP1+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACNUMB | RADLKUP1+1~, RADLKUP1+4*, RADLKUP1+19 |
| BATCHSIZE | NUMBER+2~, NUMBER+5*, NUMBER+8 |
| >> BEGDATE | PATIENT+8, DATE+6, DATE+7 |
| DATEBEG | DATE+2~, DATE+6*, DATE+7*, DATE+9 |
| DATESTOP | DATE+2~, DATE+6*, DATE+7*, DATE+11, DATE+12 |
| DFN | PATIENT+5, RADLKUP1+1~, RADLKUP1+4*, RADLKUP1+9, RADLKUP1+19 |
| >> DIRECTION | PATIENT+5, DATE+6, DATE+10, DATE+11, DATE+14, DATE+16, NUMBER+7, NUMBER+8 |
| >> DIVISION | RADLKUP1+11 |
| DONE | DATE+2~, DATE+9*, DATE+10, DATE+11*, DATE+12* |
| >> ENDDATE | PATIENT+8, DATE+6, DATE+7 |
| EXAMDATE | PATIENT+2~, PATIENT+7*, PATIENT+8, DATE+9*, DATE+10*, DATE+11, DATE+12, DATE+14, DATE+16, RADLKUP1+1~ , RADLKUP1+5*, RADLKUP1+8, RADLKUP1+19 |
| HOSPDIV | RADLKUP1+1~, RADLKUP1+10*, RADLKUP1+11 |
| MAGIEN | RADLKUP1+1~, RADLKUP1+16*, RADLKUP1+17 |
| MAGIENLIST | RADLKUP1+1~, RADLKUP1+19 |
| MAGIENLIST( | RADLKUP1+17* |
| POINTERS | DATE+17~ |
| POINTERS( | DATE+23*, DATE+26 |
| >> RACNI | DATE+18*, DATE+19*, DATE+20 |
| >> RADFN | DATE+13*, DATE+14*, DATE+16, DATE+19, DATE+20 |
| RADPT0 | DATE+20*, DATE+21, RADLKUP1+1~, RADLKUP1+9*, RADLKUP1+10 |
| RADTI | DATE+2~, DATE+15*, DATE+16*, DATE+19, DATE+20, RADLKUP1+1~, RADLKUP1+8*, RADLKUP1+9, RADTI~, RADTI+1 |
| RARPT0 | PATIENT+2~, PATIENT+6*, PATIENT+7, DATE+2~, DATE+27*, DATE+28, NUMBER+2~, NUMBER+9*, NUMBER+10, RADLKUP1+1~ , RADLKUP1+3*, RADLKUP1+4, RADLKUP1+5 |
| RARPT1 | MAIN+10~, PATIENT+2~, PATIENT+4*, PATIENT+5*, PATIENT+6, PATIENT+10, DATE+2~, DATE+21*, DATE+22, DATE+23 , DATE+25*, DATE+26*, DATE+27, DATE+30, NUMBER+2~, NUMBER+6*, NUMBER+7*, NUMBER+8*, NUMBER+9, NUMBER+14 , RADLKUP1~, RADLKUP1+3, RADLKUP1+15, RADLKUP1+16, RADLKUP1+19 |
| RARPT3 | RADLKUP1+1~, RADLKUP1+14*, RADLKUP1+15*, RADLKUP1+16 |
| RUNTIME | MAIN+10~ |
| >> SCANMODE | RADLKUP+2, RADLKUP+5, RADLKUP+8, RADLKUP+12 |
| STATUS | PATIENT+2~, PATIENT+7*, PATIENT+9, DATE+2~, DATE+28*, DATE+29, NUMBER+2~, NUMBER+10*, NUMBER+12 |
| STOP | MAIN+10~, MAIN+15*, MAIN+16, RADLKUP+1~, RADLKUP+3*, RADLKUP+6*, RADLKUP+9*, RADLKUP+13*, RADLKUP+15, PATIENT+2~ , PATIENT+3*, PATIENT+5, PATIENT+10*, PATIENT+12, DATE+2~, DATE+3*, DATE+10, DATE+14, DATE+16, DATE+26 , DATE+30*, DATE+35, NUMBER+2~, NUMBER+3*, NUMBER+8, NUMBER+14*, NUMBER+16 |
| STUDYCNT | NUMBER+2~, NUMBER+4*, NUMBER+8, NUMBER+13* |
| X | MAIN+10~ |
