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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ONCORIST

Package: Oncology

Routine: ONCORIST


Information

ONCORIST ;HINES OIFO/RTK,AJB - OncoTrax Data to ORIS ;04/16/26

Source Information

Source file <ONCORIST.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ($$NOW,$$TZ)^XLFDT  $$NS^XUAF4  
Oncology 3 $$WORD^ONCACDU2  (MULT2,MULT200,MULT5,MULT50)^ONCORIS1  (GEN,GET200)^ONCORISD  

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

Package Total Caller Graph
Oncology 1 ONCORIS  

Entry Points

Name Comments DBIA/ICR reference
EN ;this code (copy of ONCORIS) will be run if the option is QUEUED
JSON ;
GETFILES ;get all the files/data in json format
; cleanup work from any previous runs
GETREC ;
NONONC ;files outside of ONC namespace
GTD ; get the data
COMMCHK ;check if last record, if it's not write a comma if it is do not
FLDTYP ;determine if field is a word processing or multiple field
; if a word processing field return "W", if multiple field return "M"
MULT ;
WPF1655 ;Word processing fields in file #165.5
WPF160 ;
WORD(IEN,NODE,LEN)
WPFSUB(IEN,SUBIEN,LEN) ;Get word processing data for sub-field #400
; in file #160
ESCAPE ; escape " and \ characters and strip out non-printable ASCII chars
TIMENOW ;
END ;

External References

Name Field # of Occurrence
^%ZIS GETFILES+6, GETFILES+25
^%ZISC GETFILES+15, GETFILES+37
$$WORD^ONCACDU2 WPF1655+1
MULT2^ONCORIS1 GTD+16
MULT200^ONCORIS1 GTD+17
MULT5^ONCORIS1 GTD+18
MULT50^ONCORIS1 GTD+19
GEN^ONCORISD JSON+5
GET200^ONCORISD JSON+6
$$NOW^XLFDT TIMENOW+1
$$TZ^XLFDT TIMENOW+1
$$NS^XUAF4 JSON+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Start: ",ONCDTNW
  • Line Location: JSON+4
Function Call: WRITE
  • Prompt: !!,"Timestamp after Tarball created: ",ONCDTNW
  • Line Location: JSON+23
Function Call: WRITE
  • Prompt: !!,"Finish: ",ONCDTNW,!!!!
  • Line Location: JSON+32
Function Call: WRITE
  • Prompt: !,"{"
  • Line Location: GETFILES+8
Function Call: WRITE
  • Prompt: !," ","""_MetaData"""_" :"
  • Line Location: GETFILES+9
Function Call: WRITE
  • Prompt: !," {"
  • Line Location: GETFILES+10
Function Call: WRITE
  • Prompt: !," "_"""Facility"""_" : "_ONCQ_ONCFACNM_ONCQ_","
  • Line Location: GETFILES+11
Function Call: WRITE
  • Prompt: !," "_"""GeneratedAt"""_" : "_ONCDTNW
  • Line Location: GETFILES+12
Function Call: WRITE
  • Prompt: !," },"
  • Line Location: GETFILES+13
Function Call: WRITE
  • Prompt: !,"}"
  • Line Location: GETFILES+14
Function Call: WRITE
  • Prompt: ","
  • Line Location: GETFILES+35
Function Call: WRITE
  • Prompt: !," "_ONCQ_RECNUM_ONCQ_" :"
  • Line Location: GETREC+2
Function Call: WRITE
  • Prompt: !," {"
  • Line Location: GETREC+3
Function Call: WRITE
  • Prompt: ","
  • Line Location: GETREC+20
Function Call: WRITE
  • Prompt: !," "_ONCQ_DDNUM_ONCQ_" : "_ONCQ_RECDATA_ONCQ
  • Line Location: GETREC+23
Function Call: WRITE
  • Prompt: !," }"
  • Line Location: GETREC+29
Function Call: WRITE
  • Prompt: ","
  • Line Location: GETREC+29
Function Call: WRITE
  • Prompt: !," "_ONCQ_RECNUM_ONCQ_" :"
  • Line Location: GTD+4
Function Call: WRITE
  • Prompt: !," {"
  • Line Location: GTD+5
Function Call: WRITE
  • Prompt: ","
  • Line Location: GTD+42
Function Call: WRITE
  • Prompt: !," "_ONCQ_DDNUM_ONCQ_" : "_ONCQ_RECDATA_ONCQ
  • Line Location: GTD+45
