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

Package: Oncology

Routine: ONCHPC8


Information

ONCHPC8 ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/12/00

Source Information

Source file <ONCHPC8.m>

Entry Points

Name Comments DBIA/ICR reference
PRT
I
II
III
KILL ;
P ;Print
TASK ;Queue a task

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ONCHPC8+3
Function Call: WRITE
  • Prompt: !?4,TABLE,!?4,LINE
  • Line Location: I+3
Function Call: WRITE
  • Prompt: !," 1. FACILITY ID NUMBER (FIN)....: ",$$IIN^ONCFUNC
  • Line Location: I+5
Function Call: WRITE
  • Prompt: !," 2. ACCESSION NUMBER............: ",$$GET1^DIQ(165.5,IE,.05)
  • Line Location: I+7
Function Call: WRITE
  • Prompt: !," 3. SEQUENCE NUMBER.............: ",$$GET1^DIQ(165.5,IE,.06)
  • Line Location: I+9
Function Call: WRITE
  • Prompt: !," 4. POSTAL CODE AT DIAGNOIS.....: ",$$GET1^DIQ(165.5,IE,9)
  • Line Location: I+11
Function Call: WRITE
  • Prompt: !," 5. PLACE OF BIRTH..............: ",$$GET1^DIQ(160,ONCOPA,7)
  • Line Location: I+13
Function Call: WRITE
  • Prompt: !," 6. DATE OF BIRTH...............: ",DOB
  • Line Location: I+15
Function Call: WRITE
  • Prompt: !," 7. RACE........................: ",$$GET1^DIQ(165.5,IE,.12)
  • Line Location: I+17
Function Call: WRITE
  • Prompt: !," 8. SPANISH ORIGIN..............: ",$$GET1^DIQ(160,ONCOPA,9)
  • Line Location: I+19
Function Call: WRITE
  • Prompt: !," 9. SEX.........................: ",$$GET1^DIQ(160,ONCOPA,10)
  • Line Location: I+21
Function Call: WRITE
  • Prompt: !,"10. PRIMARY PAYER AT DIAGNOSIS..: ",$$GET1^DIQ(165.5,IE,18)
  • Line Location: I+23
Function Call: WRITE
  • Prompt: !?4,TABLE,!?4,LINE
  • Line Location: II+3
Function Call: WRITE
  • Prompt: !,"11. CLASS OF CASE...............: ",$$GET1^DIQ(165.5,IE,.04)
  • Line Location: II+5
Function Call: WRITE
  • Prompt: !
  • Line Location: II+7
Function Call: WRITE
  • Prompt: !,"12. HORMONES:"
  • Line Location: II+9
Function Call: WRITE
  • Prompt: !," ORAL CONTRACEPTIVES........: ",$$GET1^DIQ(165.5,IE,1000)
  • Line Location: II+11
Function Call: WRITE
  • Prompt: !," ESTROGEN REPLACEMENT.......: ",$$GET1^DIQ(165.5,IE,1001)
  • Line Location: II+13
Function Call: WRITE
  • Prompt: !," TAMOXIFEN..................: ",$$GET1^DIQ(165.5,IE,1002)
  • Line Location: II+15
Function Call: WRITE
  • Prompt: !," OTHER......................: ",$$GET1^DIQ(165.5,IE,1003)
  • Line Location: II+17
Function Call: WRITE
  • Prompt: !
  • Line Location: II+19
Function Call: WRITE
  • Prompt: !,"13. CONDITIONS PRESENT AT INITIAL DIAGNOSIS:"
  • Line Location: II+21
Function Call: WRITE
  • Prompt: !," ASCITES....................: ",$$GET1^DIQ(165.5,IE,1004)
  • Line Location: II+23
Function Call: WRITE
  • Prompt: !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1005)
  • Line Location: II+25
Function Call: WRITE
  • Prompt: !," CHILD'S CLASS A............: ",$$GET1^DIQ(165.5,IE,1006)
  • Line Location: II+27
