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

Package: Imaging

Routine: MAGDSTD3


Information

MAGDSTD3 ; OI&T-Clin3/DWM,WOIFO/PMK - rad exams w/o VI images; Jul 06, 2021@08:27:03

Source Information

Source file <MAGDSTD3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Imaging 7 $$GMRCACN^MAGDFCNV  $$SERVICE^MAGDHOW1  (BEGDATE,ENDDATE)^MAGDSTA2  $$GMRCDATE^MAGDSTA7  $$SERVICES^MAGDSTA8  ($$MAG,$$NEWSOP)^MAGDSTD2  CONTINUE^MAGDSTQ  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
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: 1

Package Total Caller Graph
Imaging 1 MAGD CON RANGE CHECK  

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,SERVICE) ; build list of exams w/o images
; ^TMP("MAG",$J,SERVICE,EXAMDATE,ACNUMB)=PNAME_"^"_SSN_"^"_PROC
LOOKUP(GMRCIEN) ;
LEGACY(GMRCIEN) ; lookup in legacy database
CHECKMAG(MAGIEN,TIUIEN,TIU892591) ;
; -- ensure #2005 entry exists --
PARENT(MAGIEN,TIUIEN,TIU892591) ; check #2005 pointer back to #8925
DISPLAY ;
HDR ; header

External References

