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

Package: Oncology

Routine: ONCOPA1


Information

ONCOPA1 ;HINES OIFO/GWB - [PA Print Complete Abstract (132c)] ;09/22/11

Source Information

Source file <ONCOPA1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Print
CI ;Cancer Identification
PA1A
EXIT ;KILL variables
P ;Enter RETURN to continue
FORMAT ;
TASK ;Report Queued
HDR ;Header
MULT ;Entry point for option ABS...MA...3).
CLEANUP ;Cleanup

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ONCOPA1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,TITLE
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !!?21,$E(ONCAB(165.5,IEN,.03),1,26)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: " ACOS #: ",ONCAB(165.5,IEN,67)
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: ?76,"Print Date: ",PRTDATE
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !," Patient Name: ",ONCAB(165.5,IEN,.02),?76,"SSN: ",ONCAB(160,PTIEN,2)
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: !," Home Address: ",ONCAB(160,PTIEN,.119)
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: !," ",ONCAB(160,PTIEN,.118)
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: !," County: ",ONCAB(160,PTIEN,.12)
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: !," Sex: ",$E(ONCAB(160,PTIEN,10),1,14),?44,"Race: ",$E(ONCAB(160,PTIEN,8),1,21),?76,"Ethnicity: ",ONCAB(160,PTIEN,9)
  • Line Location: PRINT+51
Function Call: WRITE
  • Prompt: !," Date of Birth: ",DOB
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: ?38," Age at DX: ",ONCAB(165.5,IEN,4)
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !!,TITLE
  • Line Location: CI+2
Function Call: WRITE
  • Prompt: !!," Accession Number: ",ONCAB(165.5,IEN,.05),?38,"Accession Year: ",ONCAB(165.5,IEN,.07),?76,"Sequence Number: ",ONCAB(165.5,IEN,.06)
  • Line Location: CI+5
Function Call: WRITE
  • Prompt: !," Date Dx: ",ONCAB(165.5,IEN,3)
  • Line Location: CI+6
Function Call: WRITE
  • Prompt: !," Dx Facility: ",ONCAB(165.5,IEN,5)
  • Line Location: CI+10
Function Call: WRITE
  • Prompt: !," Date of First Contact: ",ONCAB(165.5,IEN,155)
  • Line Location: CI+11
Function Call: WRITE
  • Prompt: !," Class of Case: ",ONCAB(165.5,IEN,.04)
  • Line Location: CI+14
Function Call: WRITE
  • Prompt: !," Date of First Symptoms: ",ONCAB(165.5,IEN,171)
  • Line Location: CI+15
Function Call: WRITE
  • Prompt: !," Date Start Workup Ordered: ",ONCAB(165.5,IEN,172)
  • Line Location: CI+16
Function Call: WRITE
  • Prompt: !," Date Workup Started: ",ONCAB(165.5,IEN,173)
  • Line Location: CI+17
Function Call: WRITE
  • Prompt: !," Type of Reporting Source: ",ONCAB(165.5,IEN,1.2)
  • Line Location: CI+18
Function Call: WRITE
  • Prompt: !," Site/Gp: ",ONCAB(165.5,IEN,.01)
  • Line Location: CI+19
Function Call: WRITE
  • Prompt: !," Primary Site Code: ",ONCAB(165.5,IEN,20.1)," "
  • Line Location: CI+20
Function Call: WRITE
  • Prompt: $P(^ONCO(164,TOP,0),U,1)
  • Line Location: CI+21
Function Call: WRITE
  • Prompt: !," Text-Primary Site Title: ",ONCAB(165.5,IEN,100)
  • Line Location: CI+22
Function Call: WRITE
  • Prompt: !," Laterality: ",ONCAB(165.5,IEN,28)
  • Line Location: CI+27
Function Call: WRITE
  • Prompt: !," Histology: ",$G(HIST)," ",ONCAB(165.5,IEN,HSTFLD)
  • Line Location: CI+29
Function Call: WRITE
  • Prompt: !," Text-Histology Title: ",ONCAB(165.5,IEN,101)
  • Line Location: CI+30
Function Call: WRITE
  • Prompt: !," Grade/Differentiation: ",ONCAB(165.5,IEN,24)," "
  • Line Location: CI+37
Function Call: WRITE
  • Prompt: $P(^ONCO(164.43,GR,0),U,2)
  • Line Location: CI+38
Function Call: WRITE
  • Prompt: !," AFIP/JPC Submission: ",ONCAB(165.5,IEN,83)
  • Line Location: CI+47
Function Call: WRITE
  • Prompt: !," Diagnostic Confirmation: ",ONCAB(165.5,IEN,26)
  • Line Location: CI+48
Function Call: WRITE
  • Prompt: !?(27-LEN),TM1,": ",ONCAB(165.5,IEN,25.1)
  • Line Location: CI+57
Function Call: WRITE
  • Prompt: !?(27-LEN),TM2,": ",ONCAB(165.5,IEN,25.2)
  • Line Location: CI+58
Function Call: WRITE
  • Prompt: !?(27-LEN),TM3,": ",ONCAB(165.5,IEN,25.3)
  • Line Location: CI+59
Function Call: WRITE
  • Prompt: !," Facility Referred From: ",ONCAB(165.5,IEN,6)
  • Line Location: CI+60
Function Call: WRITE
  • Prompt: !," Facility Referred To: ",ONCAB(165.5,IEN,7)
  • Line Location: CI+61
Function Call: WRITE
  • Prompt: !," Fee Basis: ",ONCAB(165.5,IEN,237,"E")
  • Line Location: CI+62
Function Call: WRITE
  • Prompt: !," Fee Basis Location: ",ONCAB(165.5,IEN,237.1,"E")
  • Line Location: CI+63
Function Call: WRITE
  • Prompt: !,"Presentation at Cancer Conf: ",ONCAB(165.5,IEN,120)
  • Line Location: CI+64
Function Call: WRITE
  • Prompt: !," Date of Cancer Conference: ",ONCAB(165.5,IEN,121)
  • Line Location: CI+65
Function Call: WRITE
  • Prompt: !," Casefinding Source: ",ONCAB(165.5,IEN,21,"E")
  • Line Location: CI+66
Function Call: WRITE
  • Prompt: !
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,"Report Queued",!
  • Line Location: TASK+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: CRA,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
  • Line Location: HDR+3

FileMan Files Accessed Via FileMan Db Call

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