Function Call: WRITE
  • Prompt: !," CHILD'S CLASS B............: ",$$GET1^DIQ(165.5,IE,1007)
  • Line Location: II+29
Function Call: WRITE
  • Prompt: !," CHILD'S CLASS C............: ",$$GET1^DIQ(165.5,IE,1008)
  • Line Location: II+31
Function Call: WRITE
  • Prompt: !," HEPATITIS B................: ",$$GET1^DIQ(165.5,IE,1009)
  • Line Location: II+33
Function Call: WRITE
  • Prompt: !," HEPATITIS C................: ",$$GET1^DIQ(165.5,IE,1010)
  • Line Location: II+35
Function Call: WRITE
  • Prompt: !," HEMOCHROMATOSIS............: ",$$GET1^DIQ(165.5,IE,1011)
  • Line Location: II+37
Function Call: WRITE
  • Prompt: !
  • Line Location: II+39
Function Call: WRITE
  • Prompt: !,"14. ALCOHOL CONSUMPTION.........: ",$$GET1^DIQ(165.5,IE,1012)
  • Line Location: II+41
Function Call: WRITE
  • Prompt: !
  • Line Location: II+43
Function Call: WRITE
  • Prompt: !,"15. TUMOR MARKERS:"
  • Line Location: II+45
Function Call: WRITE
  • Prompt: !," AFP (IU/ml)................: ",$$GET1^DIQ(165.5,IE,1013)
  • Line Location: II+47
Function Call: WRITE
  • Prompt: !," CEA (mg/ml)................: ",$$GET1^DIQ(165.5,IE,1014)
  • Line Location: II+49
Function Call: WRITE
  • Prompt: !," CA 19.9 (U/ml).............: ",$$GET1^DIQ(165.5,IE,1015)
  • Line Location: II+51
Function Call: WRITE
  • Prompt: !
  • Line Location: II+53
Function Call: WRITE
  • Prompt: !,"16. TESTS RELATED TO LIVER FUNCTION:"
  • Line Location: II+55
Function Call: WRITE
  • Prompt: !," PROTIME (sec)..............: ",$$GET1^DIQ(165.5,IE,1016)
  • Line Location: II+57
Function Call: WRITE
  • Prompt: !," BILIRUBIN (mg/ml)..........: ",$$GET1^DIQ(165.5,IE,1017)
  • Line Location: II+59
Function Call: WRITE
  • Prompt: !," ALBUMIN (g/dl).............: ",$$GET1^DIQ(165.5,IE,1018)
  • Line Location: II+61
Function Call: WRITE
  • Prompt: !," LDH (U/l)..................: ",$$GET1^DIQ(165.5,IE,1019)
  • Line Location: II+63
Function Call: WRITE
  • Prompt: !
  • Line Location: II+65
Function Call: WRITE
  • Prompt: !,"17. RADIOLOGICAL EVALUATION"
  • Line Location: II+67
Function Call: WRITE
  • Prompt: !
  • Line Location: II+69
Function Call: WRITE
  • Prompt: !," CT ARTERIAL PORTOGRAPHY:"
  • Line Location: II+71
Function Call: WRITE
  • Prompt: !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1020)
  • Line Location: II+73
Function Call: WRITE
  • Prompt: !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1021)
  • Line Location: II+75
Function Call: WRITE
  • Prompt: !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1022)
  • Line Location: II+77
Function Call: WRITE
  • Prompt: !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1023)
  • Line Location: II+79
Function Call: WRITE
  • Prompt: !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1024)
  • Line Location: II+81
Function Call: WRITE
  • Prompt: !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1025)
  • Line Location: II+83
Function Call: WRITE
  • Prompt: !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1026)
  • Line Location: II+85
Function Call: WRITE
  • Prompt: !
  • Line Location: II+87
Function Call: WRITE
  • Prompt: !," SPIRAL CT:"
  • Line Location: II+89
Function Call: WRITE
  • Prompt: !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1027)
  • Line Location: II+91
Function Call: WRITE
  • Prompt: !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1028)
  • Line Location: II+93
