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: MAGDSTQ6

Package: Imaging

Routine: MAGDSTQ6


Information

MAGDSTQ6 ;WOIFO/PMK - Study Tracker - Patient Level Query/Retrieve Display; Sep 02, 2020@11:29:05

Source Information

Source file <MAGDSTQ6.m>

Entry Points

Name Comments DBIA/ICR reference
PATIENT() ;
STUDY() ; display a study and select it
SERIES() ;
IMAGE() ;
SETKEYS(LEVEL) ; set query/retrieve keys
NUMBERS ; output patient, study, and series related counts
UID ;
NAME(DCMNAME) ; convert a DICOM person name to a readable format
DATE(DCMDATE,FORMAT) ; convert a DICOM date to a readable date
TIME(DCMTIME) ; convert a DICOM time to a readable time

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Name: ",$$NAME^MAGDSTQ6(PNAME)
  • Line Location: PATIENT+3
Function Call: WRITE
  • Prompt: ?47,"DOB: ",$$DATE^MAGDSTQ6(DOB,"SHORT")
  • Line Location: PATIENT+4
Function Call: WRITE
  • Prompt: ?65,"Sex: ",SEX
  • Line Location: PATIENT+5
Function Call: WRITE
  • Prompt: !?2,"ID: ",PID
  • Line Location: PATIENT+6
Function Call: WRITE
  • Prompt: ?47,"Ethnicity: ",ETHNICITY
  • Line Location: PATIENT+7
Function Call: WRITE
  • Prompt: !,"Other PID: ",PIDOTHER
  • Line Location: PATIENT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+9
Function Call: WRITE
  • Prompt: !,"Accession No: ",ACNUMB
  • Line Location: STUDY+6
Function Call: WRITE
  • Prompt: ?55,"Study Date: ",$$DATE^MAGDSTQ6(STUDYDATE,"SHORT")
  • Line Location: STUDY+7
Function Call: WRITE
  • Prompt: !,"Description: ",DESCRIPTION
  • Line Location: STUDY+8
Function Call: WRITE
  • Prompt: ?55,"Study Time: ",$$TIME^MAGDSTQ6(STUDYTIME)
  • Line Location: STUDY+9
Function Call: WRITE
  • Prompt: !,"Study ID: ",STUDYID
  • Line Location: STUDY+10
Function Call: WRITE
  • Prompt: ?55,"CPT Code: ",CPTCODE,?72,CPTNAME
  • Line Location: STUDY+11
Function Call: WRITE
  • Prompt: !!,"Requesting Physician: ",$$NAME^MAGDSTQ6(REQDOC)
  • Line Location: STUDY+13
Function Call: WRITE
  • Prompt: !,"Referring Physician: ",$$NAME^MAGDSTQ6(REFDOC)
  • Line Location: STUDY+14
Function Call: WRITE
  • Prompt: !,"Institution: ",INSTNAME
  • Line Location: STUDY+15
Function Call: WRITE
  • Prompt: !
  • Line Location: STUDY+16
Function Call: WRITE
  • Prompt: !,"Reason for Study:",REASON,!
  • Line Location: STUDY+17
Function Call: WRITE
  • Prompt: !
  • Line Location: STUDY+23
Function Call: WRITE
  • Prompt: !,$S(MODALITIES[",":"Modalities",1:"Modality")
  • Line Location: STUDY+25
Function Call: WRITE
  • Prompt: ": ",MODALITIES,!
  • Line Location: STUDY+26
Function Call: WRITE
  • Prompt: !,"Modality: ",MODALITY," Series Number: ",SERIESNO
  • Line Location: SERIES+10
Function Call: WRITE
  • Prompt: !!,"Modality: ",MODALITY," Series Number: ",SERIESNO,!
  • Line Location: SERIES+13
Function Call: WRITE
  • Prompt: !!,"Image attributes:"
  • Line Location: IMAGE+3
Function Call: WRITE
  • Prompt: !,"Image Number: ",IMAGENO
  • Line Location: IMAGE+6
Function Call: WRITE
  • Prompt: !,"Number of Patient Related Studies: ",NPATIENTRST
  • Line Location: NUMBERS+7
Function Call: WRITE
  • Prompt: ", Series: ",NPATIENTRSE
  • Line Location: NUMBERS+8
Function Call: WRITE
  • Prompt: ", Images: ",NPATIENTRI
  • Line Location: NUMBERS+9
Function Call: WRITE
  • Prompt: !,"Number of Study Related Series: ",NSTUDYRS
  • Line Location: NUMBERS+15
Function Call: WRITE
  • Prompt: ", Images: ",NSTUDYRI
  • Line Location: NUMBERS+16
Function Call: WRITE
  • Prompt: !,"Number of Series Related Images: ",NSERIESRI
  • Line Location: NUMBERS+21
Function Call: WRITE
  • Prompt: !,"Study UID: ",STUDYUID
  • Line Location: UID+2
Function Call: WRITE
  • Prompt: !,"Series UID:",SERIESUID
  • Line Location: UID+5
Function Call: WRITE
  • Prompt: !,"SOP UID: ",SOPUID
  • Line Location: UID+8
Function Call: WRITE
  • Prompt: !,"SOP Class: "
  • Line Location: UID+10
Function Call: WRITE
  • Prompt: "*** Unknown UID: <<",SOPCLASS,">> ***"
  • Line Location: UID+14
Function Call: WRITE
  • Prompt: $P(^MAGDICOM(2006.539,IPTR,0),"^",2)
  • Line Location: UID+15
Function Call: WRITE
  • Prompt: $$GETNAME^MAGDUID2(SOPCLASS)
  • Line Location: UID+18
Function Call: WRITE
  • Prompt: !
  • Line Location: UID+22
Info |  Source |  Entry Points |  Interaction Calls