Name Field # of Occurrence
$$GET1^DIQ LOOKUP+2, LOOKUP+3, LOOKUP+4, LOOKUP+17
$$GMRCACN^MAGDFCNV LOOKUP+11
$$SERVICE^MAGDHOW1 LOOKUP+7
BEGDATE^MAGDSTA2 DATES+8
ENDDATE^MAGDSTA2 DATES+11
$$GMRCDATE^MAGDSTA7 COUNTS+6, COUNTS+8
$$SERVICES^MAGDSTA8 DATES+14
$$MAG^MAGDSTD2 CHECKMAG+4
$$NEWSOP^MAGDSTD2 LOOKUP+14
CONTINUE^MAGDSTQ EN+15
$$FMTE^XLFDT EN+14
$$NOW^XLFDT EN+14
EN^XUTMDEVQ QUE+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"Search for Clinical Specialty Exams Lacking Images"
  • Line Location: DATES+6
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------"
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+14
Function Call: WRITE
  • Prompt: !,"Exiting"
  • Line Location: DATES+15
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+12
Function Call: WRITE
  • Prompt: !!,"RUN COMPLETED at ",$$FMTE^XLFDT($$NOW^XLFDT,1)
  • Line Location: EN+14
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: !,?37,"Clinical Specialty 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: !!,"Medical Service: "_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
^GMR(123 - [#123] GET1^DIQ
^DPT - [#2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" EN+3
^DD("DD" DISPLAY+2, DISPLAY+7
^GMR(123 - [#123] COUNTS+13, COUNTS+16, LEGACY+3, LEGACY+4
^MAG(2005 - [#2005] CHECKMAG+2, PARENT+2
^TIU(8925.91 - [#8925.91] LEGACY+8, LEGACY+9
^TMP("MAG" DATES+9, DATES+12, EN+5!, EN+12, EXIT+1!, LOOKUP+18*, DISPLAY+3, DISPLAY+5, DISPLAY+6, DISPLAY+7

Label References

Name Line Occurrences
$$CHECKMAG LEGACY+10
$$LEGACY LOOKUP+12
$$PARENT CHECKMAG+6
COUNTS EN+8
DISPLAY EN+13
EXIT DATES+10, DATES+13, QUE+9, EN+12
HDR DISPLAY+4
LOOKUP COUNTS+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE+3~, QUE+8
ACNUMB 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
COMPLETE COUNTS+2~, COUNTS+11*, COUNTS+13, COUNTS+16
CONSULTSERVICES DATES+1~, DATES+14
CONSULTSERVICES( EN+7, LOOKUP+18
DFN LOOKUP+1~, LOOKUP+2*, LOOKUP+3, LOOKUP+4
DIR DATES+1~
DTFR DATES+1~, DATES+9*, DATES+10, EN+8, COUNTS~, COUNTS+4, DISPLAY+2
DTIME DISPLAY+11, DISPLAY+19, HDR+4
DTTO DATES+1~, DATES+12*, DATES+13, EN+8, COUNTS~, COUNTS+4, COUNTS+13, DISPLAY+2
EXAMDATE COUNTS+2~, COUNTS+14*, LOOKUP+18, DISPLAY+1~, DISPLAY+5*, DISPLAY+6, DISPLAY+7
FDATE DISPLAY+1~, DISPLAY+2*, HDR+11
FOUND LOOKUP+1~, LOOKUP+12*, LOOKUP+13, LOOKUP+14*, LOOKUP+16, LEGACY+1~, LEGACY+2*, LEGACY+10*, LEGACY+14
GMRCACN LOOKUP+1~, LOOKUP+11*, LOOKUP+14, LOOKUP+18
GMRCIEN COUNTS+2~, COUNTS+15*, COUNTS+16*, COUNTS+17, LOOKUP~, LOOKUP+2, LOOKUP+7, LOOKUP+11, LOOKUP+12, LOOKUP+17
, LEGACY~, LEGACY+3, LEGACY+4
I LEGACY+1~, LEGACY+2*, LEGACY+3*, LEGACY+4, HDR+1~, HDR+2*
IOF DISPLAY+13, DISPLAY+23, HDR+6, HDR+9
IOSL DISPLAY+10, HDR+3
IOST DISPLAY+10, DISPLAY+18, HDR+3, HDR+9
LN HDR+1~, HDR+2*, HDR+14
LOC DISPLAY+1~, DISPLAY+3*, DISPLAY+5, DISPLAY+6, DISPLAY+7, HDR+12
MAG2 PARENT+1~, PARENT+2*, PARENT+3, PARENT+4, PARENT+5
MAGIEN LEGACY+1~, LEGACY+9*, LEGACY+10, CHECKMAG~, CHECKMAG+2, CHECKMAG+4, CHECKMAG+6, PARENT~, PARENT+2
NODE DISPLAY+1~, DISPLAY+7*, DISPLAY+8
PARENTDFIP PARENT+1~, PARENT+5*, PARENT+8
PARENTDFNU PARENT+1~, PARENT+3*, PARENT+6
PARENTGRD0 PARENT+1~, PARENT+4*, PARENT+7
PNAME LOOKUP+1~, LOOKUP+3*, LOOKUP+18, DISPLAY+1~, DISPLAY+8*, DISPLAY+9
PROC LOOKUP+1~, LOOKUP+17*, LOOKUP+18, DISPLAY+1~, DISPLAY+8*, DISPLAY+9
REVDATE COUNTS+2~, COUNTS+12*, COUNTS+13*, COUNTS+14, COUNTS+16
SENDIT LOOKUP+1~
SERVICE DATES+1~, EN+7*, EN+8, COUNTS~, COUNTS+13, COUNTS+16, LOOKUP+7, LOOKUP+18
SSN LOOKUP+1~, LOOKUP+4*, LOOKUP+18, DISPLAY+1~, DISPLAY+8*, DISPLAY+9
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
TIU892591 LEGACY+1~, LEGACY+7*, LEGACY+8*, LEGACY+9, LEGACY+10, CHECKMAG~, CHECKMAG+6, PARENT~, PARENT+8
TIU91NODE LEGACY+1~, LEGACY+9*
TIUIEN LEGACY+1~, LEGACY+5*, LEGACY+6, LEGACY+8, LEGACY+10, CHECKMAG~, CHECKMAG+6, PARENT~, PARENT+7
TIUNODE LEGACY+1~, LEGACY+4*, LEGACY+5
X DATES+1~, DATES+14*, DATES+15, EN+3*, DISPLAY+1~
XDTFR COUNTS+2~, COUNTS+4*, COUNTS+6*, COUNTS+12
XDTTO COUNTS+2~, COUNTS+4*, COUNTS+8*
Y DATES+1~, DISPLAY+1~, DISPLAY+2*, DISPLAY+7*, DISPLAY+9
ZTDESC QUE+3~, QUE+4*, QUE+8
ZTSAVE QUE+3~, QUE+8
ZTSAVE("CONSULTSERVICES(" QUE+7*
ZTSAVE("DTFR" QUE+5*
ZTSAVE("DTTO" QUE+6*

Marked Items

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