Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ONCOAIM

Package: Oncology

Routine: ONCOAIM


Information

ONCOAIM ;Hines OIFO/GWB - Create additional primaries for a patient ;03/08/11

Source Information

Source file <ONCOAIM.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Oncology 2 SEX^ONCOCKI  (CX,SDA)^ONCOCOM  

Entry Points

Name Comments DBIA/ICR reference
EN ;Add additional primaries for patient
PROMPT ;SEQUENCE NUMBER (165.5,.06) prompt
LOOK2 ;Select Primary Site
CR ;Create Primary
PID ;Continue defining Primary Record
UPDT ;Update 00 to 01, update 60 to 61
KLN ;KILL entry
KILL ;KILL variables
EX ;Exit
CLEANUP ;Cleanup

External References

Name Field # of Occurrence
^DIC LOOK2+5
FILE^DICN CR+5
^DIE CR+14, UPDT+2, UPDT+3
^DIK KLN+1
$$GET1^DIQ EN+16
^DIR PROMPT+5, LOOK2+9
SEX^ONCOCKI LOOK2+7
CX^ONCOCOM PROMPT+9
SDA^ONCOCOM UPDT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!?5,"******** ADD PRIMARY RECORD FOR THIS PATIENT********",!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!?5,"ACCESSION NUMBER: ",ACN
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: " Allowable Values: 00-88, 99"
  • Line Location: PROMPT+6
Function Call: WRITE
  • Prompt: ?32,"Next Non-Malignant SEQUENCE NUMBER is",NEXTBEN
  • Line Location: PROMPT+19
Function Call: WRITE
  • Prompt: !,?5,"Creating another primary record for ",ONCONM_" "_ACN_"..."
  • Line Location: CR+2
Function Call: WRITE
  • Prompt: !!?5,"The following up-dating has occurred:",!!
  • Line Location: UPDT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: KLN+4
Routine Call
  • DIC
  • Line Location:
    • LOOK2+5
Routine Call
  • DIE
  • Line Location:
    • CR+14
    • UPDT+2
    • UPDT+3