Function Call: WRITE
  • Prompt: !," }"
  • Line Location: GTD+51
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+1
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+2
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+3
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+4
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+5
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+6
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+7
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+8
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+9
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+10
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+11
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+12
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+13
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+14
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+15
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+16
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+17
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+18
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+19
Function Call: WRITE
  • Prompt: ","
  • Line Location: COMMCHK+20
Function Call: WRITE
  • Prompt: ","
  • Line Location: MULT+6
Function Call: WRITE
  • Prompt: !," "_ONCQ_DDNUM_ONCQ_" :"
  • Line Location: MULT+7
Function Call: WRITE
  • Prompt: !," {"
  • Line Location: MULT+8
Function Call: WRITE
  • Prompt: ","
  • Line Location: MULT+25
Function Call: WRITE
  • Prompt: !," "_ONCQ_DDSUBNUM_ONCQ_" : "_ONCQ_RECDATA_ONCQ
  • Line Location: MULT+28
Function Call: WRITE
  • Prompt: ","
  • Line Location: MULT+34
Function Call: WRITE
  • Prompt: !," }"
  • Line Location: MULT+35
Function Call: WRITE
  • Prompt: ","
  • Line Location: WPF1655+4
Function Call: WRITE
  • Prompt: !," ",ONCQ_DDNUM_ONCQ_" : "_ONCQ_RECDATA_ONCQ
  • Line Location: WPF1655+5
Function Call: WRITE
  • Prompt: ","
  • Line Location: WPF160+5
Function Call: WRITE
  • Prompt: !," ",ONCQ_DDNUM_ONCQ_" : "_ONCQ_RECDATA_ONCQ
  • Line Location: WPF160+6
Function Call: WRITE
  • Prompt: ","
  • Line Location: WPF160+7
Function Call: WRITE
  • Prompt: !," ",ONCQ_DDSUBNUM_ONCQ_" : "_ONCQ_RECDATA_ONCQ
  • Line Location: WPF160+8
