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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ONCOCFR

Package: Oncology

Routine: ONCOCFR


Information

ONCOCFR ;Hines OIFO/GWB - RADIOLOGY CASEFINDING ;05/07/12

Source Information

Source file <ONCOCFR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 DD^%DT  FILE^DICN  ^DIE  EN1^DIP  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Oncology 2 $$DIV^ONCFUNC  SER^ONCOCFR  

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

Package Total Caller Graph
Oncology 2 ONCO SUSPENSE-CASEFIND (RAD)  ONCOCFR  

Entry Points

Name Comments DBIA/ICR reference
ST ;Start RAD/NUC MED PATIENT (70) file search
MG
T ;Start Date/End Date
TSK ;Create task
SER ;Search RAD/NUC MED PATIENT (70) file/Set multidivisional variables
CK ;Check ONCOLOGY PATIENT (160) file
GT
RPT ; Generate report
PRT ; Call print routine
WP ; Wrap-up report
CKP ;CHECK Primary File
MR ;Create new ONCOLOGY PATIENT (160) record
N2 ;Create new SUSPENSE (160,75) record
DIV ;Division match
EX ;EXIT

External References

Name Field # of Occurrence
DD^%DT T+15, T+21
^%ZIS TSK+1
^%ZISC EX+6
^%ZTLOAD TSK+3
FILE^DICN MR+1, N2+4
^DIE N2+7
EN1^DIP PRT+2
$$GET1^DIQ SER+9, SER+15
^DIR T+13, T+17, T+23
$$DIV^ONCFUNC CKP+1
SER^ONCOCFR TSK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !!!?10,"******** RADIOLOGY: SUSPICIOUS MALIGNANCY SEARCH ********",!
  • Line Location: ST+2
Function Call: WRITE
  • Prompt: !?10,"This option will search the RAD/NUC MED PATIENT file"
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: !?10,"for cases to add to the Suspense List."
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: !!?15,"MALIGNACY diagnostic code is not defined in the"
  • Line Location: MG+1
Function Call: WRITE
  • Prompt: !?15,"Radiology Diagnostic Codes File (#78.3). Please"
  • Line Location: MG+2
Function Call: WRITE
  • Prompt: !?15,"REQUEST Radiology to code suspicious MALIGNANCIES"
  • Line Location: MG+3
Function Call: WRITE
  • Prompt: !!!?10,"MUST terminate Radiology Search - no meaningful search code"
  • Line Location: MG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: T+12
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: T+15
Function Call: WRITE
  • Prompt: *7,?40,"Invalid date sequence!!",!
  • Line Location: T+19
Function Call: WRITE
  • Prompt: " ",Y,!
  • Line Location: T+21
Function Call: WRITE
  • Prompt: !!?15,"We will find suspicious malignancies"
  • Line Location: T+25
Function Call: WRITE
  • Prompt: !?15,"From: ",WSD_" To: "_WED,!
  • Line Location: T+26
Function Call: WRITE
  • Prompt: !
  • Line Location: T+27
Function Call: WRITE
  • Prompt: !!,"User does not have an associated DIVISION!",!!
  • Line Location: SER+2
Function Call: WRITE
  • Prompt: !!!?30,"RADIOLOGY CASEFINDING RESULTS"
  • Line Location: WP+1
Function Call: WRITE
  • Prompt: !!?30,^TMP("ONCO",$J,0)_" Cases found",!?30,^TMP("ONCO",$J,1)_" New Patients added",!?30,^TMP("ONCO",$J,2)_" New cases added",!!
  • Line Location: WP+2
Routine Call
  • DIE
  • Line Location:
    • N2+7
Routine Call
  • DIR
  • Line Location:
    • T+13
    • T+17
    • T+23
