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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Clinical Information Resource Network 3 $$SEND^RGFIBM  $$XCHANGE^RGFIPM  ($$ASKYESNO,$$GETFIELD,$$ICN,$$NAME,$$SSN,$$STATNUM,GETALL)^RGFIU  
Kernel 3 $$FMTE^XLFDT  $$LJ^XLFSTR  $$LKUP^XUAF4  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  

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() ;

External References

Name Field # of Occurrence
$$SEND^RGFIBM PROC+6, PROC+9
$$XCHANGE^RGFIPM PROC+2
$$ASKYESNO^RGFIU LOOP+28, LOOP+38, ASKOK+21
$$GETFIELD^RGFIU LOOP+30, LOOP+41
$$ICN^RGFIU REPORT+18, REPORT+24
$$NAME^RGFIU ASKOK+14, REPORT+18, REPORT+24
$$SSN^RGFIU ASKOK+14, REPORT+18, REPORT+24
$$STATNUM^RGFIU PROC+3
GETALL^RGFIU ASKOK+11
$$SITE^VASITE LOOP+21, HEADER+1, MAIL+3
$$FMTE^XLFDT HEADER+1
$$LJ^XLFSTR REPORT+18, REPORT+24
^XMD MAIL+8
$$LKUP^XUAF4 LOOKUP+11, LOOKUP+13

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCN(391.91 - [#391.91] LOOP+38
^DPT("ACMOR" LOOP+28

Label References

Name Line Occurrences
$$ASKOK LOOP+32, LOOP+40
$$LOOKUP CLEAN+15
$$MAIL REPORT+26
$$REPORT LOOP+44, LOOP+45
ADDLINE REPORT+15, REPORT+16, REPORT+18, REPORT+19, REPORT+20, REPORT+21, REPORT+24, REPORT+25, HEADER+1, HEADER+2
, HEADER+3, HEADER+4, HEADER+5
CMORADD LOOP+34
HEADER REPORT+14
LOOP CLEAN+16
PROC LOOP+33, LOOP+42
TFADD LOOP+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CMOR LOOP+29~, LOOP+30*, LOOP+31, LOOP+39~, LOOP+41*, PROC+3
CMOR("#" PROC+3*, PROC+4
COUNT LOOP+18~, LOOP+34, LOOP+43, LOOP+44, LOOP+45, TFADD~, CMORADD~, REPORT~
COUNT("CMOR" LOOP+26*, CMORADD+3*, HEADER+3
COUNT("TF" LOOP+26*, TFADD+2*, HEADER+4
DFN LOOP+18~, LOOP+26*, LOOP+28*, LOOP+30, LOOP+32, LOOP+34, LOOP+37*, LOOP+38*, LOOP+40, LOOP+41
, LOOP+43, PROC+2, PROC+6, PROC+9, TFADD~, TFADD+3, CMORADD~, CMORADD+4, ASKOK~, ASKOK+11
, ASKOK+13, ASKOK+14, REPORT+11~, REPORT+12*, REPORT+17*, REPORT+18, REPORT+22*, REPORT+23*, REPORT+24
DIFROM MAIL+1~
DT HEADER+1
DUZ MAIL+4
ERROR CLEAN~, CLEAN+15, LOOKUP~, LOOKUP+12*, LOOKUP+14*, PROC+1~, PROC+2, PROC+6, PROC+7, PROC+9
HERE LOOP+18~, LOOP+21*, LOOP+24, PROC+4
I PROC+1~, PROC+8*
LEGACY CLEAN~, CLEAN+15, CLEAN+16, LOOKUP~, LOOKUP+11, LOOP~, LOOP+24, LOOP+44, LOOP+45, PROC+2
, PROC+6, PROC+9, REPORT~, HEADER+2
LEGACY("PTR" LOOKUP+11*, LOOKUP+12, LOOP+28, LOOP+31, LOOP+38
LINE ADDLINE~, ADDLINE+7
LINECNT REPORT+11~, REPORT+12*, ADDLINE+6*, ADDLINE+7
MPIDATA ASKOK+10~, ASKOK+11
MPIDATA("CMOR" ASKOK+15
MPIDATA("ICN" ASKOK+15
MPIDATA("LOC" ASKOK+15
MPIDATA("TF" ASKOK+19
PRIMARY CLEAN~, CLEAN+15, CLEAN+16, LOOKUP~, LOOKUP+13, LOOP~, LOOP+44, LOOP+45, PROC+2, PROC+6
, PROC+9, REPORT~, HEADER+2
PRIMARY("PTR" LOOKUP+13*, LOOKUP+14
RES PROC+1~, PROC+6, PROC+8, PROC+9
RES( PROC+8
RGREPORT LOOP+18~, LOOP+19*, LOOP+20, LOOP+34, LOOP+43, LOOP+44, LOOP+45, LOOP+46, TFADD~, TFADD+3
, CMORADD~, CMORADD+4, REPORT~, REPORT+13, REPORT+17, REPORT+23, ADDLINE+7, MAIL+6
SUB ASKOK+10~, ASKOK+18*, ASKOK+19*
TESTMODE CLEAN~, CLEAN+14*, LOOP+27, LOOP+28, LOOP+32, LOOP+36, LOOP+38, LOOP+40, LOOP+44, LOOP+45
, PROC+2, PROC+5, PROC+9
XMDUN MAIL+1~
XMDUZ MAIL+1~, MAIL+3*
XMSUB MAIL+1~, MAIL+7*
XMTEXT MAIL+1~, MAIL+6*
XMY MAIL+1~, MAIL+2*
XMY( MAIL+4*
XMY("G.MPIF E XCEPTIONS" , MAIL+5*
XMZ MAIL+1~, MAIL+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All