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

Package: Clinical Information Resource Network

Routine: RGFICLN


Information

RGFICLN ;ALB/CJM-MPI/PD NDBI SITE CLEANUP UTILITY ;08/27/99

Source Information

Source file <RGFICLN.m>

Entry Points

Name Comments DBIA/ICR reference
CLEAN(LEGACY,PRIMARY,TESTMODE,ERROR) ;
LOOKUP(LEGACY,PRIMARY,ERROR) ;
LOOP(LEGACY,PRIMARY) ;
PROC ;
TFADD(RGREPORT,COUNT,DFN) ;
CMORADD(RGREPORT,COUNT,DFN) ;
ASKOK(DFN) ;
REPORT(COUNT,RGREPORT,LEGACY,PRIMARY) ;
HEADER ;
ADDLINE(LINE) ;
MAIL() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Looking for patients with legacy site as CMOR ..."
  • Line Location: LOOP+27
Function Call: WRITE
  • Prompt: !!,"Looking for patients with legacy site as treating facility ..."
  • Line Location: LOOP+36
Function Call: WRITE
  • Prompt: !,"Returned mail message number:",$$REPORT(.COUNT,RGREPORT,LEGACY,PRIMARY)
  • Line Location: LOOP+44
Function Call: WRITE
  • Prompt: !,"** ERROR: ",$G(ERROR)
  • Line Location: PROC+2
Function Call: WRITE
  • Prompt: !,"HL7 Message sent: "
  • Line Location: PROC+6
Function Call: WRITE
  • Prompt: !,"*** HL7 Message NOT sent! :",$G(ERROR)
  • Line Location: PROC+7
Function Call: WRITE
  • Prompt: !," Msg ",(I+1),": ",RES(I)
  • Line Location: PROC+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKOK+12
Function Call: WRITE
  • Prompt: !,"Patient DFN: ",DFN
  • Line Location: ASKOK+13
Function Call: WRITE
  • Prompt: !,"Patient Name: ",$$NAME^RGFIU(DFN)_" SSN: ",$$SSN^RGFIU(DFN)
  • Line Location: ASKOK+14
Function Call: WRITE
  • Prompt: !,"Patient ICN: ",MPIDATA("ICN"),$S(MPIDATA("LOC"):" (local)",1:"")," CMOR: ",MPIDATA("CMOR")
  • Line Location: ASKOK+15
Function Call: WRITE
  • Prompt: !,"Treating Facilities:"
  • Line Location: ASKOK+17
Function Call: WRITE
  • Prompt: !," ",SUB
  • Line Location: ASKOK+19
Info |  Source |  Entry Points |  Interaction Calls