Routine Call
  • %ZIS
  • Line Location:
    • GETFILES+6
    • GETFILES+25

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNVSIT - [#9000010] NONONC+32, GTD+40, COMMCHK+20
^DD( GETREC+10, GETREC+11, GTD+12, GTD+13, FLDTYP+3, FLDTYP+4, MULT+2, MULT+3, MULT+14, MULT+16
, MULT+17, MULT+18
^DG( COMMCHK+12
^DG(40.8 - [#40.8] NONONC+17, GTD+32
^DGMMS( COMMCHK+8
^DGMMS(11.99 - [#11.99] NONONC+13, GTD+28
^DIC - [#1] COMMCHK+2, COMMCHK+3, COMMCHK+4, COMMCHK+6, COMMCHK+7, COMMCHK+10, COMMCHK+11, COMMCHK+13
^DIC(10 - [#10] NONONC+11, GTD+26
^DIC(11 - [#11] NONONC+12, GTD+27
^DIC(20.11 - [#20.11] NONONC+15, GTD+30
^DIC(21 - [#21] NONONC+16, GTD+31
^DIC(4 - [#4] NONONC+7, GTD+22
^DIC(4.11 - [#4.11] NONONC+8, GTD+23
^DIC(45.7 - [#45.7] NONONC+18, GTD+33
^DIC(5 - [#5] NONONC+9, GTD+24
^DPT - [#2] NONONC+6, GTD+1, GTD+21, COMMCHK+1
^HL( COMMCHK+19
^HL(771.7 - [#771.7] NONONC+31, GTD+39
^ICD9 - [#80] NONONC+27, GTD+37, COMMCHK+17
^LRT( COMMCHK+15
^LRT(67 - [#67] NONONC+25, GTD+2, GTD+35
^ONCO( GETFILES+32, GETREC+1, GETREC+18, GETREC+29, MULT+5, MULT+9, MULT+10, MULT+23, MULT+34
^ONCO(160 - [#160] NONONC+4, NONONC+23, WORD+2, WORD+6, WORD+7, WORD+8, WORD+10, WPFSUB+3, WPFSUB+7, WPFSUB+8
, WPFSUB+9, WPFSUB+11
^ONCO(160.1 - [#160.1] EN+11, EN+12, EN+13
^ONCO(160.9 - [#160.9] GETFILES+23, GETFILES+24, GETREC+6, GETREC+7, GETREC+8, GTD+8, GTD+9, GTD+10
^PSDRUG - [#50] NONONC+19, GTD+34, COMMCHK+14
^RAO( COMMCHK+16
^RAO(75.1 - [#75.1] NONONC+26, GTD+36
^VA( COMMCHK+9, COMMCHK+18
^VA(20 - [#20] NONONC+14, GTD+29
^VA(200 - [#200] NONONC+28, GTD+3, GTD+38
^VIC( COMMCHK+5
^VIC(5.11 - [#5.11] NONONC+10, GTD+25

Label References

Name Line Occurrences
$$WORD WPF160+1
$$WPFSUB WPF160+2
COMMCHK GTD+51
ESCAPE GETREC+22, GTD+44, MULT+27, WPF1655+3, WPF160+4
GETFILES JSON+15
GETREC GETFILES+32
GTD NONONC+6, NONONC+7, NONONC+8, NONONC+9, NONONC+10, NONONC+11, NONONC+12, NONONC+13, NONONC+14, NONONC+15
, NONONC+16, NONONC+17, NONONC+18, NONONC+19, NONONC+25, NONONC+26, NONONC+27, NONONC+30, NONONC+31, NONONC+32
JSON EN+19
MULT GETREC+13
NONONC GETFILES+34
TIMENOW JSON+4, JSON+12
WPF160 GETREC+15, MULT+22
WPF1655 GETREC+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS GETFILES+6*, GETFILES+25*
>> CHAR ESCAPE+4*, ESCAPE+5, ESCAPE+6, ESCAPE+7, ESCAPE+8
CNT WORD+3~, WORD+4*, WORD+6*, WORD+7, WORD+8, WORD+10, WPFSUB+4~, WPFSUB+5*, WPFSUB+7*, WPFSUB+8
, WPFSUB+9, WPFSUB+11
DATYPE GETREC+4~, GETREC+8*, GETREC+13, GETREC+14, GETREC+22, GETREC+23, GETREC+24, GTD+6~, GTD+10*, GTD+15
, GTD+20, GTD+44, GTD+45, GTD+46, MULT+15~, MULT+17*, MULT+27, MULT+28, MULT+29
DDNUM GETFILES+50!, GETREC+4~, GETREC+7*, GETREC+10, GETREC+11, GETREC+23, GETREC+27, GTD+6~, GTD+9*, GTD+12
, GTD+13, GTD+45, GTD+49, FLDTYP+3, MULT+2, MULT+3, MULT+7, WPF1655+5, WPF160+1, WPF160+2
, WPF160+5, WPF160+6, WPF160+7, WPF160+8
>> DDSUB FLDTYP+3*, FLDTYP+4, MULT+2*, MULT+14, MULT+16, MULT+17, MULT+18
>> DDSUBNUM MULT+14*, MULT+16, MULT+17, MULT+18, MULT+28, MULT+32, WPF160+8
DUZ(2 EN+11, JSON+13
FDNAME GETREC+9~, GETREC+10*, GTD+11~, GTD+12*, MULT+15~, MULT+16*
FILENUM GETFILES+24*, GETFILES+27, GETFILES+29, GETFILES+31, GETFILES+32, GETFILES+33, GETFILES+35, GETFILES+39, GETFILES+41, GETFILES+42
, GETFILES+45, GETFILES+50!, GETREC+1, GETREC+10, GETREC+11, GETREC+15, GETREC+16, GETREC+18, GETREC+29, NONONC+2
, NONONC+7, NONONC+8, NONONC+9, NONONC+10, NONONC+11, NONONC+12, NONONC+13, NONONC+14, NONONC+15, NONONC+16
, NONONC+17, NONONC+18, NONONC+19, NONONC+21, NONONC+26, NONONC+27, NONONC+28, NONONC+31, NONONC+32, GTD+1
, GTD+2, GTD+3, GTD+12, GTD+13, GTD+16, GTD+17, GTD+18, GTD+19, GTD+21, GTD+22
, GTD+23, GTD+24, GTD+25, GTD+26, GTD+27, GTD+28, GTD+29, GTD+30, GTD+31, GTD+32
, GTD+33, GTD+34, GTD+35, GTD+36, GTD+37, GTD+38, GTD+39, GTD+40, COMMCHK+1, COMMCHK+2
, COMMCHK+3, COMMCHK+4, COMMCHK+5, COMMCHK+6, COMMCHK+7, COMMCHK+8, COMMCHK+9, COMMCHK+10, COMMCHK+11, COMMCHK+12
, COMMCHK+13, COMMCHK+14, COMMCHK+15, COMMCHK+16, COMMCHK+17, COMMCHK+18, COMMCHK+19, COMMCHK+20, FLDTYP+3, MULT+2
, MULT+3, MULT+5, MULT+9, MULT+10, MULT+22, MULT+23, MULT+34
IEN WORD~, WORD+2, WORD+6, WORD+7, WORD+8, WORD+10, WPFSUB~, WPFSUB+3, WPFSUB+7, WPFSUB+8
, WPFSUB+9, WPFSUB+11
IO GETFILES+7, GETFILES+26
>> IOP GETFILES+6*, GETFILES+25*
LEN WORD~, WORD+6, WORD+9, WPFSUB~, WPFSUB+7, WPFSUB+10
LINE WORD+3~, WORD+5*, WORD+8, WORD+9*, WORD+10*, WORD+11, WPFSUB+4~, WPFSUB+6*, WPFSUB+9, WPFSUB+10*
, WPFSUB+11*, WPFSUB+12
>> N ESCAPE+3*, ESCAPE+4
NEWLINE GETFILES+50!, GETREC+22, GTD+44, MULT+27, WPF1655+3, WPF160+4, ESCAPE+2*, ESCAPE+5*, ESCAPE+6*, ESCAPE+8*
NODE GETFILES+50!, GETREC+9~, GETREC+12*, GETREC+18, GTD+11~, GTD+14*, GTD+21, GTD+22, GTD+23, GTD+24
, GTD+25, GTD+26, GTD+27, GTD+28, GTD+29, GTD+30, GTD+31, GTD+32, GTD+33, GTD+34
, GTD+35, GTD+36, GTD+37, GTD+38, GTD+39, GTD+40, MULT+15~, MULT+20*, MULT+23, WPF1655+1
, WORD~, WORD+2, WORD+6, WORD+7, WORD+8, WORD+10
NODEPC GETREC+9~, GETREC+11*, GETREC+12, GTD+11~, GTD+13*, GTD+14, MULT+15~, MULT+18*, MULT+19, MULT+20
, MULT+21
OLDLINE GETFILES+50!, GETREC+22*, GTD+44*, MULT+27*, WPF1655+3*, WPF160+4*, ESCAPE+1, ESCAPE+3, ESCAPE+4
>> ONCACKEY EN+13*, EN+14, JSON+25
>> ONCAFDIV EN+11*
>> ONCAR200( NONONC+29
>> ONCDIVSP EN+11*, EN+12, EN+13
>> ONCDPT NONONC+3*, NONONC+4*, NONONC+5, NONONC+6
ONCDTNW JSON+4, GETFILES+12, GETFILES+50!, TIMENOW+7*
ONCFAC JSON+13~*
ONCFACNM JSON+13~*, GETFILES+11
>> ONCFDMUL GETREC+6*, GETREC+7, GETREC+8, GTD+8*, GTD+9, GTD+10
>> ONCFDTY FLDTYP+2*, FLDTYP+4*
ONCLINE WORD+3~, WORD+5*, WORD+6, WORD+8*, WORD+9, WPFSUB+4~, WPFSUB+6*, WPFSUB+7, WPFSUB+9*, WPFSUB+10
>> ONCLRT NONONC+22*, NONONC+23*, NONONC+24, NONONC+25
>> ONCMAPN GETFILES+23*, GETFILES+24, GETREC+6, GETREC+7, GETREC+8, GTD+8, GTD+9, GTD+10
>> ONCMUFLG MULT+1*, MULT+11*, MULT+25, MULT+26*
ONCQ JSON+3~*, JSON+11~*, GETFILES+11, GETFILES+29, GETREC+2, GETREC+23, GETREC+27, GTD+4, GTD+45, GTD+49
, MULT+7, MULT+12, MULT+28, MULT+32, WPF1655+5, WPF160+6, WPF160+8, TIMENOW+7
>> ONCREFLG GETREC+5*, GETREC+20, GETREC+21*, GTD+7*, GTD+42, GTD+43*
>> ONCSVPTH EN+12*, EN+14, JSON+25
ONCT JSON+4~, JSON+12~, TIMENOW+1*, TIMENOW+2, TIMENOW+7
ONCTHR JSON+4~, JSON+12~, TIMENOW+2*, TIMENOW+7
ONCTMN JSON+4~, JSON+12~, TIMENOW+2*, TIMENOW+7
ONCTR JSON+10~*
ONCTSN JSON+4~, JSON+12~, TIMENOW+2*, TIMENOW+3*, TIMENOW+4*, TIMENOW+5*, TIMENOW+7
ONCTZONE JSON+4~, JSON+12~, TIMENOW+1*, TIMENOW+5
PIECE GETREC+9~, GETREC+12*, GETREC+18, GTD+11~, GTD+14*, GTD+21, GTD+22, GTD+23, GTD+24, GTD+25
, GTD+26, GTD+27, GTD+28, GTD+29, GTD+30, GTD+31, GTD+32, GTD+33, GTD+34, GTD+35
, GTD+36, GTD+37, GTD+38, GTD+39, GTD+40, MULT+15~, MULT+20*, MULT+23
RECDATA GETFILES+50!, GETREC+9~, GETREC+18*, GETREC+19, GETREC+22*, GETREC+23, GETREC+25*, GETREC+26*, GETREC+27, GTD+11~
, GTD+21*, GTD+22*, GTD+23*, GTD+24*, GTD+25*, GTD+26*, GTD+27*, GTD+28*, GTD+29*, GTD+30*
, GTD+31*, GTD+32*, GTD+33*, GTD+34*, GTD+35*, GTD+36*, GTD+37*, GTD+38*, GTD+39*, GTD+40*
, GTD+41, GTD+44*, GTD+45, GTD+47*, GTD+48*, GTD+49, MULT+15~, MULT+23*, MULT+24, MULT+27*
, MULT+28, MULT+30*, MULT+31*, MULT+32, WPF1655+1*, WPF1655+2, WPF1655+3*, WPF1655+5, WPF160+1*, WPF160+2*
, WPF160+3, WPF160+4*, WPF160+6, WPF160+8
RECNUM JSON+10~, GETFILES+32*, GETFILES+50!, GETREC+1, GETREC+2, GETREC+18, GETREC+29, NONONC+3*, NONONC+6*, NONONC+7*
, NONONC+8*, NONONC+9*, NONONC+10*, NONONC+11*, NONONC+12*, NONONC+13*, NONONC+14*, NONONC+15*, NONONC+16*, NONONC+17*
, NONONC+18*, NONONC+19*, NONONC+22*, NONONC+25*, NONONC+26*, NONONC+27*, NONONC+28*, NONONC+29, NONONC+31*, NONONC+32*
, GTD+1, GTD+2, GTD+3, GTD+4, GTD+21, GTD+22, GTD+23, GTD+24, GTD+25, GTD+26
, GTD+27, GTD+28, GTD+29, GTD+30, GTD+31, GTD+32, GTD+33, GTD+34, GTD+35, GTD+36
, GTD+37, GTD+38, GTD+39, GTD+40, COMMCHK+1, COMMCHK+2, COMMCHK+3, COMMCHK+4, COMMCHK+5, COMMCHK+6
, COMMCHK+7, COMMCHK+8, COMMCHK+9, COMMCHK+10, COMMCHK+11, COMMCHK+12, COMMCHK+13, COMMCHK+14, COMMCHK+15, COMMCHK+16
, COMMCHK+17, COMMCHK+18, COMMCHK+19, COMMCHK+20, MULT+5, MULT+9, MULT+10, MULT+23, MULT+34, WPF1655+1
, WPF160+1, WPF160+2
>> SBRECNUM MULT+9*, MULT+10, MULT+12, MULT+23, MULT+34, WPF160+2
SUBIEN WPFSUB~, WPFSUB+3, WPFSUB+7, WPFSUB+8, WPFSUB+9, WPFSUB+11
>> SUBNODE MULT+4*, MULT+5, MULT+9, MULT+10, MULT+23, MULT+34
>> SUBNODEN MULT+3*, MULT+4
X JSON+20*, JSON+22*, JSON+25*, JSON+30*, GETFILES+2*, GETFILES+39*, GETFILES+41*, GETFILES+42*, GETFILES+45*, WORD+1~*
, WORD+11*, WORD+12*, WORD+13, WPFSUB+2~*, WPFSUB+12*, WPFSUB+13*, WPFSUB+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All