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

Package: Oncology

Routine: ONCOAIC


Information

ONCOAIC ;HINES OIFO/GWB - Create first primary for a patient ;03/08/11

Source Information

Source file <ONCOAIC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Create first ONCOLOGY PRINMARY (165.5) record
LOOK1 ;Select first primary
A2 ;Create first ONCOLOGY PRIMARY (165.5) record for this patient
A
NAN ;New ACCESSION NUMBER (165.5,.05)
NA
AC
DIE
LOCK
ASK
FND ;Search for unused accession numbers
NR
PID ;Continue defining Primary Record
KLN ;KILL entry
KILL ;KILL variables
EX ;Exit
CLEANUP ;Cleanup

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?5,"******** CREATE FIRST PRIMARY RECORD FOR THIS PATIENT*******",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: A2+3
Function Call: WRITE
  • Prompt: !,?5,"Creating a new Primary record for ",ONCONM
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NAN+5
Function Call: WRITE
  • Prompt: !!?5,"ACCESSION YEAR must be 4 digits!"
  • Line Location: NAN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?10,"OUT of ACCESSION Numbers for "_YR
  • Line Location: NR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: KLN+4

FileMan Files Accessed Via FileMan Db Call

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