Routine Call
  • DIR
  • Line Location:
    • PROMPT+5
    • LOOK2+9

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,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ONCO(164.2 - [#164.2] EN+15
^ONCO(165.5 - [#165.5] EN+10, EN+13, EN+14, PROMPT+7, CR+7*, CR+8*, CR+10, CR+15
^TMP($J EN+17*, EN+18*, EN+21, EN+22, EN+23, EN+24, PROMPT+12, PROMPT+13, PROMPT+14, PROMPT+17
PROMPT+18, PROMPT+20, PROMPT+21, PROMPT+22, PID+1, PID+2, KILL+4!

Label References

Name Line Occurrences
CR LOOK2+10
EN LOOK2+10
EX LOOK2+5, CR+5, CR+16
KILL EN+1, PROMPT+5, PID+3, KLN+1, EX+1
KLN CR+16
LOOK2 LOOK2+7
PID CR+16
PROMPT PROMPT+6, PROMPT+7, PROMPT+19
UPDT PID+1, PID+2

Naked Globals

Name Field # of Occurrence
^(7 CR+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AC EN+9*, CR+13, PID+3, KILL+1!
ACAY CR+9*, KILL+1!
ACN EN+9*, EN+10, EN+11, EN+30, PROMPT+7, PROMPT+10, PROMPT+16, PROMPT+24, CR+2, CR+13*
KILL+1!
ACS EN+9*, EN+10*, EN+11, EN+13, EN+17, EN+18, PROMPT+13*, PROMPT+16, PROMPT+21*, PROMPT+24
KILL+1!
ACSL EN+10*, KILL+1!
ALPHA EN+21*, KILL+1!
AY PROMPT+11*, KILL+1!
BEN EN+21*, EN+23, KILL+1!
D0 UPDT+2*, UPDT+3*, KILL+1!
DA CR+13*, UPDT+1*, UPDT+3*, KLN+1*, KLN+2*, KLN+3, KILL+1!
DEF PROMPT+1~, PROMPT+2*, PROMPT+3
DIC LOOK2+1!, LOOK2+2*, LOOK2+5!, CR+1!, CR+3*, CR+5!, KILL+1!
DIC("A" LOOK2+3*
DIC("DR" CR+4*
DIC("S" LOOK2+4*
DIC(0 LOOK2+2*, CR+3*
DIE CR+11*, UPDT+1*, UPDT+3*, KILL+1!
DIEN PROMPT+1~, PROMPT+10*
DIK KLN+1*, KILL+1!
DIR PROMPT+3!, LOOK2+8!, KILL+1!
DIR("?" PROMPT+4*
DIR("??" PROMPT+5*
DIR("A" PROMPT+3*, LOOK2+9*
DIR("B" PROMPT+3*, LOOK2+9*
DIR(0 PROMPT+3*, LOOK2+9*
DO CR+1!
DR CR+12*, UPDT+1*, UPDT+3*, KILL+1!
DT PROMPT+11, CR+9
DTIME KLN+2
DTOUT CR+1!, KILL+1!
IOF EN+2
KK EN+10*, KILL+2!
KKB EN+9*, EN+18*, KILL+2!
KKM EN+9*, EN+17*, KILL+2!
LASTBEN EN+20!, EN+23*, EN+25, KILL+2!
LASTMAL EN+20!, EN+24*, EN+26, KILL+2!
LL EN+13*, KILL+2!
MAL EN+22*, EN+24, KILL+2!
NEXTBEN EN+20!, EN+25*, PROMPT+19, KILL+2!
NEXTMAL EN+20!, EN+26*, EN+27*, EN+28*, PROMPT+2, KILL+2!
NUM EN+22*, KILL+2!
ONCOACN PID+3*, CLEANUP+1!
ONCOD0 PROMPT+9, LOOK2+6, CR+7, CR+8, CLEANUP+1!
ONCOD0P CR+6*, CR+8, CR+10, CR+13, CR+15, UPDT+2, UPDT+3, KLN+1, CLEANUP+1!
ONCONM EN+4, CR+2, CLEANUP+1!
ONCOP EN+9, CLEANUP+1!
ONCOPN LOOK2+6*, CLEANUP+1!
ONCOSIT LOOK2+6*, CR+3, KILL+2!, CLEANUP+1!
PRIM EN+15*, EN+17, EN+18, KILL+3!
PRIMIEN EN+14*, EN+15, KILL+3!
REC00 PROMPT+14*, PROMPT+22*, UPDT+1, KILL+3!
REC002 PROMPT+18*, UPDT+3, KILL+3!
RECNUM EN+12*, EN+13*, EN+14, EN+16, EN+17, EN+18, KILL+3!
SEQ PROMPT+11*, CR+13, PID+3, KILL+3!
SEQDIV EN+16*, EN+17, EN+18, KILL+3!
SN PROMPT+11*, PROMPT+12, PROMPT+17, PROMPT+19, PROMPT+20, PID+1, PID+2, UPDT+1*, UPDT+3*, KILL+3!
SQN EN+10*, EN+17, EN+18, KILL+3!
U EN+9, EN+14, EN+15, EN+17, EN+18, EN+23, EN+24, PROMPT+12, PROMPT+13, PROMPT+14
PROMPT+17, PROMPT+18, PROMPT+20, PROMPT+21, PROMPT+22, LOOK2+6, CR+7, PID+1, PID+2, KLN+3
UPDATE PID+1*, PID+2*, UPDT+1, UPDT+3, KILL+3!
X LOOK2+6*, LOOK2+7, CR+3*, CR+5!, KILL+3!
XD0 PROMPT+9*, LOOK2+6*, KILL+3!
XX LOOK2+6*, KILL+3!
XXIEN PROMPT+7*, PROMPT+8, PROMPT+9!
Y PROMPT+5, PROMPT+6, PROMPT+7, PROMPT+10, PROMPT+11, LOOK2+5, LOOK2+6, LOOK2+10, CR+5, CR+6
CR+7, CR+16, PID+3*, EX+1*, CLEANUP+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All