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

Package: Oncology

Routine: ONCOY54


Information

ONCOY54 ; GENERATED FROM 'ONCOY54' PRINT TEMPLATE (#812) ; 04/30/25 ; (FILE 165.5, MARGIN=80)

Source Information

Source file <ONCOY54.m>

Entry Points

Name Comments DBIA/ICR reference
N
T
DT
M
BEGIN ;
HEAD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: N+0
Function Call: WRITE
  • Prompt: $$OUT^DIALOGU(Y,"DD")
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: DT+2
Function Call: WRITE
  • Prompt: ?0
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: "* FIRST COURSE OF TREATMENT *"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: "Neoadjuvant Therapy...........:"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: ?35
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,245.1,Y),1,40)
  • Condition for execution: Y]""
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: "Neoadjuvant Therapy-Clin Resp.:"
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: ?35
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,245.2,Y),1,40)
  • Condition for execution: Y]""
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: "Neoadjuvant Therapy-TX Effect.:"
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: ?35,$E($P(X,U,7),1,40)
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: "Date 1st CRS RX COC...........:"
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: $E(X,1,10)
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: "Date of No Treatment..........:"
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+15
Function Call: WRITE
  • Prompt: "Date First Surgical Procedure.:"
  • Line Location: BEGIN+15
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+16
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+16
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+17
Function Call: WRITE
  • Prompt: "RX Summ--Surg Primsite 03-2022:"
  • Line Location: BEGIN+17
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+18
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+18
Function Call: WRITE
  • Prompt: ?45
  • Line Location: BEGIN+19
Function Call: WRITE
  • Prompt: $E(Y,1,34)
  • Line Location: BEGIN+19
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+20
Function Call: WRITE
  • Prompt: "RX Hosp--Surg Primsite 03-2022:"
  • Line Location: BEGIN+20
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+21
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+21
Function Call: WRITE
  • Prompt: ?45
  • Line Location: BEGIN+22
