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

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 ;

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

FileMan Files Accessed Via FileMan Db Call

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