Routine Call
  • %ZIS
  • Line Location:
    • TSK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ONCO(160 - [#160] Classic Fileman Calls
^ONCO(160.1 - [#160.1] Classic Fileman Calls
^RA(78.3 - [#78.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(160 N2+3
^DIC(4 - [#4] T+6
^ONCO(160 - [#160] GT+4, GT+6
^ONCO(160.1 - [#160.1] T+1, T+7, T+20*, SER+1, SER+3
^ONCO(165.5 - [#165.5] GT+8, GT+9, CKP+1, CKP+2, CKP+3
^RA(78.3 - [#78.3] MGSER+10, SER+16
^RADPT - [#70] SER+6, SER+11, SER+12, SER+17, DIV+2
^RADPT("AR" SER+5
^TMP("ONCO" SER+4!*, GT+2*, RPT+1, WP+2, MR+1*, N2+8*, EX+5!

Label References

Name Line Occurrences
CKP GT+9
DIV GT+1
EX MG+4, T+14, T+18, T+24, TSK+1, TSK+2, TSK+3, SER+2, PRT+2
MR GT+5
N2 GT+8, GT+9
T MG+1, T+19, T+24

Naked Globals

Name Field # of Occurrence
^( MGSER+7, SER+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS TSK+1*, EX+1!
AFFDIV SER+1*, SER+3*, DIV+3, EX+1!
BY RPT+1*, RPT+4*, EX+1!
D0 MG*, SER+5*, SER+6, SER+11, SER+12, SER+17, GT+8*, MR+1*, EX+1!
D1 SER+5*, SER+6, SER+11, SER+12, SER+17, EX+1!
D2 SER+6*, SER+7, SER+12, EX+1!
D3 SER+12*, SER+13, EX+1!
DA GT+8*, MR+1*, N2+6*, EX+1!
DA(1 N2+2*, N2+5*
DD N2+1!
DIC RPT+1*, RPT+3*, MR+1*, N2+2*, EX+1!
DIC("P" N2+3*
DIC(0 MR+1*, N2+3*
DIE N2+5!*
DIOEND PRT+1*, EX+1!
DIR T+10!, T+16!
DIR("A" T+13*, T+17*, T+23*
DIR("B" T+11*, T+23*
DIR(0 T+13*, T+17*, T+23*
DO N2+1!
DR N2+7*, EX+1!
DT T+8, T+19
>> DUZ(2 T+1, T+6, SER+1, GT+7, RPT+5, CKP+1
DVMTCH GT+1, DIV+1*, DIV+3*, EX+1!
ED T+21*, T+27, EX+1!
EXP SER+9*, SER+11, SER+15*, SER+17, EX+1!
FLDS RPT+6*, EX+1!
FR RPT+5*, EX+1!
HT GT+3*, GT+9, CKP+2*, CKP+3*, EX+1!
INST DIV+1*, DIV+2*, DIV+3, EX+2!
IO("Q" TSK+1!, TSK+2
IOF ST+1
ION PRT+1
IOP PRT+1*, EX+2!
J SER+4*, EX+2!
L PRT+1*, EX+2!
MG MG*, MG+1, T+27, SER+4*, SER+10*, SER+11, SER+16*, SER+17, EX+2!
ONCDIVS GT+6*, GT+7, EX+2!
ONCDIVSP SER+1*, SER+2, SER+3, EX+2!, EX+4!
ONCIEN GT+4*, MR+1*, N2+2, N2+5, EX+2!
ONCO EX+2!
ONCO("ED" T+27*, SER+4, RPT+5
ONCO("MG" T+27*, SER+4
ONCO("SD" T+27*, SER+4, RPT+5
ONCOUT TSK+1*, EX+2!
ONCS GT+6*, EX+2!
ONCSUB N2+6*, EX+2!
OSP T+1*, T+2, T+7, T+20, EX+2!
PC1 SER+14*, SER+15, SER+16, EX+3!
PC13 SER+8*, SER+9, SER+10, EX+3!
POP TSK+1, EX+3!
RA EX+3!
RA( SER+11*, SER+17*, GTGT+4, N2+6, DIV+1
RA0 SER+7*, SER+8, SER+11, SER+17, EX+3!
RASDC0 SER+13*, SER+14, EX+3!
RDP N2+6*, EX+3!
RE1 DIV+1*, DIV+2, EX+3!
SD T+15*, T+19, T+27, EX+3!
TO RPT+5*, EX+3!
U T+6, T+7, T+14, T+18, T+20, T+24, SER+3, SER+8, SER+10, SER+11
SER+14, SER+16, SER+17, GT+4, GT+6, CKP+2, CKP+3, N2+3, N2+6, DIV+1
DIV+2
WED T+22*, T+26, EX+3!
WSD T+15*, T+26, EX+3!
X T+15*, T+21*, GT+3*, GT+4, N2+3*, EX+3!
XD0 GT+4*, GT+5, GT+6, GT+8, GT+9, CKP+1, EX+3!
XD1 CKP+1*, CKP+2, CKP+3, EX+3!
XDT SER+4*, SER+5*, SER+11, SER+17, GT+4*, CKP+2, CKP+3, N2+3, EX+3!
XDX CKP+2*, CKP+3*, EX+3!
XED SER+4*, SER+5, EX+4!
XSD SER+4*, EX+4!
XX MG*, GT*, GT+3, GT+4, N2+6, DIV+1, DIV+2, EX+4!
Y T+7*, T+8*, T+9*, T+11, T+14, T+15, T+18, T+19, T+20, T+21
T+22, T+24, MR+1, N2+6, EX+4!
Z SER+3*, EX+4!
ZTDESC TSK+3*, EX+4!
ZTRTN TSK+3*, EX+4!
ZTSAVE EX+4!
ZTSAVE("ONCO*" TSK+3*
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 |  Naked Globals |  Local Variables  | All