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

Package: Oncology

Routine: ONCOCOC


Information

ONCOCOC ;Hines OIFO/GWB - COMPUTED FIELDS FOR CASEFINDING REPORTS ;05/25/00

Source Information

Source file <ONCOCOC.m>

Entry Points

Name Comments DBIA/ICR reference
LAB ;LAB CASEFINDING REPORT (160,53)
PTF ;PTF CASEFINDING REPORT (160,54)
RAD ;RADIOLOGY CASEFINDING REPORT (160,58)
GET ;Set variables
DT ;Format date
LST ;Display DATE LAST CONTACT (160,16) and primary list
EX ;Exit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $E(XNM,1,20),?22,$E(XSN,1,6),?29,XDT,?44,LRSS
  • Line Location: LAB+11
Function Call: WRITE
  • Prompt: ?54,X
  • Line Location: LAB+12
Function Call: WRITE
  • Prompt: !
  • Line Location: LAB+13
Function Call: WRITE
  • Prompt: "Topography:",?12,TO,!
  • Line Location: LAB+14
Function Call: WRITE
  • Prompt: !,"-------------------------------------------------------------------------------"
  • Line Location: LAB+18
Function Call: WRITE
  • Prompt: !
  • Line Location: LAB+19
Function Call: WRITE
  • Prompt: $E(XNM,1,20),?22,XSN,?29,XDT_" - "_XDD,!
  • Line Location: PTF+10
Function Call: WRITE
  • Prompt: "Diagnosis:",?11,$P(IC,U,2),?19,$P(IC,U,4),!!
  • Line Location: PTF+11
Function Call: WRITE
  • Prompt: $E(XNM,1,29),?31,XSN,?38,XDT,?50,$E(RAD,1,30)
  • Line Location: RAD+6
Function Call: WRITE
  • Prompt: !!?25,"Last Contact: ",X
  • Line Location: LST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call