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
Print Page as PDF
Routine: ONCOPA3

Package: Oncology

Routine: ONCOPA3


Information

ONCOPA3 ;HINES OIFO/GWB - [PA Print Complete Abstract (132c)] continued ;10/07/11

Source Information

Source file <ONCOPA3.m>

Entry Points

Name Comments DBIA/ICR reference
PA3A
P ;
HDR ; Header
CLEANUP ;Cleanup

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,TITLE
  • Line Location: ONCOPA3+5
Function Call: WRITE
  • Prompt: !!?10," Address at Dx: ",ONCAB(165.5,IEN,8)
  • Line Location: ONCOPA3+6
Function Call: WRITE
  • Prompt: !?10," Address at Dx - Supp: ",ONCAB(165.5,IEN,8.2)
  • Line Location: ONCOPA3+7
Function Call: WRITE
  • Prompt: !?10," City/Town at Dx: ",ONCAB(165.5,IEN,8.1),?70," Place of Birth: ",ONCAB(160,PTIEN,7)
  • Line Location: ONCOPA3+8
Function Call: WRITE
  • Prompt: !?10," State at Dx: ",ONCAB(165.5,IEN,16),?70," Religion: ",$E(ONCAB(160,PTIEN,13),1,14)
  • Line Location: ONCOPA3+9
Function Call: WRITE
  • Prompt: !?10," Postal Code at Dx: ",ONCAB(165.5,IEN,9),?69,"Marital Status at Dx: ",ONCAB(165.5,IEN,11)
  • Line Location: ONCOPA3+10
Function Call: WRITE
  • Prompt: !?10," County at Dx: ",ONCAB(165.5,IEN,10),?70,"Primary Payer at Dx: ",ONCAB(165.5,IEN,18)
  • Line Location: ONCOPA3+11
Function Call: WRITE
  • Prompt: !?10," Telephone: ",ONCAB(160,PTIEN,.131)
  • Line Location: ONCOPA3+12
Function Call: WRITE
  • Prompt: ?70," Next of Kin: ",NOK
  • Line Location: ONCOPA3+16
Function Call: WRITE
  • Prompt: !?10," Abstract Status: ",ONCAB(165.5,IEN,91)
  • Line Location: ONCOPA3+17
Function Call: WRITE
  • Prompt: !?10," Date of First Contact: ",ONCAB(165.5,IEN,155)
  • Line Location: ONCOPA3+18
Function Call: WRITE
  • Prompt: !?10," Date Case Completed: ",ONCAB(165.5,IEN,90)
  • Line Location: ONCOPA3+19
Function Call: WRITE
  • Prompt: !?8,"Elapsed Months to Completion: ",ONCAB(165.5,IEN,157.1,"E")
  • Line Location: ONCOPA3+20
Function Call: WRITE
  • Prompt: !?10," Abstracted by: ",ONCAB(165.5,IEN,92)
  • Line Location: ONCOPA3+21
Function Call: WRITE
  • Prompt: !
  • Line Location: ONCOPA3+22
Function Call: WRITE
  • Prompt: !?1," Other Cancer: ",ONCAB(165.5,IEN,148,"E")
  • Line Location: ONCOPA3+23
Function Call: WRITE
  • Prompt: !?1," Cancer #1: ",ONCAB(165.5,IEN,148.1,"E")
  • Line Location: ONCOPA3+24
Function Call: WRITE
  • Prompt: !?1," Cancer #2: ",ONCAB(165.5,IEN,148.2,"E")
  • Line Location: ONCOPA3+25
Function Call: WRITE
  • Prompt: !?1," Cancer #3: ",ONCAB(165.5,IEN,148.3,"E")
  • Line Location: ONCOPA3+26
Function Call: WRITE
  • Prompt: !?1," Cancer #4: ",ONCAB(165.5,IEN,148.4,"E")
  • Line Location: ONCOPA3+27
