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

Package: Oncology

Routine: ONCODXD


Information

ONCODXD ;HINES OIFO/RTK,GWB - DATE DX (165.5,3) INPUT TRANSFORM ;4/9/97

Source Information

Source file <ONCODXD.m>

Entry Points

Name Comments DBIA/ICR reference
DTDXIT ;Check that date entered is BEFORE or EQUAL to all other DATE fields
KLL
CHKDTS ; Check it against all other DATE fields
EDCHK ; If its a legitimate date check it against the date entered for DT DX
; If its a partial date (no month or no day) just check year or year/mo
ERRDATE ; Set DTXFLAG=0 and add FLDNM to the LIST of fields it must be before
DT ; CHANGE INTERNAL DATE TO EXTERNAL DATE FORMAT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?4,"The DATE DX must be BEFORE or EQUAL TO certain date fields. The date"
  • Line Location: DTDXIT+6
Function Call: WRITE
  • Prompt: !?4,"you have entered is unacceptable because it is AFTER the"
  • Line Location: DTDXIT+7
Function Call: WRITE
  • Prompt: !?4,"following date field(s):",!
  • Line Location: DTDXIT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DTDXIT+24
Info |  Source |  Entry Points |  Interaction Calls