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

Package: Oncology

Routine: ONCODLF


Information

ONCODLF ;Hines OIFO/GWB - DISPLAY FOLLOW-UP DATA, ALL/LATEST ;07/23/10

Source Information

Source file <ONCODLF.m>

Entry Points

Name Comments DBIA/ICR reference
LFS ;LAST FOLLOW-UP STATUS (from D0 #165.59 - computed primary
LST ;Display last FOLLOW-UP (160,400) data
LF
FHC ;'COMPUTED-FIELD' EXPRESSION for HISTORY-FOLLOWUP (160,46)
F
END
DEAD ;DEATH INFORMATION
FHP ;COMPUTED-FIELD' EXPRESSION for FOLLOW-UP HISTORY (165.5,150)
P
FIN
DAT ;Get Reference date
HD ;header for Follow-up History
WD
1
3
4
6
11
12
PC ;COMMENTS (160.45,.01)
C
DT
N
T
EX ;Kill and Exit
CLEANUP ;Cleanup

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "--------------------------------------------------------------------------------"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !?2,"Date of Last Contact or Death.:",?34,X(0)
  • Line Location: 12+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 12+2
Function Call: WRITE
  • Prompt: !?2,"Vital Status..................:",?34,X(1)
  • Line Location: 12+3
Function Call: WRITE
  • Prompt: !?2,"Follow-up Source..............:",?34,X(3)
  • Line Location: 12+4
Function Call: WRITE
  • Prompt: !?2,"Next Follow-up Source.........:",?34,X(6)
  • Line Location: 12+5
Function Call: WRITE
  • Prompt: !?2,"Registrar.....................:",?34,X(11)
  • Line Location: 12+6
Function Call: WRITE
  • Prompt: !?2,"Date entered..................:",?34,X(12)
  • Line Location: 12+7
Function Call: WRITE
  • Prompt: !?2,"Comments:"
  • Line Location: 12+8
Function Call: WRITE
  • Prompt: !?2,^ONCO(160,XD0,"F",XD1,1,X,0)
  • Line Location: PC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PC+3
Function Call: WRITE
  • Prompt: #
  • Line Location: C+4
Function Call: WRITE
  • Prompt: ?10,"*************** FOLLOWUP HISTORY ***************",!!
  • Line Location: C+6
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" "
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: $J(Y#100\1,2)_","
  • Condition for execution: Y#100
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: N+0
Info |  Source |  Entry Points |  Interaction Calls