Function Call: WRITE
  • Prompt: !!?7,"Exposure Agent Orange: ",ONCAB(160,PTIEN,48)
  • Line Location: ONCOPA3+28
Function Call: WRITE
  • Prompt: !?1,"Exposure Ionizing Radiation: ",ONCAB(160,PTIEN,50)
  • Line Location: ONCOPA3+29
Function Call: WRITE
  • Prompt: !?1," Exposure Chemical: ",ONCAB(160,PTIEN,52)
  • Line Location: ONCOPA3+30
Function Call: WRITE
  • Prompt: !?1," Exposure Asbestos: ",ONCAB(160,PTIEN,61)
  • Line Location: ONCOPA3+31
Function Call: WRITE
  • Prompt: !?1," Exposure Burn Pit: ",ONCAB(160,PTIEN,72)
  • Line Location: ONCOPA3+32
Function Call: WRITE
  • Prompt: !?1," Exposure Other Toxic: ",ONCAB(160,PTIEN,73)
  • Line Location: ONCOPA3+33
Function Call: WRITE
  • Prompt: !?1," Vietnam Service: ",ONCAB(160,PTIEN,62)
  • Line Location: ONCOPA3+34
Function Call: WRITE
  • Prompt: !?1," Lebanon Service: ",ONCAB(160,PTIEN,55)
  • Line Location: ONCOPA3+35
Function Call: WRITE
  • Prompt: !?1," Grenada Service: ",ONCAB(160,PTIEN,63)
  • Line Location: ONCOPA3+36
Function Call: WRITE
  • Prompt: !?1," Panama Service: ",ONCAB(160,PTIEN,64)
  • Line Location: ONCOPA3+37
Function Call: WRITE
  • Prompt: !?1," Persian Gulf Service: ",ONCAB(160,PTIEN,51)
  • Line Location: ONCOPA3+38
Function Call: WRITE
  • Prompt: !?1," Somalia Service: ",ONCAB(160,PTIEN,56)
  • Line Location: ONCOPA3+39
Function Call: WRITE
  • Prompt: !?1," Yugoslavia Service: ",ONCAB(160,PTIEN,65)
  • Line Location: ONCOPA3+40
Function Call: WRITE
  • Prompt: !?1," Afghanistan (OEF) Service: ",ONCAB(160,PTIEN,67)
  • Line Location: ONCOPA3+41
Function Call: WRITE
  • Prompt: !?1," Iraq (OIF) Service: ",ONCAB(160,PTIEN,66)
  • Line Location: ONCOPA3+42
Function Call: WRITE
  • Prompt: !?1," Branch of Service: ",ONCAB(160,PTIEN,68)
  • Line Location: ONCOPA3+43
Function Call: WRITE
  • Prompt: !!?1," Source Comorbidity: ",ONCAB(160,PTIEN,1006)
  • Line Location: ONCOPA3+44
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 1: ",ONCAB(160,PTIEN,25)
  • Line Location: ONCOPA3+45
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 2: ",ONCAB(160,PTIEN,25.1)
  • Line Location: ONCOPA3+46
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 3: ",ONCAB(160,PTIEN,25.2)
  • Line Location: ONCOPA3+47
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 4: ",ONCAB(160,PTIEN,25.3)
  • Line Location: ONCOPA3+48
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 5: ",ONCAB(160,PTIEN,25.4)
  • Line Location: ONCOPA3+49
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 6: ",ONCAB(160,PTIEN,25.5)
  • Line Location: ONCOPA3+50
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 7: ",ONCAB(160,PTIEN,25.6)
  • Line Location: ONCOPA3+51
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 8: ",ONCAB(160,PTIEN,25.7)
  • Line Location: ONCOPA3+52
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 9: ",ONCAB(160,PTIEN,25.8)
  • Line Location: ONCOPA3+53