Function Call: WRITE
  • Prompt: !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1029)
  • Line Location: II+95
Function Call: WRITE
  • Prompt: !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1030)
  • Line Location: II+97
Function Call: WRITE
  • Prompt: !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1031)
  • Line Location: II+99
Function Call: WRITE
  • Prompt: !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1032)
  • Line Location: II+101
Function Call: WRITE
  • Prompt: !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1033)
  • Line Location: II+103
Function Call: WRITE
  • Prompt: !
  • Line Location: II+105
Function Call: WRITE
  • Prompt: !," INCREMENTAL CT:"
  • Line Location: II+107
Function Call: WRITE
  • Prompt: !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1034)
  • Line Location: II+109
Function Call: WRITE
  • Prompt: !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1035)
  • Line Location: II+111
Function Call: WRITE
  • Prompt: !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1036)
  • Line Location: II+113
Function Call: WRITE
  • Prompt: !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1037)
  • Line Location: II+115
Function Call: WRITE
  • Prompt: !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1038)
  • Line Location: II+117
Function Call: WRITE
  • Prompt: !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1039)
  • Line Location: II+119
Function Call: WRITE
  • Prompt: !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1040)
  • Line Location: II+121
Function Call: WRITE
  • Prompt: !
  • Line Location: II+123
Function Call: WRITE
  • Prompt: !," ULTRASOUND:"
  • Line Location: II+125
Function Call: WRITE
  • Prompt: !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1041)
  • Line Location: II+127
Function Call: WRITE
  • Prompt: !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1042)
  • Line Location: II+129
Function Call: WRITE
  • Prompt: !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1043)
  • Line Location: II+131
Function Call: WRITE
  • Prompt: !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1044)
  • Line Location: II+133
Function Call: WRITE
  • Prompt: !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1045)
  • Line Location: II+135
Function Call: WRITE
  • Prompt: !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1046)
  • Line Location: II+137
Function Call: WRITE
  • Prompt: !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1047)
  • Line Location: II+139
Function Call: WRITE
  • Prompt: !
  • Line Location: II+141
Function Call: WRITE
  • Prompt: !," MRI:"
  • Line Location: II+143
Function Call: WRITE
  • Prompt: !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1048)
  • Line Location: II+145
Function Call: WRITE
  • Prompt: !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1049)
  • Line Location: II+147
Function Call: WRITE
  • Prompt: !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1050)
  • Line Location: II+149
Function Call: WRITE
  • Prompt: !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1051)
  • Line Location: II+151
Function Call: WRITE
  • Prompt: !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1052)
  • Line Location: II+153
Function Call: WRITE
  • Prompt: !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1053)
  • Line Location: II+155
Function Call: WRITE
  • Prompt: !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1054)
  • Line Location: II+157
Function Call: WRITE
  • Prompt: !
  • Line Location: II+159
Function Call: WRITE
  • Prompt: !,"18. DEFINITIVE DIAGNOSIS........: ",$$GET1^DIQ(165.5,IE,1055)
  • Line Location: II+161
Function Call: WRITE
  • Prompt: !,"19. DATE OF INITIAL DIAGNOSIS...: ",$$GET1^DIQ(165.5,IE,3)
  • Line Location: II+163
Function Call: WRITE
  • Prompt: !,"20. HISTOLOGY (ICD-O-2).........: ",$E(HIST,1,4)
  • Line Location: II+165
Function Call: WRITE
  • Prompt: !,"21. GRADE.......................: ",$$GET1^DIQ(165.5,IE,24)
  • Line Location: II+167
Function Call: WRITE
  • Prompt: !,"22. DIAGNOSTIC CONFIRMATION.....: ",$$GET1^DIQ(165.5,IE,26)
  • Line Location: II+169
Function Call: WRITE
  • Prompt: !?4,TABLE_" (continued)",!?4,LINE_"------------"
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,"Request Queued",!
  • Line Location: TASK+5

FileMan Files Accessed Via FileMan Db Call

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