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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call