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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGDMEDJ

Package: Imaging

Routine: MAGDMEDJ


Information

MAGDMEDJ ;WOIFO/LB,RRB,MLH - Routine to fix failed DICOM entries ; 11 Apr 2012 1:01 PM

Source Information

Source file <MAGDMEDJ.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Imaging 4 ($$ASK,DISPLAY,NEWDIS,SETDEL)^MAGDLB1  $$FILE^MAGDMEDI  (PATSUB,SUB)^MAGDMEDK  ($$ASKMORE,$$DISPLAY,LOOP)^MAGDMEDL  
Medicine 1 $$PATLK^MCARUTL2  
VA FileMan 1 YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
L ;Loop thru the entire file for entries that need processing
DISPLAY ;
NEWCASE ;
CHK ;remove any punctuation before doing comparison on SSN
NEWDIS ;
UPDT ;
SETDEL ;Entry to be deleted
ASKWHCH ;More than one patient found with same name

External References

Name Field # of Occurrence
YN^DICN UPDT+2
$$ASK^MAGDLB1 L+28, L+54
DISPLAY^MAGDLB1 DISPLAY+1
NEWDIS^MAGDLB1 NEWDIS+1
SETDEL^MAGDLB1 SETDEL+1
$$FILE^MAGDMEDI L+27
PATSUB^MAGDMEDK L+37
SUB^MAGDMEDK L+43
$$ASKMORE^MAGDMEDL L+51
$$DISPLAY^MAGDMEDL L+40, L+52, ASKWHCH+4
LOOP^MAGDMEDL L+46
$$PATLK^MCARUTL2 L+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Nothing to process!"
  • Line Location: L+8
Function Call: WRITE
  • Prompt: !," Lookup patient name",!
  • Line Location: L+32
Function Call: WRITE
  • Prompt: !,"Cannot update if patient cannot be identified.",$C(7)
  • Line Location: L+35
Function Call: WRITE
  • Prompt: !,"No specialty selected"
  • Line Location: L+41
Function Call: WRITE
  • Prompt: !,"No entries were found for the selected specialty."
  • Line Location: L+45
Function Call: WRITE
  • Prompt: !,"No Medicine file entries found for this patient"
  • Line Location: L+49
Function Call: WRITE
  • Prompt: !,"on the date/time the image was captured."
  • Line Location: L+50
Function Call: WRITE
  • Prompt: !,"Cannot update if Medicine file entry cannot be found.",$C(7)
  • Line Location: L+53
Function Call: WRITE
  • Prompt: !,"Are you sure you want to CORRECT?"
  • Line Location: UPDT+2
Function Call: WRITE
  • Prompt: !,"Updating the file."
  • Line Location: UPDT+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+12
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^MAGD(2006.575 - [#2006.575] L+8, L+10, L+11, L+12, L+13, L+15, L+18, L+19, L+20, L+25
, UPDT+5*, UPDT+6*, UPDT+8*, UPDT+11, UPDT+12*, UPDT+13*, UPDT+14*

Label References

Name Line Occurrences
CHK L+54
DISPLAY L+28
NEWCASE L+54
NEWDIS L+54
SETDEL L+30, L+54
UPDT L+57

Naked Globals

Name Field # of Occurrence
^(0 L+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UPDT+1~, UPDT+2*, UPDT+3
ANS L+4~, L+28*, L+29, L+30, L+54*, L+55, L+56, L+59!
CASEDATE L+4~, L+23*, L+24, L+46
CASENO L+4~, L+23*, L+27
COMNT1 L+4~, L+25*
DATA L+4~, L+18*, L+21
DATA1 L+4~, L+19*, L+23, L+24
DATA2 L+4~, L+20*, L+22
DATE L+4~, L+24*
FILE L+4~, L+18*
FOUND L+4~, L+51*
I CHK+2~, CHK+4*
ITEM L+7~, L+52*, NEWCASE+2, NEWCASE+3, ASKWHCH+2~, ASKWHCH+4*, ASKWHCH+5
JJ L+7~, ASKWHCH+4
JJ( ASKWHCH+5
JJ(0 ASKWHCH+3
MACHID L+4~, L+24*, UPDT+7*, UPDT+8, UPDT+14
MAGDIEN L+5~
MAGDIMG L+4~, NEWCASE+7*, UPDT+6
MAGDOUT L+47, L+48*, L+51*, L+59!
MAGDY L+4~, L+32!, NEWCASE+3*, NEWCASE+4, NEWCASE+5, NEWCASE+6, NEWCASE+7, CHK+3
MAGIEN L+4~, L+9*, L+11*, L+12, L+13, L+15, L+18, L+19, L+20, L+25
, UPDT+5, UPDT+6, UPDT+8, UPDT+11
MAGMC L+44, L+59!
MAGPAT L+5~, L+33*, L+34, L+37, L+43, L+46, NEWCASE+5, ASKWHCH+1*, ASKWHCH+5*
MAGSUB L+37, L+38, L+40, L+59!
MAGSUB( L+42
MAGTYPE L+5~, L+15*, L+16
MEDFILE L+5~, L+27*, NEWCASE+7*, UPDT+6
MOD L+5~, L+22*
MODEL L+5~, L+22*
MSG L+5~, CHK+6*, CHK+9*, CHK+12*
NEWCAS L+6~, NEWCASE+6*, UPDT+5, UPDT+12
NEWDFN L+6~, NEWCASE+5*, UPDT+5, UPDT+12
NEWDTI L+6~, NEWCASE+6*, UPDT+5, UPDT+12
NEWDTIM L+6~, UPDT+12
NEWMUL L+6~, UPDT+12
NEWNME L+6~, NEWCASE+5*, CHK+8, UPDT+5, UPDT+12
NEWPIEN L+6~, NEWCASE+7*, UPDT+5, UPDT+6, UPDT+13
NEWPROC L+6~, NEWCASE+6*, UPDT+6, UPDT+13
NEWSSN L+6~, NEWCASE+5*, CHK+5, UPDT+5, UPDT+12
OLD CHK+2~, CHK+4*, CHK+5
OOUT L+7~, L+9*, L+10, L+28*, L+55*, L+59!
OUT L+7~, L+9*, L+28*, L+29*, L+31, L+55*, L+56*, L+57, L+59!, UPDT+3*
PAT L+7~, L+21*, CHK+8
PID L+7~, L+21*, CHK+4
REASON L+7~, L+21*
RLATEIEN UPDT+1~, UPDT+10*, UPDT+11*, UPDT+12, UPDT+13, UPDT+14
STUDYUID L+7~, L+9*, L+10*, L+11
SUB L+40*, L+42*, L+43, L+46, L+59!
XX L+46, L+52, L+59!
XX( NEWCASE+2, NEWCASE+3
XX(0 L+47, NEWCASE+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All