Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 7 DD^%DT  C^%DTC  FILE^DICN  ^DIE  EN1^DIP  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Oncology 3 $$DIV^ONCFUNC  SER^ONCOCFP  (FD10,L10)^ONCOCFP1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Oncology 2 ONCO SUSPENSE-CASEFIND (PTF)  ONCOCFP  

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

External References

Name Field # of Occurrence
DD^%DT SD+7, ED+8
C^%DTC N2+2, N2+3
^%ZIS ED+78
^%ZISC EX+7
^%ZTLOAD ED+81
FILE^DICN MR+2, N2+6
^DIE N2+10
EN1^DIP SER+17
$$GET1^DIQ IC+3, IC+4
^DIR SD+4, ED+3, ED+14
$$DIV^ONCFUNC CKP+1
SER^ONCOCFP ED+79
FD10^ONCOCFP1 FD+6
L10^ONCOCFP1 ED+75

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
Routine Call
  • DIE
  • Line Location:
    • N2+10
Routine Call
  • DIR
  • Line Location:
    • SD+4
    • ED+3
    • ED+14
Routine Call
  • %ZIS
  • Line Location:
    • ED+78

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ONCO(160 - [#160] Classic Fileman Calls
^ICD9 - [#80] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(160 N2+5
^DG(40.8 - [#40.8] DIV+7
^DGPM - [#405] DIV+5
^DGPM("APTF" DIV+4
^DGPT - [#45] SER+9, CK+4
^DGPT("ADS" SER+9
^DIC(4 - [#4] T+8
^DIC(42 - [#42] DIV+6
^ONCO(160 - [#160] CK+5, CK+6
^ONCO(160.1 - [#160.1] T+3, T+9, ED+7*, SER+2, SER+4
^ONCO(165.5 - [#165.5] CK+8, CKP+1, CKP+2, CKP+3
^TMP("ONCO" SER+5!, SER+8*, SER+10, WP+1, N2+11*, EX+6!

Label References

Name Line Occurrences
CK IC+7
DIV CK+3
ED ED+6
EX SD+5, ED+4, ED+15, ED+78, ED+79, ED+82, SER+3
FD IC+3, IC+4
IC SER+9
MR CK+5
N2 CK+8
SD SD+6
T ED+5, ED+16
WP SER+10

Naked Globals

Name Field # of Occurrence
^( SER+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EX+1!
%T EX+1!
%ZIS ED+78*, EX+1!
ADT CK+4*, CKP+2, N2+2, EX+1!
AFFDIV SER+2*, SER+4*, DIV+8, EX+1!
BY SER+13*, EX+1!
CD FD+5*, EX+1!
CI IC+2*, IC+3, IC+4, IC+6, FD*, FD+1*, FD+2*, FD+3*, FD+4*, FD+5*
EX+1!
CI10 IC+1!, IC+2*, IC+3, IC+4, IC+6, EX+2!
D0 SER+9*, CK+4, DIV+4, EX+1!
DA CK+8*, MR+3*, N2+8*, EX+1!
DA(1 N2+4*, N2+7*
DD N2+1~, EX+1!
DIC SER+12*, MR+2*, N2+4*, EX+1!
DIC("P" N2+5*
DIC(0 MR+2*, N2+5*
DIE N2+7!*, EX+1!
DIOEND SER+16*, EX+1!
DIR SD!, ED!, ED+10!, EX+1!
DIR("A" SD+2*, ED+2*, ED+12*
DIR("B" SD+3*, ED+13*
DIR(0 SD+1*, ED+1*, ED+11*
DO MR+2!, N2+5!, N2+6!, EX+1!
DR N2+9*, EX+1!
DT T+10, SD+6, ED+6
DUZ(2 T+3, T+8, SER+2, SER+14, CK+7, CKP+1
DVMTCH CK+3, DIV+3*, DIV+8*, EX+2!
ED ED+8*, ED+17, EX+2!
F IC+3*, IC+4*, EX+2!
FLDS SER+15*, EX+2!
FR SER+14*, EX+2!
GLO EX+2!
HT IC+1!, CKP+2*, CKP+3*, MR+1, EX+2!
IC IC+1!, EX+2!
IC10 FD+6*, CK+2, EX+2!
IC9 IC+1!, IC+3*, IC+4*, FDFD+1, FD+2, FD+3, FD+4, FD+5, FD+6
CK+2, EX+2!
ICD IC+1!, EX+2!
ICP IC+1!, IC+3*, IC+4*, EX+2!
INST DIV+3*, DIV+7*, DIV+8, EX+2!
IO("Q" ED+79
IOF ONCOCFP+5
ION SER+16
IOP SER+16*, EX+2!
L SER+16*, EX+2!
MCDV DIV+6*, DIV+7, EX+2!
NM EX+2!
O2 EX+2!
ONCDIVS CK+6*, CK+7, EX+3!
ONCDIVSP SER+2*, SER+3, SER+4, EX+3!
ONCIEN CK+5*, MR+3*, N2+4, N2+7, EX+3!
ONCO EX+3!
ONCO("ED" ED+17*, SER+7, SER+14
ONCO("SD" ED+17*, SER+6, SER+14, N2+3
ONCS CK+6*, EX+3!
ONCSUB N2+8*, EX+3!
OSP T+3*, T+4, T+9, ED+7, EX+3!
P IC+2*, EX+3!
POP ED+78, EX+3!
PTFD0 DIV+2~, DIV+4*, EX+3!
PTFDT N2+1~, N2+8*, EX+3!
PTMV DIV+2~, DIV+4*, DIV+5, EX+3!
SBCIND EX+2!
SD SD+7*, ED+5, ED+17, EX+4!
SDDEF T+1~, T+9*, T+10*, T+11*, SD+3, EX+4!
SDT N2+2*, N2+5, EX+4!
TO SER+14*, EX+4!
U T+8, T+9, SD+5, ED+4, ED+7, ED+15, SER+4, IC+3, IC+4, CK+4
CK+6, CKP+2, CKP+3, N2+5, DIV+5, DIV+6, DIV+7
WED EX+4!
WL DIV+2~, DIV+5*, DIV+6
WSD N2+3*, N2+5, EX+4!
X SD+7*, ED+8*, CK+4*, CK+5, N2+2, N2+3, N2+5*, EX+4!
X1 N2+1~, N2+2*, N2+3*, EX+4!
X2 N2+1~, N2+2*, N2+3*, EX+4!
X70 SER+9*, IC+3, EX+4!
X71 SER+9*, IC+4, EX+4!
XD0 CK+5*, CK+6, CK+8, CKP+1, MR+3*, EX+4!
XD1 CKP+1*, CKP+2, CKP+3, EX+4!
XDT SER+6*, SER+9*, CKP+2, CKP+3, N2+8, EX+4!
XDX CKP+2*, CKP+3*, EX+4!
XED SER+7*, SER+9, EX+4!
Y SD+5, SD+6, SD+7, ED+4, ED+5, ED+6, ED+7, ED+8, ED+15, ED+16
MR+3, N2+8, EX+4!
Z SER+4*, EX+4!
ZTDESC ED+80*, EX+5!
ZTRTN ED+80*, EX+5!
ZTSAVE EX+5!
ZTSAVE("ONCO*" ED+80*
ZTSAVE("SBCIND" ED+80*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All