Function Call: WRITE
  • Prompt: !?1,"Comorbidity/Complication 10: ",ONCAB(160,PTIEN,25.9)
  • Line Location: ONCOPA3+54
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #1: ",ONCAB(160,PTIEN,25.91)
  • Line Location: ONCOPA3+55
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #2: ",ONCAB(160,PTIEN,25.92)
  • Line Location: ONCOPA3+56
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #3: ",ONCAB(160,PTIEN,25.93)
  • Line Location: ONCOPA3+57
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #4: ",ONCAB(160,PTIEN,25.94)
  • Line Location: ONCOPA3+58
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #5: ",ONCAB(160,PTIEN,25.95)
  • Line Location: ONCOPA3+59
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #6: ",ONCAB(160,PTIEN,25.96)
  • Line Location: ONCOPA3+60
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #7: ",ONCAB(160,PTIEN,25.97)
  • Line Location: ONCOPA3+61
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #8: ",ONCAB(160,PTIEN,25.98)
  • Line Location: ONCOPA3+62
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #9: ",ONCAB(160,PTIEN,25.99)
  • Line Location: ONCOPA3+63
Function Call: WRITE
  • Prompt: !?1," Secondary Diagnosis #10: ",ONCAB(160,PTIEN,25.9901)
  • Line Location: ONCOPA3+64
Function Call: WRITE
  • Prompt: !!,TITLE,!
  • Line Location: ONCOPA3+66
Function Call: WRITE
  • Prompt: !,TITLE
  • Line Location: ONCOPA3+73
Function Call: WRITE
  • Prompt: !!?15," TOBACCO HISTORY: ",ONCAB(160,PTIEN,38)
  • Line Location: ONCOPA3+74
Function Call: WRITE
  • Prompt: "UNK"
  • Condition for execution: Y="U"
  • Line Location: ONCOPA3+79
Function Call: WRITE
  • Prompt: Y
  • Line Location: ONCOPA3+79
Function Call: WRITE
  • Prompt: !!?15," ALCOHOL HISTORY: ",ONCAB(160,PTIEN,39)
  • Line Location: ONCOPA3+81
Function Call: WRITE
  • Prompt: "UNK"
  • Condition for execution: Y="U"
  • Line Location: ONCOPA3+87
Function Call: WRITE
  • Prompt: Y
  • Line Location: ONCOPA3+87
Function Call: WRITE
  • Prompt: !!,TITLE,!
  • Line Location: ONCOPA3+90
Function Call: WRITE
  • Prompt: !!,TITLE
  • Line Location: ONCOPA3+96
Function Call: WRITE
  • Prompt: !," Following Physician: ",ONCAB(165.5,IEN,2.1)
  • Line Location: ONCOPA3+99
Function Call: WRITE
  • Prompt: !," Primary Surgeon: ",ONCAB(165.5,IEN,2)
  • Line Location: ONCOPA3+100
Function Call: WRITE
  • Prompt: !," Physician #3: ",ONCAB(165.5,IEN,2.3)
  • Line Location: ONCOPA3+101
Function Call: WRITE
  • Prompt: !," Physician #4: ",ONCAB(165.5,IEN,2.4)
  • Line Location: ONCOPA3+102
Function Call: WRITE
  • Prompt: !!," QA Selected: ",ONCAB(165.5,IEN,62)
  • Line Location: ONCOPA3+103
Function Call: WRITE
  • Prompt: ?25," QA Reviewer: ",ONCAB(165.5,IEN,64.1)
  • Line Location: ONCOPA3+104
Function Call: WRITE
  • Prompt: ?75," QA Date: ",ONCAB(165.5,IEN,64)
  • Line Location: ONCOPA3+105
Function Call: WRITE
  • Prompt: ?100," QA Review: ",ONCAB(165.5,IEN,63)
  • Line Location: ONCOPA3+106
Function Call: WRITE
  • Prompt: !?6,^ONCO(165.5,IEN,28,TX,0)
  • Line Location: ONCOPA3+107
Function Call: WRITE
  • Prompt: !
  • Line Location: P+1
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
Info |  Source |  Entry Points |  Interaction Calls