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

Package: Oncology

Routine: ONCOU


Information

ONCOU ;Hines OIFO/GWB ONCOTRAX utilities ;06/06/00

Source Information

Source file <ONCOU.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 ^DIC  ^DIK  $$GET1^DIQ  EN^DIQ1  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 16

Package Total Caller Graph
Oncology 16 ^ONCO(164.46  CODE/DESCRIPTION  ONCO #SITE-PURGE SUSPENSE  ^ONCO(160.12  ^ONCO(160.3  ^ONCO(164.43  ^ONCO(164.7  ^ONCO(165.2  
^ONCO(165.7  ONCOANC0  ONCOANCQ  ONCOCOFA  ONCODEL  ^ONCO(166  ONCOFUL  ^ONCO(168  

Entry Points

Name Comments DBIA/ICR reference
COUNT ;Count the number of entries to delete
CLNOK() ;Confirm deletion
LTS(DA,NOTTHIS) ;Invoked by AC cross-reference of TUMOR STATUS CODE sub-field (#.02) of TUMOR STATUS field (#73) of ONCOLOGY PRIMARY file (#165.5), sets value into LAST TUMOR STATUS field (#95)
GETVAL(FN,DA,DR,SE,SF) ;get value of field DR in entry DA in file FN - if DR is a multiple then get subfield SF in subentry SE
CLNNOSUS ;Delete ONCOLOGY PATIENT (160) entries with no primaries/no suspense
SITEPAR(MSG) ;Are ONCOCOLOGY SITE PARAMETERS defined?
CHK
LCASE(ONCOSTR) ;Convert string to upper/lowercase
PURGE ;Delete entries
VERCHK(PKG,VER,PATNO) ;verify version for a patch
KILLNAT(FILE,SWS) ;Kill national fields only for a file
LOOKUP(FL,NTR,UIO,Y) ;look up entry NTR in File FL with user options UIO, return Y array if parameter passed
ASKY(TXT) ;ask a Y/N question, default YES, returns 1 for Y, 0 for N
UCASE ;Convert string to uppercase
VERSION(PKG) ;get version # for pkg
ASKNUM(TXT,RNG,DFLT) ;ask for a number - expects RNG as NNN:NNN

External References

Name Field # of Occurrence
^DIC LOOKUP+1
^DIK KILLNAT+5, PURGE+3
$$GET1^DIQ COUNT+7
EN^DIQ1 GETVAL+1
^DIR ASKNUM+1, ASKY+1, CLNNOSUS+11, CLNOK+3, PURGE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This routine will install ",PKG," Version ",VER," Patch ",PATNO,".",!!
  • Line Location: VERCHK+2
Function Call: WRITE
  • Prompt: *7,"But the ",PKG," package doesn't seem to be installed on this system!"
  • Line Location: VERCHK+4
Function Call: WRITE
  • Prompt: *7,"But Version ",VER," of the ",PKG," package doesn't seem to be installed!"
  • Line Location: VERCHK+5
Function Call: WRITE
  • Prompt: !,"(Current installed version: ",INST,")"
  • Condition for execution: INST
  • Line Location: VERCHK+5
Function Call: WRITE
  • Prompt: !!,"The ONCOLOGY SITE PARAMETERS have not been set up.",!,"Use the ""Define Tumor Registry Parameters"" Option.",!!
  • Line Location: SITEPAR+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLNNOSUS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLNNOSUS+3
Function Call: WRITE
  • Prompt: !," This option will delete ONCOTRAX PATIENT records"
  • Line Location: CLNNOSUS+4
Function Call: WRITE
  • Prompt: !," with no suspense records and no primaries."
  • Line Location: CLNNOSUS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CLNNOSUS+6
Function Call: WRITE
  • Prompt: " No records to delete"
  • Line Location: CLNNOSUS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CLNNOSUS+11
Function Call: WRITE
  • Prompt: !!,"The ONCOTRAX PATIENT file is in use... try again later!",*7,!!
  • Line Location: CLNNOSUS+14
Function Call: WRITE
  • Prompt: !," Total ONCOTRAX PATIENT records: ",TOTKT
  • Line Location: COUNT+4
Function Call: WRITE
  • Prompt: !," Total records marked for deletion: ",CLNKT,!
  • Line Location: COUNT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: COUNT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: PURGE+3
Function Call: WRITE
  • Prompt: " DONE"
  • Line Location: PURGE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PURGE+5
Routine Call
  • DIC
  • Line Location:
    • LOOKUP+1
Routine Call
  • DIR
  • Line Location:
    • ASKNUM+1
    • ASKY+1
    • CLNNOSUS+11
    • CLNOK+3
    • PURGE+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( GETVAL+1, KILLNAT+5
^DIC(9.4 - [#9.4] VERSION+1
^ONCO(160 - [#160] CLNNOSUS+7, CLNNOSUS+13, COUNT+3, CHK+1, CHK+3, CHK+4!
^ONCO(160.1 - [#160.1] SITEPAR+2, SITEPAR+3
^ONCO(165.5 - [#165.5] LTS+4, LTS+5, LTS+6!*, CHK+2
^TMP($J CLNNOSUS+9!, COUNT+6, CHK+6*, PURGE+3

Label References

Name Line Occurrences
$$CLNOK CLNNOSUS+12
$$VERSION VERCHK+3
CHK COUNT+3
COUNT CLNNOSUS+10
PURGE CLNNOSUS+12

Naked Globals

Name Field # of Occurrence
^( LTS+5
^(7 LTS+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CLNKT CLNNOSUS+1~, CLNNOSUS+11, CLNNOSUS+12, COUNT+2*, COUNT+5, COUNT+6, CHK+5*
D0 GETVAL+1~
DA GETVAL~, GETVAL+1, LTS~, LTS+4, LTS+5, LTS+6, KILLNAT+2~, KILLNAT+5*, PURGE+2~*, PURGE+3*
DA( GETVAL+1*
DA(1 KILLNAT+4*
DFLT ASKNUM~, ASKNUM+1
DI GETVAL+1~
DIC LOOKUP+1~*, GETVAL+1~*
DIC(0 LOOKUP+1*
DIE LTS+2~
DIK KILLNAT+2~, KILLNAT+5*, PURGE+1~*
DIQ GETVAL+1~*
DIR ASKNUM+1~, ASKY+1~, CLNNOSUS+11!, CLNOK+1~, PURGE+5!
DIR("A" ASKNUM+1*, ASKY+1*, CLNOK+2*
DIR("B" ASKNUM+1*, ASKY+1*, CLNOK+2*
DIR(0 ASKNUM+1*, ASKY+1*, CLNNOSUS+11*, CLNOK+2*, PURGE+5*
DOTS KILLNAT+2~, KILLNAT+3*, KILLNAT+5
DR GETVAL~, GETVAL+1, LTS+2~
DR( GETVAL+1*
DUZ(2 SITEPAR+2
FILE KILLNAT~, KILLNAT+4, KILLNAT+5
FL LOOKUP~, LOOKUP+1
FN GETVAL~, GETVAL+1
>> IEN COUNT+6*, COUNT+7
INST VERCHK+1~, VERCHK+3*, VERCHK+4, VERCHK+5
IOF CLNNOSUS+2
KT KILLNAT+2~, KILLNAT+5*, KILLNAT+6
MSG SITEPAR~, SITEPAR+4
NOTTHIS LTS~, LTS+4
NTR LOOKUP~, LOOKUP+1
NTS LTS+2~, LTS+3*, LTS+5*, LTS+6
OI COUNT+1~*, COUNT+3*, CHK+1, CHK+2, CHK+3, CHK+4, CHK+6
OK VERCHK+1~*, VERCHK+6*, VERCHK+7, SITEPAR+1~, SITEPAR+2*, SITEPAR+3*, SITEPAR+4, SITEPAR+5
ONCO LCASE+1~*
ONCOSTR LCASE~, LCASE+1*, LCASE+2
OQ GETVAL+1~
OQ( GETVAL+1
OTS LTS+2~, LTS+5*, LTS+6
OX GETVAL+1~*, LTS+2~, LTS+4*, LTS+5*
PATNO VERCHK~, VERCHK+2
PKG VERSION~, VERSION+1, VERCHK~, VERCHK+2, VERCHK+3, VERCHK+4, VERCHK+5
PNU VERSION+1~*
RNG ASKNUM~, ASKNUM+1
SE GETVAL~, GETVAL+1
SF GETVAL~, GETVAL+1
>> SUSDT CHK+1*
SWS KILLNAT~, KILLNAT+3
TOTKT CLNNOSUS+1~, COUNT+2*, COUNT+4, CHK*
TXT ASKNUM~, ASKNUM+1, ASKY~, ASKY+1
U ASKY+1, GETVAL+1, LTS+5
UIO LOOKUP~, LOOKUP+1
VER VERCHK~, VERCHK+2, VERCHK+5
>> X LOOKUP+1*, UCASE+1*
Y ASKNUM+1~, ASKY+1~*, LOOKUP~, LOOKUP+1~, VERSION+1~*, CLNOK+4
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