ONCOPOS2 ;HIRMFO/GWB-POST-INSTALL ROUTINE FOR PATCH ONC*2.11*5  05/06/96
 ;;2.11;ONCOLOGY;**5**;Mar 07, 1995
 ;
 S IEN=$O(^DIBT("B","ONCO ABSTINCOM-TERMDIG",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ABSTRACT DATE/COMPLETE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ABSTRACT NOT-COMPLETE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ABSTRACT RECORD",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ACCREG-ACOS80",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ACCREG-EOVA132",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ACCREG-SITE/GP80",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ACOS DOCUMENTATION",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANN/ANAL/STA/SITE/DX AGE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL ACCREG80",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL ACOSACCREG80",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL ANALYTIC",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL CLASS/PATIENT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL CLASS/SITE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL HIST/SITE/ICDO",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL ICDO/STAGE/TX",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL PATIENT INDX",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL SITE/GP",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL SITE/ICDT/ICDM",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ANNUAL SITE/STAGE/TX",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO CASEFINDING REPORT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO CONTACT LIST-A",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO CONTACT LIST-T",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO DELINQUENT(LTF) LIST",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO DUE FOLLOWUP",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO DUE FOLLOWUP-ADM/DIS",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO DUE FOLLOWUP/TERMDIG",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO FOLLOWUP HISTORY",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO FOLLOWUP PATIENT RPT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO FOLLOWUP STATUS RPT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ICDO-SITE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ICDO-SITE132",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO ICDO-SITE80",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO LAB-CASEFINDING REPORT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO LOSTTOFOLLOWUP",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO NEG-REPORT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO PATIENT INDX-ACOS",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO PATIENT INDX-EOVA132",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO PATIENT INDX80",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO PATIENT ONLY",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO PCE ANNUAL REPORT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO PTF-CASEFINDING RPT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO RAD-CASEFINDING RPT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO SITE/GP80",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO STAGE/SITE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO SUSPENSE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO SUSPENSE-ALL/TERMDIG",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO SUSPENSE-NO PRIMARY",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO SUSPENSE/TERMDIG",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO TOPOG BY SITEGRP",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO TOPOG SITES",0)) D STRW
 S IEN=$O(^DIBT("B","ONCO TOPOGRAPHY BY CODE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOLOGY INPUT TEMPLATE LIST",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOLOGY OPTION LIST",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOLOGY PRINT TEMPLATE LIST",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOLOGY ROUTINE LIST",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOLOGY SITE/GROUP-TOPOGRAPHY",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOLOGY SORT TEMPLATE LIST",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE 0",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE I",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE II",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE III",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE IV",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE NA",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANAL/STAGE U",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-140",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-153",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-154",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-160",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-161",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-162",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-193",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC-196",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANALYTIC_NON",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE 0",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE I",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE II",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE III",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE IV",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE NA",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL ANAL/STAGE U",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL SUMMARY RPT",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL-ALLCASES",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL-ANALYTIC",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL-NON ANAL",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS ANNUAL/ANAL-90",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS BLACK-FEMALES",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS BLACK-MALES",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS KAPOSI",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS LARYNX/AN/90",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS LUNG/NON-SMALL CELL",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS MEMPHIS LUNG",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS NON-ANALYTIC",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS RACE=BLACK",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS RACE=WHITE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS RANGE-ALLCASES",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS RANGE-ANALYTIC",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS RANGE-NON ANAL",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SEX=FEMALE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SEX=MALE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=BLADDER",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=BRAIN",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=BREAST",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=COLON",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=ESOHAGUS",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=HODGKIN'S",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=HODGKINS",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=LARYNX",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=LIP",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=LIVER",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=LUNG",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=LYMPH NODES",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=NON-HODGKINS",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=NON-HODGKINS'S",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=PHARYNX",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=PROSTATE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS SITE=TESTIS",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS TOTAL-ANAL",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS TOTAL-NON",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS TX-CHEMO",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS TX-HORMONE",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS TX-RADIATION",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS TX-SURGERY",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS WHITE-FEMALES",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOS WHITE-MALES",0)) D STRW
 S IEN=$O(^DIBT("B","ONCOZ LUNG SURVIVAL",0)) D STRW
 Q
STRW ;Set sort template READ ACCESS and WRITE ACCESS
 Q:IEN=""
 S $P(^DIBT(IEN,0),"^",3)="",$P(^DIBT(IEN,0),"^",6)="@"
 Q