Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: MAGDSTA5

Package: Imaging

Routine: MAGDSTA5


Information

MAGDSTA5 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 08, 2022@08:59:51

Source Information

Source file <MAGDSTA5.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Illegal SCAN MODE: """,SCANMODE,""""
  • Line Location: RADLKUP+12
Info |  Source |  Entry Points |  Interaction Calls