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

Package: Oncology

Routine: ONCOCFP


Information

ONCOCFP ;HINES OIFO/GWB - [PT Automatic Casefinding-PTF Search] ;05/03/12

Source Information

Source file <ONCOCFP.m>

Entry Points

Name Comments DBIA/ICR reference
T ;Start Date/End Date
SD
ED
SER ;Search PTF file (#45) file
WP ;Wrap-up report
IC ;Search for ICD codes
FD
CK ;Check ONCOLOGY PATIENT (160) file
CKP ;Check ONCOLOGY PRIMARY (165.5) file
MR ;Create ONCOLOGY PATIENT (160) record
N2 ;Create SUSPENSE (160.075) record
DIV ;DIVISION match
EX ;KILL variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ONCOCFP+5
Function Call: WRITE
  • Prompt: !!!?10,"****************** PTF CASEFINDING ******************",!
  • Line Location: ONCOCFP+6
Function Call: WRITE
  • Prompt: !?10,"This option will search the PRINCIPLE DIAGNOSIS and"
  • Line Location: ONCOCFP+7
Function Call: WRITE
  • Prompt: !?10,"SECONDARY DIAGNOSIS fields of the PTF file for ICD"
  • Line Location: ONCOCFP+8
Function Call: WRITE
  • Prompt: !?10,"codes which identify cases to be added to the Suspense"
  • Line Location: ONCOCFP+9
Function Call: WRITE
  • Prompt: !?10,"list."
  • Line Location: ONCOCFP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: T+2
Function Call: WRITE
  • Prompt: " Future dates not allowed"
  • Line Location: SD+6
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: SD+7
Function Call: WRITE
  • Prompt: " Invalid date sequence"
  • Line Location: ED+5
Function Call: WRITE
  • Prompt: " Future dates not allowed"
  • Line Location: ED+6
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: ED+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+20
Function Call: WRITE
  • Prompt: !!?3,"The following ICD codes will be searched for:"
  • Line Location: ED+34
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+35
Function Call: WRITE
  • Prompt: !?3,"140-239 NEOPLASMS"
  • Line Location: ED+36
Function Call: WRITE
  • Prompt: !?3," (excluding benign neoplasms 210-229 unless listed below)"
  • Line Location: ED+37
Function Call: WRITE
  • Prompt: !?3,"042.2 HIV WITH SPECIFIED MALIGNANT NEOPLASMS"
  • Line Location: ED+38
Function Call: WRITE
  • Prompt: !?3,"225.0-225.9 BENIGN NEOPLASMS OF BRAIN AND OTHER PARTS OF NERVOUS SYSTEM"
  • Line Location: ED+39
Function Call: WRITE
  • Prompt: !?3,"227.3 BENIGN NEOPLASM OF PITUITARY GLAND AND CRANIOPHARYNGEAL DUCT"
  • Line Location: ED+40
Function Call: WRITE
  • Prompt: !?3,"227.4 BENIGN NEOPLASM OF PINEAL GLAND"
  • Line Location: ED+41
Function Call: WRITE
  • Prompt: !?3,"228.02 HEMANGIOMA INTRACRANIAL"
  • Line Location: ED+42
Function Call: WRITE
  • Prompt: !?3,"259.2 CARCINOID SYNDROME"
  • Line Location: ED+43
Function Call: WRITE
  • Prompt: !?3,"273.1-273.9 DISORDERS OF PLASMA PROTEIN METABOLISM"
  • Line Location: ED+44
Function Call: WRITE
  • Prompt: !?3,"284.9 ANAPLASTIC ANEMIA, UNSPECIFIED"
  • Line Location: ED+45
Function Call: WRITE
  • Prompt: !?3,"285.0 SIDEROBLASTIC ANEMIA"
  • Line Location: ED+46
Function Call: WRITE
  • Prompt: !?3,"288.3 EOSINOPHILIA"
  • Line Location: ED+47
Function Call: WRITE
  • Prompt: !?3,"288.4 HEMOPHAGOCYTIC SYNDROMES"
  • Line Location: ED+48
Function Call: WRITE
  • Prompt: !?3,"289.6 FAMILIAL POLYCYTHEMIA"
  • Line Location: ED+49
Function Call: WRITE
  • Prompt: !?3,"289.8 OTHER SPECIFIED DISEASES OF BLOOD AND BLOOD-FORMING ORGANS"
  • Line Location: ED+50
Function Call: WRITE
  • Prompt: !?3,"289.83 MYELOFIBROSIS"
  • Line Location: ED+51
Function Call: WRITE
  • Prompt: !?3,"795.06 PAPANICOLAOU SMEAR OF CERVIX WITH CYTOLOGIC EVIDENCE OF"
  • Line Location: ED+52
Function Call: WRITE
  • Prompt: !?3," MALIGNANCY"
  • Line Location: ED+53
Function Call: WRITE
  • Prompt: !?3,"795.16 PAP SMR VAG-CYTOL MALIG"
  • Line Location: ED+54
Function Call: WRITE
  • Prompt: !?3,"796.76 PAP SMR ANUS-CYTOL MALIG"
  • Line Location: ED+55
Function Call: WRITE
  • Prompt: !?3,"V07.3 NEED FOR OTHER PROPHYLACTIC CHEMOTHERAPY"
  • Line Location: ED+61
Function Call: WRITE
  • Prompt: !?3,"V07.8 NEED FOR OTHER SPECIFIED PROPHYLACTIC MEASURE"
  • Line Location: ED+62
Function Call: WRITE
  • Prompt: !?3,"V10.00-V10.09 GASTROINTESINAL TRACT"
  • Line Location: ED+63
Function Call: WRITE
  • Prompt: !?3,"V12.41 PERS HX BENIGN NEOPL OF BRAIN"
  • Line Location: ED+64
Function Call: WRITE
  • Prompt: !?3,"V58.0 ENCOUNTER FOR RADIOTHERAPY"
  • Line Location: ED+65
Function Call: WRITE
  • Prompt: !?3,"V58.1 ENCOUNTER FOR CHEMOTHERAPY"
  • Line Location: ED+66
Function Call: WRITE
  • Prompt: !?3,"V58.11 ANTINEOPLASTIC CHEMO ENC"
  • Line Location: ED+67
Function Call: WRITE
  • Prompt: !?3,"V58.12 IMMUNOTHERAPY ENCOUNTER"
  • Line Location: ED+68
Function Call: WRITE
  • Prompt: !?3,"V66.1-V66.2 CONVALESCENCE FOLLOWING RADIOTHERAPY/CHEMOTHERAPY"
  • Line Location: ED+69
Function Call: WRITE
  • Prompt: !?3,"V67.1-V67.2 FOLLOW-UP EXAMINATION FOLLOWING RADIOTHERAPY/CHEMOTHERAPY"
  • Line Location: ED+70
Function Call: WRITE
  • Prompt: !?3,"V71.1 OBSV-SUSPCT MAL NEOPLASM"
  • Line Location: ED+71
Function Call: WRITE
  • Prompt: !?3,"V76.0-V76.9 SPECIAL SCREENING FOR MALIGNANT NEOPLASMS"
  • Line Location: ED+72
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+73
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+76
Function Call: WRITE
  • Prompt: !!,"User does not have an associated DIVISION",!!
  • Line Location: SER+3
Function Call: WRITE
  • Prompt: !?3,$G(^TMP("ONCO",$J,0))_" PTF cases added to Suspense"
  • Line Location: WP+1

FileMan Files Accessed Via FileMan Db Call

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