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

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
; p21-do not allow completion of 2025+ cases. These comments and
; the following line will be removed in p22. X=2 because its Input Transform
CLEANUP ;Cleanup

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 2025 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

FileMan Files Accessed Via FileMan Db Call

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