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 |  Marked Items  | All
Print Page as PDF
Routine: MAGDSTD2

Package: Imaging

Routine: MAGDSTD2


Information

MAGDSTD2 ; OITCLIN/DWM,WOIFO/PMK - rad exams w/o VI images; Jul 06, 2021@08:21:46

Source Information

Source file <MAGDSTD2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Imaging 3 (BEGDATE,ENDDATE)^MAGDSTA2  CONTINUE^MAGDSTQ  GETSTUDY^MAGVRS04  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
Radiology Nuclear Medicine 1 ^RARTFLDS  
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 MAGD RAD RANGE CHECK  MAGDSTD3  

Entry Points

Name Comments DBIA/ICR reference
DATES ; enter date range to search
QUE ; queue to run report
EN ;entry point
EXIT ;
COUNTS(DTFR,DTTO) ; build list of exams w/o images
; ^TMP("MAG",$J,LOC,RPTDATE,ACNUMB)=PNAME_"^"_SSN_"^"_PROC
LOOKUP(RARPT) ;
LEGACY(RARPT) ; check for "2005" node
CHECKMAG(MAGIEN,RARPT) ;
; -- ensure #2005 entry exists --
MAG(MAGIEN) ; validate parent or child image
; called by ^MAGDSTD3 for consults
IMAGE(CHILDIEN) ; called from within 'MAG' subroutine
PARENT(MAGIEN,RARPT) ; check #2005 pointer back to #74
NEWSOP(GMRCACN) ; lookup in new sop class database
; called by ^MAGDSTD3 for consults
PROLOC(OUT,D0) ; return report's procedure & imaging location
DISPLAY ;
HDR ; header

External References

Name Field # of Occurrence
$$GET1^DIQ LOOKUP+8, LOOKUP+9
BEGDATE^MAGDSTA2 DATES+7
ENDDATE^MAGDSTA2 DATES+10
CONTINUE^MAGDSTQ EN+13
GETSTUDY^MAGVRS04 NEWSOP+9
^RARTFLDS PROLOC+3, PROLOC+4
$$FMTE^XLFDT EN+12
$$NOW^XLFDT EN+12
EN^XUTMDEVQ QUE+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Search for Radiology Exams Lacking Images"
  • Line Location: DATES+5
Function Call: WRITE
  • Prompt: !,"------------------------------------------"
  • Line Location: DATES+6
Function Call: WRITE
  • Prompt: !!,"Recommend report output of 132 columns",!!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,"No data for display!",!!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"RUN COMPLETED at ",$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,ACNUMB,?20,$E(PNAME,1,30),?53,$E(SSN,6,9),?60,Y,?75,PROC
  • Line Location: DISPLAY+9
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+13
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: DISPLAY+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+23
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?42,"Radiology Exams without Images in VistA Imaging"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?93,"From "_FDATE_" to "_TDATE
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !!,"Imaging Location: "_LOC,!
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,"Accession",?20,"Patient Name",?53,"Last4",?60,"Exam Date"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ?75,"Procedure",!,LN
  • Line Location: HDR+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" EN+3
