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  | All
Print Page as PDF
Routine: MAGDLB1

Package: Imaging

Routine: MAGDLB1


Information

MAGDLB1 ;WOIFO/LB/JSL/SAF/NST/DAC/MLH - Routine to fix failed DICOM entries ; 11 Apr 2012 1:09 PM

Source Information

Source file <MAGDLB1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Imaging 3 $$SECKEY^MAGDLB12  EN^MAGDRA2  ($$ISIHS,$$PIDLABEL)^MAGSPID  
VA FileMan 3 YN^DICN  GETS^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  

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

Package Total Caller Graph
Imaging 3 MAGDLB12  MAGDLB9  MAGDMEDJ  

Entry Points

Name Comments DBIA/ICR reference
DISPLAY ;
NEWCASE ;
ASK() ;
ASK1
CHK ;remove any punctuation before doing comparison on SSN
NEWDIS ;
UPDT ;
SETDEL ;Entry to be deleted
LOGERR ;Need to record error
SET ;
LOOK ;
DATELOOP(START,STOP) ;Loop thru the "AD" cross reference
SETPREV ;
SETMAG ;
CHKPREV ;
NAME(ENTRY) ;SITE NAME

External References

Name Field # of Occurrence
YN^DICN UPDT+4
GETS^DIQ LOGERR+15, NAME+3
^DIR LOGERR+9
$$SECKEY^MAGDLB12 DATELOOP+2
EN^MAGDRA2 LOOK+2
$$ISIHS^MAGSPID CHK+5
$$PIDLABEL^MAGSPID DISPLAY+3, NEWDIS+3
$$NOW^XLFDT LOGERR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"**************Processing entry**********"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!?2,"PATIENT: ",PAT,?50,$$PIDLABEL^MAGSPID(),": ",PID,!,"RADIOLOGY CASE #: ",CASENO
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !?2,"Equipment: ",MOD,?50,"Model: ",MODEL
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !?2,"Date Processed: ",DATE,?50,"Problem with: ",REASON
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !?2,"Comment: ",COMNT1
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !?2,"Correcting file on Image gateway server ID: ",MACHID,!?5,FILE
  • Line Location: DISPLAY+7
Function Call: WRITE
  • Prompt: !,$G(MSG),"("_ASK_")// "
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: !,"Please respond with one of the following codes."
  • Line Location: ASK1+6
Function Call: WRITE
  • Prompt: !,"Legend: Y=yes, N=no, D=delete, P=Previous entry, and Q=quit",!
  • Line Location: ASK1+7
Function Call: WRITE
  • Prompt: !?2,"****Please review the following: *****"
  • Line Location: NEWDIS+1
Function Call: WRITE
  • Prompt: !?2,"Previous name: ",PAT,!?2," New name: ",NEWNME
  • Line Location: NEWDIS+2
Function Call: WRITE
  • Prompt: !?2,"Previous ",$$PIDLABEL^MAGSPID(),": ",PID,!?2," New ",$$PIDLABEL^MAGSPID(),": ",NEWPID
  • Line Location: NEWDIS+3
Function Call: WRITE
  • Prompt: !?2,"Previous case #: ",CASENO,!?2," New case #: ",NEWCAS
  • Line Location: NEWDIS+4
Function Call: WRITE
  • Prompt: !?15,"Case number selected: ",PP
  • Line Location: NEWDIS+5
Function Call: WRITE
  • Prompt: !,"Will change the following: "
  • Line Location: UPDT+3
Function Call: WRITE
  • Prompt: !,"Are you sure you want to correct this entry? "
  • Line Location: UPDT+4
Function Call: WRITE
  • Prompt: !,"Updating the file."
  • Line Location: UPDT+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDT+13
Function Call: WRITE
  • Prompt: !,"Gateway place not defined on image entry "_MAGIEN_", continuing.."
  • Line Location: UPDT+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: SETDEL+4
Function Call: WRITE
  • Prompt: !,"Gateway place not defined on this image entry "_MAGIEN_", continuing.."
  • Line Location: SETDEL+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOGERR+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: LOGERR+2
