MAGDSTA5 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 08, 2022@08:59:51
Source file <MAGDSTA5.m>
| 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 ^RARTPT "AA" xref to find studies by verified date
; ^RARPT("AA",RADTI,RARPT1)="" |
|
| NUMBER() | ; use ^RARPT ien
; ^RARPT(RARPT1,... |
|
| RADLKUP1(RARPT1) | ; lookup one radiology exam
|
|
| SETDATES(DATEBEG,DATESTOP,BEGDATE,ENDDATE,DIRECTION) | ; get date range
; get the beginning and ending dates for the FOR loop ; these are in RARPT reverse date format ; they are also DIRECTION specific |
|
| RADTI(RADTI) | ; convert a reverse date to a FM date and vice versa
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