^DD("DD" DISPLAY+2, DISPLAY+7
^MAG(2005 - [#2005] CHECKMAG+2, MAG+5, MAG+6, MAG+7, MAG+8, IMAGE+2, PARENT+2, PARENT+3
^MAG(2005.02 - [#2005.02] IMAGE+6
^MAGV(2005.62 - [#2005.62] NEWSOP+6, NEWSOP+7
^RARPT - [#74] LOOKUP+2, LEGACY+4, LEGACY+5
^RARPT("AA" COUNTS+10, COUNTS+13
^TMP("MAG" DATES+8, DATES+11, EN+5!, EN+10, EXIT+1!, LOOKUP+21*, DISPLAY+3, DISPLAY+5, DISPLAY+6, DISPLAY+7

Label References

Name Line Occurrences
$$CHECKMAG LEGACY+6
$$IMAGE MAG+9, MAG+13
$$LEGACY LOOKUP+12
$$MAG CHECKMAG+4
$$NEWSOP LOOKUP+14
$$PARENT CHECKMAG+6
COUNTS EN+7
DISPLAY EN+11
EXIT DATES+9, DATES+12, QUE+8, EN+10
HDR DISPLAY+4
LOOKUP COUNTS+14
PROLOC LOOKUP+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE+3~, QUE+7
ACNUMB LOOKUP+1~, LOOKUP+3*, LOOKUP+14, LOOKUP+21, DISPLAY+1~, DISPLAY+6*, DISPLAY+7, DISPLAY+9
ANS DISPLAY+1~, DISPLAY+11*, DISPLAY+12, DISPLAY+19*, DISPLAY+20, HDR+1~, HDR+4*, HDR+5
CHECK MAG+2~, MAG+3*, MAG+6, MAG+9*, MAG+13*, MAG+15
CHILDIEN MAG+2~, MAG+7*, MAG+8, MAG+9, MAG+13*, IMAGE~, IMAGE+2
D0 PROLOC~, PROLOC+2
DFN LOOKUP+1~, LOOKUP+7*, LOOKUP+8, LOOKUP+9
DIR DATES+1~
DTFR DATES+1~, DATES+8*, DATES+9, EN+7, COUNTS~, COUNTS+4, DISPLAY+2
DTIME DISPLAY+11, DISPLAY+19, HDR+4
DTTO DATES+1~, DATES+11*, DATES+12, EN+7, COUNTS~, COUNTS+4, DISPLAY+2
EXAMDATE LOOKUP+1~, LOOKUP+5*, LOOKUP+21, DISPLAY+1~, DISPLAY+5*, DISPLAY+6, DISPLAY+7
FDATE DISPLAY+1~, DISPLAY+2*, HDR+11
FIELD NEWSOP+2~, NEWSOP+11*, NEWSOP+12
FNUM NEWSOP+2~
FOUND LOOKUP+1~, LOOKUP+12*, LOOKUP+13, LOOKUP+14*, LOOKUP+16, LEGACY+1~, LEGACY+2*, LEGACY+6*, LEGACY+8, NEWSOP+2~
, NEWSOP+3*, NEWSOP+4, NEWSOP+6, NEWSOP+10, NEWSOP+14*, NEWSOP+17
GMRCACN NEWSOP~, NEWSOP+4, NEWSOP+6, NEWSOP+7
I HDR+1~, HDR+2*
IEN NEWSOP+2~, NEWSOP+7*, NEWSOP+9
IMAGES NEWSOP+2~, NEWSOP+13*, NEWSOP+14
IOF DISPLAY+13, DISPLAY+23, HDR+6, HDR+9
IOSL DISPLAY+10, HDR+3
IOST DISPLAY+10, DISPLAY+18, HDR+3, HDR+9
J LEGACY+1~, LEGACY+2*, LEGACY+4*, LEGACY+5, MAG+2~, MAG+6*, MAG+7, NEWSOP+2~, NEWSOP+10*, NEWSOP+11
, NEWSOP+13
LN HDR+1~, HDR+2*, HDR+14
LOC LOOKUP+1~, LOOKUP+18*, LOOKUP+20, LOOKUP+21, PROLOC+1~, PROLOC+4*, PROLOC+5, DISPLAY+1~, DISPLAY+3*, DISPLAY+5
, DISPLAY+6, DISPLAY+7, HDR+12
MAG0 IMAGE+1~, IMAGE+2*, IMAGE+4
MAGIEN LEGACY+1~, LEGACY+5*, LEGACY+6, CHECKMAG~, CHECKMAG+2, CHECKMAG+4, CHECKMAG+6, MAG~, MAG+5, MAG+6
, MAG+7, MAG+13, PARENT~, PARENT+2, PARENT+3
NODE DISPLAY+1~, DISPLAY+7*, DISPLAY+8
OBJ IMAGE+1~, IMAGE+4*, IMAGE+5, IMAGE+6
OUT LOOKUP+1~, LOOKUP+18, NEWSOP+2~, NEWSOP+9, PROLOC~, PROLOC+2*, PROLOC+5*
OUT( NEWSOP+10, NEWSOP+11, NEWSOP+13
OVERRIDE NEWSOP+2~, NEWSOP+5*, NEWSOP+9
PNAME LOOKUP+1~, LOOKUP+8*, LOOKUP+21, DISPLAY+1~, DISPLAY+8*, DISPLAY+9
PROC LOOKUP+1~, LOOKUP+18*, LOOKUP+19, LOOKUP+21, PROLOC+1~, PROLOC+3*, PROLOC+5, DISPLAY+1~, DISPLAY+8*, DISPLAY+9
RACN PROLOC+1~
RAEXFLD PROLOC+1~, PROLOC+3*, PROLOC+4*
RARPT COUNTS+2~, COUNTS+12*, COUNTS+13*, COUNTS+14, LOOKUP~, LOOKUP+2, LOOKUP+12, LOOKUP+18, LEGACY~, LEGACY+4
, LEGACY+5, LEGACY+6, CHECKMAG~, CHECKMAG+6, PARENT~, PARENT+4
RARPT0 LOOKUP+1~, LOOKUP+2*, LOOKUP+3, LOOKUP+4, LOOKUP+5, LOOKUP+7
REF IMAGE+1~, IMAGE+4*, IMAGE+5
REPORT PARENT+1~, PARENT+3*, PARENT+4
REVDATE COUNTS+2~, COUNTS+8*, COUNTS+10*, COUNTS+11, COUNTS+13
RPTDATE COUNTS+2~, COUNTS+11*
SSN LOOKUP+1~, LOOKUP+9*, LOOKUP+21, DISPLAY+1~, DISPLAY+8*, DISPLAY+9
STATUS NEWSOP+2~
STOP DISPLAY+1~, DISPLAY+2*, DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+12*, DISPLAY+20*, HDR+5*, HDR+8
TDATE DISPLAY+1~, DISPLAY+2*, HDR+11
TYPE IMAGE+1~, IMAGE+6*, IMAGE+8, IMAGE+9, IMAGE+10
X DATES+1~, EN+3*, PROLOC+1~, PROLOC+3!, PROLOC+4!, DISPLAY+1~
XDTFR COUNTS+2~, COUNTS+4*, COUNTS+5*, COUNTS+8
XDTTO COUNTS+2~, COUNTS+4*, COUNTS+6*, COUNTS+10
Y DATES+1~, DISPLAY+1~, DISPLAY+2*, DISPLAY+7*, DISPLAY+9
ZTDESC QUE+3~, QUE+4*, QUE+7
ZTSAVE QUE+3~, QUE+7
ZTSAVE("DTFR" QUE+5*
ZTSAVE("DTTO" QUE+6*

Marked Items

Name Field # of Occurrence
$T( QUE+7
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 |  Marked Items  | All