Function Call: WRITE
  • Prompt: !,"*** Will log in error log (file 2006.599). ****"
  • Line Location: LOGERR+3
Function Call: WRITE
  • Prompt: !,"Cannot delete if a reason is not provided."
  • Line Location: LOGERR+11
Function Call: WRITE
  • Prompt: !," Lookup by case number or patient name"
  • Line Location: SET+21
Function Call: WRITE
  • Prompt: !,"Previous entry has been "_STATUS_".",$C(7)
  • Line Location: CHKPREV+4
Routine Call
  • DIR
  • Line Location:
    • LOGERR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
^DIC(4 - [#4] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SET+12
^MAGD(2006.575 - [#2006.575] UPDT+8*, UPDT+9*, UPDT+12, UPDT+13*, SETDEL+3, SETDEL+4*, SETDEL+6*, SETDEL+7*, SET+1, SET+2
SET+5, SET+6, SET+7, SET+8, SET+13, DATELOOP+4, DATELOOP+6, DATELOOP+7, DATELOOP+8!, DATELOOP+10
, DATELOOP+12
^MAGD(2006.599 - [#2006.599] LOGERR+19, LOGERR+20*, LOGERR+22, LOGERR+23*, LOGERR+24*, LOGERR+25*, LOGERR+26*, LOGERR+27*

Label References

Name Line Occurrences
$$ASK SET+15, LOOK+3
ASK1 ASK1+5
CHK LOOK+3
CHKPREV SET+18, LOOK+6, LOOK+10
DISPLAY SET+15
LOGERR SETDEL+2
NEWCASE LOOK+3
NEWDIS UPDT+3, LOOK+3
SET DATELOOP+14, CHKPREV+2, CHKPREV+5
SETDEL SET+19, LOOK+5
SETMAG LOOK+11, CHKPREV+2
SETPREV SET+16, SET+17, SET+19, LOOK+4, LOOK+5, LOOK+7
UPDT LOOK+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% UPDT+2~, UPDT+4*, UPDT+5
ANS ASK+1~, ASK1+2*, ASK1+3, ASK1+4, ASK1+5, ASK1+8*, ASK1+9, SETDEL+2, LOGERR+10*, SET+15*
SET+16, SET+17, SET+18, SET+19, LOOK+3*, LOOK+4, LOOK+5, LOOK+6, LOOK+7, LOOK+10
ASK ASK+1~, ASK1*, ASK1+1*, ASK1+2
>> CASENO DISPLAY+3, NEWDIS+4, LOGERR+26, SET+11*
>> COMNT1 DISPLAY+6, SET+13*
>> DATA SET+5*, SET+9
>> DATA1 SET+7*, SET+11, SET+12, SET+14
>> DATA2 SET+8*, SET+10, SET+14
>> DATE DISPLAY+5, SET+12*
DIR LOGERR+1~
DIR("A" LOGERR+6*, LOGERR+7*, LOGERR+8*
DIR(0 LOGERR+5*
DIRUT LOGERR+1~, LOGERR+10
DTOUT LOGERR+1~, LOGERR+10
DUZ LOGERR+13, LOGERR+15, LOGERR+17
DUZ(2 DATELOOP+12
ENTRY LOGERR+1~, LOGERR+22*, LOGERR+23, LOGERR+25, LOGERR+26, LOGERR+27, NAME~, NAME+2, NAME+3, NAME+5
>> FILE DISPLAY+7, LOGERR+25, SET+6*
FIRST DATELOOP+1~, DATELOOP+3*, DATELOOP+13*, SETMAG+1*, SETMAG+2
>> FIRSTS SETMAG+1*, SETMAG+2
GWLOC UPDT+1~, UPDT+12*, UPDT+13, SETDEL+1~, SETDEL+3*, SETDEL+4, SET+14*
I CHK+2~, CHK+3*, LOGERR+1~, LOGERR+2*
>> KFIXALL DATELOOP+2*, DATELOOP+12
>> MACHID DISPLAY+7, UPDT+11*, UPDT+13, SETDEL+4, LOGERR+26, SET+11*, SET+14*
MAGDY NEWCASE+1, NEWCASE+2, NEWCASE+3, SET+21!, LOOK+2
MAGERR LOGERR+1~, NAME+1~
MAGERR("DIERR" LOGERR+16, NAME+4
MAGFIX DATELOOP+1~
MAGFIX( UPDT+16*, SETDEL+8*, CHKPREV+2, CHKPREV+3
MAGIEN ASK1+1, UPDT+8, UPDT+9, UPDT+12, UPDT+13, UPDT+14, UPDT+16, SETDEL+3, SETDEL+4, SETDEL+5
SETDEL+6, SETDEL+7, SETDEL+8, SET+1, SET+2, SET+5, SET+6, SET+7, SET+8, SET+13
, DATELOOP+1~, DATELOOP+5*, DATELOOP+6*, DATELOOP+7, DATELOOP+8, DATELOOP+10, DATELOOP+12, DATELOOP+13, SETPREV+1, SETMAG+1*
MAGOUT LOGERR+1~, NAME+1~
MAGOUT(200 LOGERR+17
MAGOUT(4 NAME+5
>> MAGTYPE ASK1+1, SET+1*, SET+4
MDV DATELOOP+1~
>> MOD DISPLAY+4, SET+10*
>> MODEL DISPLAY+4, LOGERR+25, SET+10*
>> MSG DISPLAY+8*, ASK1+2, CHK+5*, CHK+6*, CHK+8*, CHK+11*
NAME NAME+1~, NAME+5*, NAME+6
>> NEWCAS NEWCASE+2*, NEWDIS+4, UPDT+8
>> NEWDFN NEWCASE+1*, UPDT+8
>> NEWDTI NEWCASE+2*, UPDT+7, UPDT+8
>> NEWDTIM UPDT+7*, UPDT+8
>> NEWMUL NEWCASE+3*, UPDT+8
>> NEWNME NEWCASE+1*, CHK+7, NEWDIS+2, UPDT+8
>> NEWPID NEWCASE+1*, CHK+4, NEWDIS+3, UPDT+8
>> NEWPIEN NEWCASE+3*, UPDT+9
>> NEWPROC NEWCASE+2*, UPDT+9
NOW LOGERR+1~, LOGERR+4*, LOGERR+25, LOGERR+27
OLD CHK+2~, CHK+3*, CHK+4
OOUT SET+16*, LOOK+4*, DATELOOP+1~, DATELOOP+3*, DATELOOP+4
>> OUT DISPLAY+1*, UPDT+5*, SETDEL+2*, SET+16*, SET+17*, SET+20, LOOK+4*, LOOK+7*, LOOK+8, CHKPREV+1*
>> PAT DISPLAY+3, CHK+7, NEWDIS+2, LOGERR+26, SET+9*
>> PID DISPLAY+3, CHK+3, NEWDIS+3, LOGERR+26, SET+9*
>> PP NEWCASE+3*, NEWDIS+5
>> PREV ASK1+1, DATELOOP+13*, SETPREV+1*, SETMAG+1, SETMAG+2*, CHKPREV+2, CHKPREV+3
>> PREVS SETPREV+1*, SETMAG+1, SETMAG+2*
>> REASON DISPLAY+5, SET+9*
START DATELOOP~, DATELOOP+3
STATUS CHKPREV+1~, CHKPREV+3*, CHKPREV+4
STOP DATELOOP~, DATELOOP+4
SUID DATELOOP+1~, SETPREV+1, SETMAG+1*
THEDT DATELOOP+1~, DATELOOP+3*, DATELOOP+4*, DATELOOP+6, DATELOOP+8
U DATELOOP+10, DATELOOP+12
WHO LOGERR+1~, LOGERR+13*, LOGERR+14, LOGERR+17*, LOGERR+18*, LOGERR+26
WHY LOGERR+1~, LOGERR+13*, LOGERR+25
X LOGERR+1~
Y LOGERR+1~, LOGERR+10, LOGERR+13, SET+12*
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  | All