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
Print Page as PDF
Routine: ONCOPCE

Package: Oncology

Routine: ONCOPCE


Information

ONCOPCE ;HINES OIFO/GWB PCE MAIN ROUTINE ;08/15/11

Source Information

Source file <ONCOPCE.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT
DATEIT ;Date input transform
DATEOT ;Date output transform in format MM/DD/YYYY
CHDTIT ;Date input transform for fields #1103 and #1105
CHDTOT ;Date output transform for fields #1103 and #1105
CLEANUP ;Cleanup

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: Z
  • Timeout: 10
  • Line Location: ONCOPCE+142
Function Call: WRITE
  • Prompt: !!,?10,"There is no ICDO-TOPOGRAPHY for this primary."
  • Line Location: ONCOPCE+142
Function Call: READ
  • Variable: Z
  • Timeout: 10
  • Line Location: ONCOPCE+143
Function Call: WRITE
  • Prompt: !!,?10,"There is currently no PCE for this primary site",!,?10,"nor is it a 1997 Non-Hodgkin's Lymphoma or 1999",!,?10,"Melanoma."
  • Line Location: ONCOPCE+143
Function Call: WRITE
  • Prompt: *7,!!?5,"'00/00/00' is ambiguous, enter a 4 digit year.",!!
  • Line Location: DATEIT+1
Function Call: WRITE
  • Prompt: " 00/00/0000"
  • Line Location: DATEIT+3
Function Call: WRITE
  • Prompt: *7,!!?5,"'88/88/88' is ambiguous, enter a 4 digit year.",!!
  • Line Location: DATEIT+4
Function Call: WRITE
  • Prompt: " 88/88/8888"
  • Line Location: DATEIT+6
Function Call: WRITE
  • Prompt: *7,!!?5,"'99/99/99' is ambiguous, enter a 4 digit year.",!!
  • Line Location: DATEIT+7
Function Call: WRITE
  • Prompt: " 99/99/9999"
  • Line Location: DATEIT+9
Function Call: WRITE
  • Prompt: *7,!!?5,"'00/00/00' is ambiguous, enter a 4 digit year.",!!
  • Line Location: CHDTIT+1
Function Call: WRITE
  • Prompt: " 00/0000"
  • Line Location: CHDTIT+3
Function Call: WRITE
  • Prompt: *7,!!?5,"'99/99/99' is ambiguous, enter a 4 digit year.",!!
  • Line Location: CHDTIT+4
Function Call: WRITE
  • Prompt: " 99/9999"
  • Line Location: CHDTIT+6
Function Call: WRITE
  • Prompt: *7,!!?5,"'88/88/88' is ambiguous, enter a 4 digit year.",!!
  • Line Location: CHDTIT+7
Function Call: WRITE
  • Prompt: " 88/8888"
  • Line Location: CHDTIT+9
Function Call: WRITE
  • Prompt: !!?5,"Future dates are not allowed.",!
  • Line Location: CHDTIT+10
Info |  Source |  Entry Points |  Interaction Calls