Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MAGDSTA6

Package: Imaging

Routine: MAGDSTA6


Information

MAGDSTA6 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Jul 06, 2021@08:04:39

Source Information

Source file <MAGDSTA6.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Imaging 3 $$MWLFIND^MAGDHOW1  $$GMRCDATE^MAGDSTA7  ($$YESNO,CONTINUE)^MAGDSTQ  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Imaging 2 MAGDSTA7  MAGDSTQA  

Entry Points

Name Comments DBIA/ICR reference
CONLKUP(DFN,COUNT,FIRSTDAY,LASTDAY,FIRSTIEN,LASTIEN) ;
CHECK(GMRCIEN) ; check if this consult or procedure should have images
; 1) check for designated service
; 2) check complete status
; 3) check if it is defined for DICOM MWL
;
STUDY1 ; get the consult ien - called by MAGDSTA1
STUDY1A ; get new value
STUDY1B(GMRCIEN,DATE) ; get date from ^GMR(123,GMRCIEN,0)

External References

Name Field # of Occurrence
$$GET1^DIQ CHECK+8, CHECK+14, STUDY1B+1
$$MWLFIND^MAGDHOW1 CHECK+18
$$GMRCDATE^MAGDSTA7 CONLKUP+17
$$YESNO^MAGDSTQ STUDY1+5, STUDY1A+27
CONTINUE^MAGDSTQ CONLKUP+6, CONLKUP+31
$$FMTE^XLFDT CONLKUP+35, CONLKUP+39

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Patient does not have any consults or procedures on file. ***"
  • Line Location: CONLKUP+5
Function Call: WRITE
  • Prompt: !!,"*** Patient does not have any imaging consults or procedures on file. ***"
  • Line Location: CONLKUP+30
Function Call: WRITE
  • Prompt: !!,"Patient has ",COUNT," imaging studies on file, from "
  • Line Location: CONLKUP+34
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(FIRSTDAY,1)," to ",$$FMTE^XLFDT(LASTDAY,1)
  • Line Location: CONLKUP+35
Function Call: WRITE
  • Prompt: !!,"Patient has just one consult study in file for "
  • Line Location: CONLKUP+38
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(FIRSTDAY,1)
  • Line Location: CONLKUP+39
Function Call: WRITE
  • Prompt: !!,"Scanning will start with consult #",STUDY1,"."
  • Line Location: STUDY1+4
Function Call: WRITE
  • Prompt: !!,"The first consult is #",BEGPTR," entered on ",DATE,"."
  • Line Location: STUDY1A+9
Function Call: WRITE
  • Prompt: !,"The last consult is #",ENDPTR," entered on ",DATE,"."
  • Line Location: STUDY1A+13
Function Call: WRITE
  • Prompt: !!,"Enter the new value of the consult #: ",DEFAULT,"// "
  • Line Location: STUDY1A+17
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: STUDY1A+18
Function Call: WRITE
  • Prompt: X
  • Line Location: STUDY1A+20
Function Call: WRITE
  • Prompt: !!,"Please enter a number between ",BEGPTR," and ",ENDPTR,"."
  • Line Location: STUDY1A+22
Function Call: WRITE
  • Prompt: !!,"Consult #",NEWPTR," entered on ",DATE,"."
  • Line Location: STUDY1A+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] CONLKUP+3, CONLKUP+11, CONLKUP+13, STUDY1A+7, STUDY1A+11
^TMP("MAG" CHECK+11, STUDY1+2, STUDY1A+32*

Label References

Name Line Occurrences
$$CHECK CONLKUP+14
STUDY1A STUDY1+6, STUDY1+8
STUDY1B STUDY1A+8, STUDY1A+12, STUDY1A+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGPTR STUDY1A+1~, STUDY1A+7*, STUDY1A+8, STUDY1A+9, STUDY1A+16, STUDY1A+21, STUDY1A+22
COUNT CONLKUP~, CONLKUP+2*, CONLKUP+16*, CONLKUP+29, CONLKUP+33, CONLKUP+34
CPRSSTATUS CHECK+5~, CHECK+14*, CHECK+15
DATE STUDY1A+4~, STUDY1A+8, STUDY1A+9, STUDY1A+12, STUDY1A+13, STUDY1A+25, STUDY1A+26, STUDY1A+32, STUDY1B~, STUDY1B+1*
DEFAULT STUDY1A+5~, STUDY1A+16*, STUDY1A+17, STUDY1A+20, STUDY1A+28
DFN CONLKUP~, CONLKUP+3, CONLKUP+11, CONLKUP+13
DTIME STUDY1A+18
ENDPTR STUDY1A+3~, STUDY1A+11*, STUDY1A+12, STUDY1A+13, STUDY1A+16, STUDY1A+21, STUDY1A+22
FIRSTDAY CONLKUP~, CONLKUP+2*, CONLKUP+18, CONLKUP+19*, CONLKUP+27*, CONLKUP+35, CONLKUP+39
FIRSTIEN CONLKUP~, CONLKUP+2*, CONLKUP+20*
GMRCDATE CONLKUP+1~, CONLKUP+3*, CONLKUP+4, CONLKUP+10*, CONLKUP+11*, CONLKUP+13, CONLKUP+17
GMRCIEN CONLKUP+1~, CONLKUP+12*, CONLKUP+13*, CONLKUP+14, CONLKUP+20, CONLKUP+23, CHECK~, CHECK+8, CHECK+14, CHECK+18
, STUDY1B~, STUDY1B+1
LASTDAY CONLKUP~, CONLKUP+2*, CONLKUP+22*, CONLKUP+27*, CONLKUP+35
LASTIEN CONLKUP~, CONLKUP+2*, CONLKUP+23*
MWL CHECK+5~, CHECK+18*, CHECK+19
NEWPTR STUDY1A+2~, STUDY1A+24*, STUDY1A+25, STUDY1A+26, STUDY1A+28, STUDY1A+31, STUDY1A+32
OK CONLKUP+1~, CONLKUP+14*, CONLKUP+15, STUDY1A+5~, STUDY1A+15*, STUDY1A+18*, STUDY1A+19*, STUDY1A+27*, STUDY1A+28*, STUDY1A+30
, STUDY1A+33
>> QUIT STUDY1+5*, STUDY1A+30*
REALDATE CONLKUP+1~, CONLKUP+17*, CONLKUP+19, CONLKUP+22
>> SORTORDER STUDY1A+16
STUDY1 STUDY1+1~, STUDY1+2*, STUDY1+3, STUDY1+4, STUDY1+6*, STUDY1A+16, STUDY1A+31
TOSERVICE CHECK+5~, CHECK+8*, CHECK+9, CHECK+11, CHECK+18
X STUDY1+1~, STUDY1+5, STUDY1+6, STUDY1A+5~, STUDY1A+18*, STUDY1A+19, STUDY1A+20*, STUDY1A+21, STUDY1A+24, STUDY1A+27
, STUDY1A+28
Z STUDY1A+5~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All