Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
ASKNUM(TXT,RNG,DFLT) ;ask for a number - expects RNG as NNN:NNN
ASKY(TXT) ;ask a Y/N question, default YES, returns 1 for Y, 0 for N
LOOKUP(FL,NTR,UIO,Y) ;look up entry NTR in File FL with user options UIO, return Y array if parameter passed
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
VERSION(PKG) ;get version # for pkg
VERCHK(PKG,VER,PATNO) ;verify version for a patch
SITEPAR(MSG) ;Are ONCOCOLOGY SITE PARAMETERS defined?
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)
KILLNAT(FILE,SWS) ;Kill national fields only for a file
CLNNOSUS ;Delete ONCOLOGY PATIENT (160) entries with no primaries/no suspense
COUNT ;Count the number of entries to delete
CHK
CLNOK() ;Confirm deletion
PURGE ;Delete entries
LCASE(ONCOSTR) ;Convert string to upper/lowercase
UCASE ;Convert string to uppercase

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ONCO(160 - [#160] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call