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

Package: Oncology

Routine: ONCOUTC


Information

ONCOUTC ;HINES OIFO/GWB - [UTL *..Utility Options DS, DP, SQ and EA] ;03/17/11

Source Information

Source file <ONCOUTC.m>

Entry Points

Name Comments DBIA/ICR reference
INQ ;[PI Patient/Primary Inquiry]
DUMP ;[RD Print Oncology Patient Record]
SEL ;S DIC(0)="AEQZ",DIC="^ONCO(160," D ^DIC G EX:Y<0 S ONCODA=+Y
EN2 ;[DP Delete Oncology Patient]
EN3 ;[DS Delete Primary Site/GP Record]
EN1 ;[EA Edit Site/AccSeq# Data]
SP
PRIM ;Select ONCOLOGY PRIMARY (165.5)
DIE1 ;Edit ONCOLOGY PRIMARY (165.5)
PAT ;Select ONCOLOGY PATIENT (160)
DP ;Delete ONCOLOGY PRIMARY (165.5)
DUPSQ ;[SQ Find Duplicate Acc/Seq numbers]
EX ;Kill variables
CLEANUP ;Cleanup

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"*** THIS OPTION IS OUT OF ORDER: Marked for deletion"
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !!,"*** THIS OPTION IS OUT OF ORDER: Marked for deletion"
  • Line Location: EN3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !?5,"Select primary to ",UTL,!
  • Line Location: PRIM+3
Function Call: WRITE
  • Prompt: !,"Record being edited by another user."
  • Line Location: DIE1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !?2,"SSN..........: ",ONC(160,ONCOD0,2)
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: ?35,"Race.........: ",ONC(160,ONCOD0,8)
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !?2,"Date of Birth: ",ONC(160,ONCOD0,3)
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: ?35,"Sex..........: ",ONC(160,ONCOD0,10)
  • Line Location: PAT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPSQ+1
Function Call: WRITE
  • Prompt: !!?8,"No duplicate Accession/Sequence Numbers Found.",!
  • Line Location: DUPSQ+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPSQ+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPSQ+11
Function Call: WRITE
  • Prompt: !!?5,"A total of ",ONCTTLDP," Accession/Sequence numbers with duplicates found.",!?5,"You may use the EA 'Edit Site/AccSeq # Data' option to fix duplicates.",!
  • Line Location: DUPSQ+13

FileMan Files Accessed Via FileMan Db Call

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