source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCORF.m@ 628

Last change on this file since 628 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1ONCORF ;HIRMFO/GWB - OVER-RIDE FLAG PRINT;11/30/00
2 ;;2.11;ONCOLOGY;**27,30**;Mar 07, 1995
3PRT N DI,DIC,DR,DA,DIQ,ONC
4 S DIC="^ONCO(165.5,"
5 S DR="205:226"
6 S DA=D0,DIQ="ONC" D EN^DIQ1
7 W !," Over-ride Age/Site/Morph.: ",ONC(165.5,D0,205),?40,"Over-ride SS/NodesPos....: ",ONC(165.5,D0,218)
8 W !," Over-ride SeqNo/DxConf...: ",ONC(165.5,D0,206),?40,"Over-ride SS/TNM-N.......: ",ONC(165.5,D0,219)
9 W !," Over-ride Site/Lat/SeqNo.: ",ONC(165.5,D0,207),?40,"Over-ride SS/TNM-M.......: ",ONC(165.5,D0,220)
10 W !," Over-ride Surg/DxConf....: ",ONC(165.5,D0,208),?40,"Over-ride SS/DisMet1.....: ",ONC(165.5,D0,221)
11 W !," Over-ride Site/Type......: ",ONC(165.5,D0,209),?40,"Over-ride Acsn/Class/Seq.: ",ONC(165.5,D0,222)
12 W !," Over-ride Histology......: ",ONC(165.5,D0,210),?40,"Over-ride HospSeq/DxConf.: ",ONC(165.5,D0,223)
13 W !," Over-ride Report Source..: ",ONC(165.5,D0,211),?40,"Over-ride COC-Site/Type..: ",ONC(165.5,D0,224)
14 W !," Over-ride Ill-define Site: ",ONC(165.5,D0,212),?40,"Over-ride HospSeq/Site...: ",ONC(165.5,D0,225)
15 W !," Over-ride Leuk, Lymphoma.: ",ONC(165.5,D0,213),?40,"Over-ride Site/TNM-StgGrp: ",ONC(165.5,D0,226)
16 W !," Over-ride Site/Behavior..: ",ONC(165.5,D0,214)
17 W !," Over-ride Site/EOD/DX Dt.: ",ONC(165.5,D0,215)
18 W !," Over-ride Site/Lat/EOD...: ",ONC(165.5,D0,216)
19 W !," Over-ride Site/Lat/Morph.: ",ONC(165.5,D0,217)
20 W !,DASHES
21 Q
Note: See TracBrowser for help on using the repository browser.