- ONCORF ;HIRMFO/GWB - OVER-RIDE FLAG PRINT;11/30/00
- ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- PRT N DI,DIC,DR,DA,DIQ,ONC
- S DIC="^ONCO(165.5,"
- S DR="205:226"
- S DA=D0,DIQ="ONC" D EN^DIQ1
- S:$G(ONC(165.5,D0,205))'="" ONC(165.5,D0,205)="Reviewed"
- W !," Over-ride Age/Site/Morph.: ",ONC(165.5,D0,205),?40,"Over-ride SS/NodesPos....: ",ONC(165.5,D0,218)
- W !," Over-ride SeqNo/DxConf...: ",ONC(165.5,D0,206),?40,"Over-ride SS/TNM-N.......: ",ONC(165.5,D0,219)
- W !," Over-ride Site/Lat/SeqNo.: ",ONC(165.5,D0,207),?40,"Over-ride SS/TNM-M.......: ",ONC(165.5,D0,220)
- W !," Over-ride Surg/DxConf....: ",ONC(165.5,D0,208),?40,"Over-ride SS/DisMet1.....: ",ONC(165.5,D0,221)
- W !," Over-ride Site/Type......: ",ONC(165.5,D0,209),?40,"Over-ride Acsn/Class/Seq.: ",ONC(165.5,D0,222)
- W !," Over-ride Histology......: ",ONC(165.5,D0,210),?40,"Over-ride HospSeq/DxConf.: ",ONC(165.5,D0,223)
- W !," Over-ride Report Source..: ",ONC(165.5,D0,211),?40,"Over-ride COC-Site/Type..: ",ONC(165.5,D0,224)
- W !," Over-ride Ill-define Site: ",ONC(165.5,D0,212),?40,"Over-ride HospSeq/Site...: ",ONC(165.5,D0,225)
- W !," Over-ride Leuk, Lymphoma.: ",ONC(165.5,D0,213),?40,"Over-ride Site/TNM-StgGrp: ",ONC(165.5,D0,226)
- W !," Over-ride Site/Behavior..: ",ONC(165.5,D0,214)
- W !," Over-ride Site/EOD/DX Dt.: ",ONC(165.5,D0,215)
- W !," Over-ride Site/Lat/EOD...: ",ONC(165.5,D0,216)
- W !," Over-ride Site/Lat/Morph.: ",ONC(165.5,D0,217)
- W !,DASHES
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCORF 1453 printed Feb 18, 2025@23:51:57 Page 2
- ONCORF ;HIRMFO/GWB - OVER-RIDE FLAG PRINT;11/30/00
- +1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
- PRT NEW DI,DIC,DR,DA,DIQ,ONC
- +1 SET DIC="^ONCO(165.5,"
- +2 SET DR="205:226"
- +3 SET DA=D0
- SET DIQ="ONC"
- DO EN^DIQ1
- +4 if $GET(ONC(165.5,D0,205))'=""
- SET ONC(165.5,D0,205)="Reviewed"
- +5 WRITE !," Over-ride Age/Site/Morph.: ",ONC(165.5,D0,205),?40,"Over-ride SS/NodesPos....: ",ONC(165.5,D0,218)
- +6 WRITE !," Over-ride SeqNo/DxConf...: ",ONC(165.5,D0,206),?40,"Over-ride SS/TNM-N.......: ",ONC(165.5,D0,219)
- +7 WRITE !," Over-ride Site/Lat/SeqNo.: ",ONC(165.5,D0,207),?40,"Over-ride SS/TNM-M.......: ",ONC(165.5,D0,220)
- +8 WRITE !," Over-ride Surg/DxConf....: ",ONC(165.5,D0,208),?40,"Over-ride SS/DisMet1.....: ",ONC(165.5,D0,221)
- +9 WRITE !," Over-ride Site/Type......: ",ONC(165.5,D0,209),?40,"Over-ride Acsn/Class/Seq.: ",ONC(165.5,D0,222)
- +10 WRITE !," Over-ride Histology......: ",ONC(165.5,D0,210),?40,"Over-ride HospSeq/DxConf.: ",ONC(165.5,D0,223)
- +11 WRITE !," Over-ride Report Source..: ",ONC(165.5,D0,211),?40,"Over-ride COC-Site/Type..: ",ONC(165.5,D0,224)
- +12 WRITE !," Over-ride Ill-define Site: ",ONC(165.5,D0,212),?40,"Over-ride HospSeq/Site...: ",ONC(165.5,D0,225)
- +13 WRITE !," Over-ride Leuk, Lymphoma.: ",ONC(165.5,D0,213),?40,"Over-ride Site/TNM-StgGrp: ",ONC(165.5,D0,226)
- +14 WRITE !," Over-ride Site/Behavior..: ",ONC(165.5,D0,214)
- +15 WRITE !," Over-ride Site/EOD/DX Dt.: ",ONC(165.5,D0,215)
- +16 WRITE !," Over-ride Site/Lat/EOD...: ",ONC(165.5,D0,216)
- +17 WRITE !," Over-ride Site/Lat/Morph.: ",ONC(165.5,D0,217)
- +18 WRITE !,DASHES
- +19 QUIT