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

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

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