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

Package: Oncology

Routine: ONCOPA3A


Information

ONCOPA3A ;Hines OIFO/RTK - [PA Print Complete Abstract (132c) ;03/11/11

Source Information

Source file <ONCOPA3A.m>

Entry Points

Name Comments DBIA/ICR reference
FH ; Do the Follow-Up History display (#160,#400 multiple "F" node)
P ;
HDR ; Header
CLEANUP ;Cleanup

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,TITLE,!
  • Line Location: ONCOPA3A+4
Function Call: WRITE
  • Prompt: !!," Date of Last Contact: ",ONCAB(165.5,IEN,200)
  • Line Location: ONCOPA3A+6
Function Call: WRITE
  • Prompt: ?50," Last Tumor Status: ",ONCAB(165.5,IEN,95)
  • Line Location: ONCOPA3A+7
Function Call: WRITE
  • Prompt: !!," Date of Death: ",ONCAB(160,PTIEN,29)
  • Line Location: ONCOPA3A+8
Function Call: WRITE
  • Prompt: !," Cause of Death/Cancer: ",ONCAB(160,PTIEN,18.9)
  • Line Location: ONCOPA3A+9
Function Call: WRITE
  • Prompt: $P(IC,U,4)
  • Line Location: ONCOPA3A+11
Function Call: WRITE
  • Prompt: !," Place of Death: ",ONCAB(160,PTIEN,21)
  • Line Location: ONCOPA3A+14
Function Call: WRITE
  • Prompt: !," Care Center at Death: ",ONCAB(160,PTIEN,24.5)
  • Line Location: ONCOPA3A+15
Function Call: WRITE
  • Prompt: !," Autopsy: ",ONCAB(160,PTIEN,22.9)
  • Line Location: ONCOPA3A+16
Function Call: WRITE
  • Prompt: !," Autopsy Date/Time: ",ONCAB(160,PTIEN,23)
  • Line Location: ONCOPA3A+17
Function Call: WRITE
  • Prompt: !," Autopsy No.: ",ONCAB(160,PTIEN,24)
  • Line Location: ONCOPA3A+18
Function Call: WRITE
  • Prompt: !?8,$G(^ONCO(160,PTIEN,4,PATH,0))
  • Line Location: ONCOPA3A+19
Function Call: WRITE
  • Prompt: $P($G(^ONCO(164.42,TSTAT,0)),U,1)
  • Line Location: ONCOPA3A+25
Function Call: WRITE
  • Prompt: $P($G(^ONCO(164.42,TSTAT,0)),U,1)
  • Line Location: ONCOPA3A+26
Function Call: WRITE
  • Prompt: !
  • Line Location: ONCOPA3A+28
Function Call: WRITE
  • Prompt: $P($G(^ONCO(164.42,TSTAT,0)),U,1)
  • Line Location: FH+12
Function Call: WRITE
  • Prompt: $E(TSDLC,4,5)_"/"_$E(TSDLC,6,7)_"/"_($E(TSDLC,1,3)+1700)
  • Line Location: FH+13
Function Call: WRITE
  • Prompt: Y
  • Line Location: FH+17
Function Call: WRITE
  • Prompt: $S(VS=0:"Dead",VS=1:"Alive",1:"")
  • Line Location: FH+21
Function Call: WRITE
  • Prompt: $S(UF=0!(UF=1):"1st unusual method",UF=2:"2nd unusual method",1:"")
  • Line Location: FH+27
Function Call: WRITE
  • Prompt: $E(DTE,4,5)_"/"_$E(DTE,6,7)_"/"_($E(DTE,1,3)+1700)
  • Line Location: FH+29
Function Call: WRITE
  • Prompt: REG1
  • Line Location: FH+30
Function Call: WRITE
  • Prompt: $P($G(^ONCO(160.19,FR,0)),U,2)
  • Line Location: FH+32
Function Call: WRITE
  • Prompt: !?5,$G(^ONCO(160,PTIEN,"F",FHIEN,1,CMIEN,0))
  • Line Location: FH+36
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------------------------------------------------------"
  • Line Location: FH+39
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