Function Call: WRITE
  • Prompt: $E(Y,1,34)
  • Line Location: BEGIN+22
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+23
Function Call: WRITE
  • Prompt: "RX Summ--Surg Prim Site 2023..:"
  • Line Location: BEGIN+23
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+24
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+24
Function Call: WRITE
  • Prompt: ?45,$E($P(X,U,9),1,34)
  • Line Location: BEGIN+25
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+26
Function Call: WRITE
  • Prompt: "RX Hosp--Surg Prim Site 2023..:"
  • Line Location: BEGIN+26
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+27
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+27
Function Call: WRITE
  • Prompt: ?45,$E($P(X,U,8),1,34)
  • Line Location: BEGIN+28
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+29
Function Call: WRITE
  • Prompt: "Surgical Margins..............:"
  • Line Location: BEGIN+29
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+30
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,59,Y),1,26)
  • Condition for execution: Y]""
  • Line Location: BEGIN+30
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+31
Function Call: WRITE
  • Prompt: "Scope of LN Surgery...........:"
  • Line Location: BEGIN+31
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+32
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+32
Function Call: WRITE
  • Prompt: ?45
  • Line Location: BEGIN+33
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,138.4,Y),1,34)
  • Condition for execution: Y]""
  • Line Location: BEGIN+33
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+34
Function Call: WRITE
  • Prompt: "Scope of LN Surgery @Fac......:"
  • Line Location: BEGIN+34
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+35
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+35
Function Call: WRITE
  • Prompt: ?45
  • Line Location: BEGIN+36
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,138.5,Y),1,34)
  • Condition for execution: Y]""
  • Line Location: BEGIN+36
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+37
Function Call: WRITE
  • Prompt: "Surg Proc/Other Site..........:"
  • Line Location: BEGIN+37
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+38
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+38
Function Call: WRITE
  • Prompt: ?45
  • Line Location: BEGIN+39
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,139.4,Y),1,34)
  • Condition for execution: Y]""
  • Line Location: BEGIN+39
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+40
Function Call: WRITE
  • Prompt: "Surg Proc/Other Site @Fac.....:"
  • Line Location: BEGIN+40
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+41
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+41
Function Call: WRITE
  • Prompt: ?45
  • Line Location: BEGIN+42
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,139.5,Y),1,34)
  • Condition for execution: Y]""
  • Line Location: BEGIN+42
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+43
Function Call: WRITE
  • Prompt: "Reason No Surgery of Primary..:"
  • Line Location: BEGIN+43
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+44
Function Call: WRITE
  • Prompt: X
  • Line Location: BEGIN+44
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+45
Function Call: WRITE
  • Prompt: "Radiation.....................:"
  • Line Location: BEGIN+45
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+46
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+46
Function Call: WRITE
  • Prompt: ?45
  • Line Location: BEGIN+47
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,51.2,Y),1,32)
  • Condition for execution: Y]""
  • Line Location: BEGIN+47
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+48
Function Call: WRITE
  • Prompt: "Phase I rad treatment volume..:"
  • Line Location: BEGIN+48
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+49
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+49
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+50
Function Call: WRITE
  • Prompt: "Phase I rad to draining LN....:"
  • Line Location: BEGIN+50
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+51
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+51
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+52
Function Call: WRITE
  • Prompt: "Phase I treatment modality....:"
  • Line Location: BEGIN+52
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+53
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+53
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+54
Function Call: WRITE
  • Prompt: "Phase I external beam planning:"
  • Line Location: BEGIN+54
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+55
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+55
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+56
Function Call: WRITE
  • Prompt: "Phase I dose per fraction.....:"
  • Line Location: BEGIN+56
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,1),1,5)
  • Line Location: BEGIN+57
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+58
Function Call: WRITE
  • Prompt: "Phase I number of fractions...:"
  • Line Location: BEGIN+58
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,3),1,3)
  • Line Location: BEGIN+59
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+60
Function Call: WRITE
  • Prompt: "Phase I total dose............:"
  • Line Location: BEGIN+60
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,7),1,6)
  • Line Location: BEGIN+61
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+62
Function Call: WRITE
  • Prompt: "Phase II rad treatment volume.:"
  • Line Location: BEGIN+62
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+63
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+63
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+64
Function Call: WRITE
  • Prompt: "Phase II rad to draining LN...:"
  • Line Location: BEGIN+64
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+65
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+65
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+66
Function Call: WRITE
  • Prompt: "Phase II treatment modality...:"
  • Line Location: BEGIN+66
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+67
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+67
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+68
Function Call: WRITE
  • Prompt: "Phase II ext beam planning....:"
  • Line Location: BEGIN+68
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+69
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+69
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+70
Function Call: WRITE
  • Prompt: "Phase II dose per fraction....:"
  • Line Location: BEGIN+70
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,8),1,5)
  • Line Location: BEGIN+71
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+72
Function Call: WRITE
  • Prompt: "Phase II number of fractions..:"
  • Line Location: BEGIN+72
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,10),1,3)
  • Line Location: BEGIN+73
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+74
Function Call: WRITE
  • Prompt: "Phase II total dose...........:"
  • Line Location: BEGIN+74
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,14),1,6)
  • Line Location: BEGIN+75
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+76
Function Call: WRITE
  • Prompt: "Phase III rad treatment volume:"
  • Line Location: BEGIN+76
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+77
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+77
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+78
Function Call: WRITE
  • Prompt: "Phase III rad to draining LN..:"
  • Line Location: BEGIN+78
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+79
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+79
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+80
Function Call: WRITE
  • Prompt: "Phase III treatment modality..:"
  • Line Location: BEGIN+80
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+81
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+81
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+82
Function Call: WRITE
  • Prompt: "Phase III rad ext beam plan...:"
  • Line Location: BEGIN+82
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+83
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+83
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+84
Function Call: WRITE
  • Prompt: "Phase III dose per fraction...:"
  • Line Location: BEGIN+84
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,15),1,5)
  • Line Location: BEGIN+85
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+86
Function Call: WRITE
  • Prompt: "Phase III number of fraction..:"
  • Line Location: BEGIN+86
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,17),1,3)
  • Line Location: BEGIN+87
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+88
Function Call: WRITE
  • Prompt: "Phase III total dose..........:"
  • Line Location: BEGIN+88
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,21),1,6)
  • Line Location: BEGIN+89
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+90
Function Call: WRITE
  • Prompt: "Number of phases rad TX.......:"
  • Line Location: BEGIN+90
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+91
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,7024,Y),1,24)
  • Condition for execution: Y]""
  • Line Location: BEGIN+91
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+92
Function Call: WRITE
  • Prompt: "Rad TX discontinued early.....:"
  • Line Location: BEGIN+92
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+93
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,7025,Y),1,23)
  • Condition for execution: Y]""
  • Line Location: BEGIN+93
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+94
Function Call: WRITE
  • Prompt: "Total dose....................:"
  • Line Location: BEGIN+94
Function Call: WRITE
  • Prompt: ?34,$E($P(X,U,3),1,6)
  • Line Location: BEGIN+95
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+96
Function Call: WRITE
  • Prompt: "Radiation @Fac................:"
  • Line Location: BEGIN+96
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+97
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+97
Function Call: WRITE
  • Prompt: ?45
  • Line Location: BEGIN+98
Function Call: WRITE
  • Prompt: $E($$SET^DIQ(165.5,51.4,Y),1,34)
  • Condition for execution: Y]""
  • Line Location: BEGIN+98
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+99
Function Call: WRITE
  • Prompt: "Radiation/Surgery Sequence....:"
  • Line Location: BEGIN+99
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+100
Function Call: WRITE
  • Prompt: X
  • Line Location: BEGIN+100
Function Call: WRITE
  • Prompt: ?2
  • Line Location: BEGIN+101
Function Call: WRITE
  • Prompt: "Radiation End Date............:"
  • Line Location: BEGIN+101
Function Call: WRITE
  • Prompt: ?34
  • Line Location: BEGIN+102
Function Call: WRITE
  • Prompt: $E(Y,1,30)
  • Line Location: BEGIN+102
Function Call: WRITE
  • Prompt: !,"--------------------------------------------------------------------------------",!!
  • Line Location: HEAD+1

FileMan Files Accessed Via FileMan Db Call

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