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

Package: Oncology

Routine: ONCOEDC


Information

ONCOEDC ;HINES OIFO/GWB - ABSTRACT STATUS (165.5,91) Input Transform ;10/19/11

Source Information

Source file <ONCOEDC.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Oncology 4 ^ONCEDIT  (,CHKSUM,NAACCR)^ONCGENED  F1655^ONCOEDC1  OBS2018^ONCOEDC2  
VA FileMan 3 NOW^%DTC  $$GET1^DIQ  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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 ONCGENED  ^ONCO(165.5  

Entry Points

Name Comments DBIA/ICR reference
CHECK ;Required field check
QUIT
CHKFLDS ;Check ONCOLOGY PRIMARY (165.5) and ONCOLOGY PATIENT (160)
F160 ;ONCOLOGY PATIENT (160)
CMPLT ;Set CMPLT = 0 and add field to list of fields needed to be filled in.
PRINT ;Display results
REQ ;Missing "required" data item list
INTER ;Interfield edit warnings
PCHK ;Enter RETURN to continue or '^' to exit:
EDITS ;Call to EDITS API
; p20 do not allow completion of 2024+ cases. These comments and
; the following line will be removed in p21. X=2 because its Input Transform
CLEANUP ;Cleanup

External References

Name Field # of Occurrence
NOW^%DTC EDITS+8
$$GET1^DIQ CHECK+13, CHECK+29, F160+2, EDITS+43, EDITS+44, EDITS+45, EDITS+46, EDITS+48, EDITS+50, EDITS+52
^DIR CHECK+42, PCHK+2, EDITS+30
^ONCEDIT CHECK+36
^ONCGENED EDITS+18
CHKSUM^ONCGENED EDITS+56
NAACCR^ONCGENED EDITS+54
F1655^ONCOEDC1 CHKFLDS+1
OBS2018^ONCOEDC2 CHECK+16
$$FMTE^XLFDT EDITS+47, EDITS+51

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," No inter-field edit check warnings.",!
  • Line Location: CHECK+37
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+43
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !," ABSTRACT STATUS may not be set to COMPLETE unless"
  • Line Location: REQ+1
Function Call: WRITE
  • Prompt: !," all ""required"" data items have been entered.",!
  • Line Location: REQ+2
Function Call: WRITE
  • Prompt: !," The following ""required"" data items have not been"
  • Line Location: REQ+3
Function Call: WRITE
  • Prompt: !," entered for this primary:",!
  • Line Location: REQ+4
Function Call: WRITE
  • Prompt: !,?2,FN
  • Line Location: REQ+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PCHK+1
Function Call: READ
  • Formatting: !?1
  • Prompt: " press RETURN to continue->"
  • Variable: ANSWER
  • Timeout: DTIME
  • Line Location: EDITS+3
Function Call: WRITE
  • Prompt: !!,"THIS CASE HAS A DATE DX OF 2024 AND CANNOT BE COMPLETED YET",!
  • Line Location: EDITS+3
Function Call: WRITE
  • Prompt: !," Calling EDITS API..."
  • Line Location: EDITS+6
Function Call: WRITE
  • Prompt: !!,"EDITS errors were encountered. ABSTRACT STATUS changed to 0 (Incomplete).",!
  • Line Location: EDITS+21
Function Call: WRITE
  • Prompt: !!,"EDITS errors were encountered. ABSTRACT STATUS is unchanged.",!
  • Line Location: EDITS+22
Function Call: WRITE
  • Prompt: !," No EDITS errors or warnings."
  • Line Location: EDITS+33
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITS+42
Function Call: WRITE
  • Prompt: !," ABSTRACT STATUS.............: ",$$GET1^DIQ(165.5,D0,91,"E")
  • Line Location: EDITS+43
Function Call: WRITE
  • Prompt: !," DATE CASE INITIATED.........: ",$$GET1^DIQ(165.5,D0,236,"E")
  • Line Location: EDITS+44
Function Call: WRITE
  • Prompt: !," INITIATED BY................: ",$$GET1^DIQ(165.5,D0,244,"E")
  • Line Location: EDITS+45
Function Call: WRITE
  • Prompt: !," DATE OF FIRST CONTACT.......: ",$$GET1^DIQ(165.5,D0,155,"E")
  • Line Location: EDITS+46
Function Call: WRITE
  • Prompt: !," DATE CASE COMPLETED.........: "
  • Line Location: EDITS+47
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(ONCDTEMP,"5P")
  • Line Location: EDITS+47
Function Call: WRITE
  • Prompt: !," ELAPSED DAYS TO COMPLETION..: ",$$GET1^DIQ(165.5,D0,157,"E")
  • Line Location: EDITS+48
Function Call: WRITE
  • Prompt: !," ABSTRACTED BY...............: ",$$GET1^DIQ(165.5,D0,92,"E")
  • Line Location: EDITS+50
Function Call: WRITE
  • Prompt: !," DATE CASE LAST CHANGED......: "
  • Line Location: EDITS+51
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(ONCDTEMP,"5P")
  • Line Location: EDITS+51
Function Call: WRITE
  • Prompt: !," CASE LAST CHANGED BY........: ",$$GET1^DIQ(165.5,D0,199,"E")
  • Line Location: EDITS+52
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITS+53
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITS+57
Routine Call
  • DIR
  • Line Location:
    • CHECK+42
    • PCHK+2
    • EDITS+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ONCO(160 - [#160] GET1^DIQ
^ONCO(165.5 - [#165.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( CMPLT+1
^DD(165.5 CHECK+29
^ONCO(160 - [#160] CHECK+25, CHECK+26
^ONCO(165.5 - [#165.5] CHECK+7*, CHECK+9*, CHECK+11, CHECK+12, CHECK+15, EDITS+3*, EDITS+9, EDITS+10, EDITS+12*, EDITS+13*
, EDITS+14*, EDITS+15*, EDITS+16*, EDITS+17*, EDITS+24*, EDITS+25!, EDITS+26*, EDITS+27*, EDITS+34*, EDITS+37!
, EDITS+38*, EDITS+39*, EDITS+40*, EDITS+41*, EDITS+47, EDITS+51
^TMP("ONC" EDITS+55

Label References

Name Line Occurrences
CHKFLDS CHECK+22
CMPLT F160+2
EDITS CHECK+37, CHECK+43
F160 CHKFLDS+2
INTER PRINT+3
PCHK REQ+7
QUIT CHECK+38
REQ PRINT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDITS+8
ABSTAT CHECK+4~, CHECK+15*, QUIT+2, EDITS+16, EDITS+21, EDITS+22, EDITS+32
>> ANSWER EDITS+3*
CC CHECK+4~, CHECK+13*, CHECK+17, CHECK+22
CMPLT CHECK+4~, CHECK+12*, CHECK+28*, CHECK+29*, CHECK+31, CHECK+32, CHECK+37, CMPLT+2*
CNT CHECK+4~, REQ+5*, REQ+7*
COC CHECK+13*, CLEANUP+1!
D0 CHECK+7, CHECK+8, CHECK+9, CHECK+11, CHECK+12, CHECK+13, CHECK+15, EDITS+3, EDITS+9, EDITS+10
, EDITS+16, EDITS+17, EDITS+24, EDITS+26, EDITS+27, EDITS+34, EDITS+43, EDITS+44, EDITS+45, EDITS+46
, EDITS+47, EDITS+48, EDITS+50, EDITS+51, EDITS+52, CLEANUP+1!
>> DATEDX EDITS+3
DCC CHECK+4~, EDITS+9*, EDITS+11, EDITS+17, EDITS+23, EDITS+36
DCLC CHECK+4~, EDITS+10*, EDITS+37
DIR CHECK+39!, CHECK+42!, PCHK+2!, EDITS+28!, EDITS+30!
DIR("A" CHECK+40*, CHECK+41*, EDITS+29*
DIR("B" CHECK+42*, EDITS+30*
DIR(0 CHECK+39*, PCHK+2*, EDITS+28*
DT CHECK+9, EDITS+39
DTDX CHECK+4~, CHECK+14*, CHECK+16, CHECK+22, CHECK+28, CHECK+29
DTIME EDITS+3
DUZ CHECK+7, CHECK+9, EDITS+14, EDITS+16, EDITS+17, EDITS+40, EDITS+41
EDIT QUIT+1*, EDITS+19!, EDITS+31*
EDITS EDITS+54*!
ERRFLG CHECK+4~, EDITS+4*, EDITS+20
EX CHECK+4~, REQ+5*, REQ+7, PCHK+1, PCHK+2*
FDNUM CHECK+4~, F160+1*, F160+2, CMPLT+1*
FLDNAME CHECK+4~, CMPLT+1*, CMPLT+2
FN CHECK+4~, REQ+6*, REQ+7*
IOF PCHK+3
IOSL REQ+5
IOST REQ+5
LINE CHECK+4~, REQ+5*, PCHK+1
LIST CHECK+12!
LIST( CHECK+29*, CMPLT+2*, REQ+7
LIST("DATE OF LAST CONTACT OR DEATH" , CHECK+28*
NODE0 CHECK+5~, CHECK+12*, CHECK+14
ONCANL CHECK+5~, CHECK+12*, CHECK+22*, CHECK+33
ONCAUDT CHECK+24~, CHECK+25*, CHECK+27
ONCDST EDITS+7~, EDITS+55*
ONCDTEMP EDITS+7~, EDITS+47*, EDITS+51*
ONCDTTIM EDITS+7~, EDITS+8*, EDITS+12, EDITS+13, EDITS+25, EDITS+38
ONCFILE CHECK+5~, CHKFLDS+1*, CHKFLDS+2*, CMPLT+1
ONCFOLDT CHECK+24~, CHECK+26*, CHECK+28
ONCSAPI EDITS+7~
ONCTYP CHECK+12*, CHECK+17*, CHECK+31*, QUIT+2*, PRINT+1, PRINT+2, PRINT+3, PRINT+5!
ONCX CHECK+4~
OVERRIDE CHECK+38, QUIT!
PAUSE CHECK+5~, EDITS+57*
PRM CHECK+5~, CHECK+8*, CHECK+29, EDITS+12, EDITS+13, EDITS+14, EDITS+15, EDITS+16, EDITS+17, EDITS+25
, EDITS+37, EDITS+38, EDITS+39, EDITS+40, EDITS+41
PTN CHECK+5~, CHECK+11*, CHECK+25, CHECK+26, F160+2
>> SAVEX EDITS+34*, EDITS+58
SQN CHECK+5~, CHECK+14*, CHECK+22
U CHECK+7, CHECK+9, CHECK+11, CHECK+14, CHECK+15, CHECK+25, CHECK+29, CMPLT+1, REQ+7, PCHK+1
, PCHK+2, EDITS+3, EDITS+9, EDITS+10, EDITS+12, EDITS+14, EDITS+15, EDITS+16, EDITS+17, EDITS+24
, EDITS+26, EDITS+27, EDITS+34, EDITS+38, EDITS+40, EDITS+41, EDITS+47, EDITS+51
X CHECK+7, CHECK+9, CHECK+10, CHECK+17!, CHECK+31!, CHECK+43*, QUIT+2*, EDITS+3*, EDITS+32*, EDITS+58*
Y CHECK+43, PCHK+2, EDITS+31, CLEANUP+1!
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 |  Local Variables  | All