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

Package: Imaging

Routine: MAGDCCS


Information

MAGDCCS ;WOIFO/MLH/JSL/SAF - DICOM Correct - Clinical Specialties ; 13 Feb 2012 1:13 PM

Source Information

Source file <MAGDCCS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Imaging 3 EN^MAGDCCS2  $$SECKEY^MAGDLB12  $$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: 1

Package Total Caller Graph
Imaging 1 MAGDCCSD  

Entry Points

Name Comments DBIA/ICR reference
L ;Loop thru the entire file for entries that need processing
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 ;

External References

Name Field # of Occurrence
YN^DICN UPDT+4
GETS^DIQ LOGERR+15
^DIR LOGERR+9
EN^MAGDCCS2 LOOK+1
$$SECKEY^MAGDLB12 L+11
$$PIDLABEL^MAGSPID DISPLAY+3, CHK+5, NEWDIS+3
$$NOW^XLFDT LOGERR+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Nothing to process!"
  • Line Location: L+12
Function Call: WRITE
  • Prompt: !,"**************Processing entry**********"
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,?2,"PATIENT: ",PAT,?50,$$PIDLABEL^MAGSPID(),PID,!,"Request/Consultation #: ",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 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 request/consultation #: ",CASENO,!,?2," New request/consultation #: ",NEWCAS
  • Line Location: NEWDIS+4
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 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: !,"Can not 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SET+12
^MAGD(2006.575 - [#2006.575] L+12, L+15, L+17, L+18, L+20, L+21!, L+24, L+25, UPDT+8*, UPDT+9*
, UPDT+11, 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+3, DATELOOP+5, DATELOOP+6!, DATELOOP+7
^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+2
ASK1 ASK1+5
CHK LOOK+2
CHKPREV SET+18, LOOK+5, LOOK+9
DISPLAY SET+15
LOGERR SETDEL+2
NEWCASE LOOK+2
NEWDIS UPDT+3, LOOK+2
SET L+27, DATELOOP+9, CHKPREV+2, CHKPREV+5
SETDEL SET+19, LOOK+4
SETMAG LOOK+10, CHKPREV+2
SETPREV SET+16, SET+17, SET+19, LOOK+3, LOOK+4, LOOK+6
UPDT LOOK+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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