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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
^DIC(4 - [#4] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call