ONCOPOS1 ;HIRMFO/GWB-POST-INSTALL ROUTINE FOR PATCH ONC*2.11*5  05/06/96
 ;;2.11;ONCOLOGY;**5**;Mar 07, 1995
 ;
 S IEN=$O(^DIPT("B","ONCO ABSTRACT NOT-COMPLETE",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ACCREG-ACOS80",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ACCREG-EOVA132",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ACCREG-SITE/GP80",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ACOS DOCUMENTATION",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO AJCC SUMMARY STAGE GPS",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL ACCREG80",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL ACCREG80-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL CLASS/PATIENT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL CLASS/PATIENT-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL HIST/SITE/ICDO",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL ICDO/STAGE/TX",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INDX",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INDX-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INFO",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INFO-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/GP",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/GP-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/ICDT/ICDM",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STAGE/TX",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STAGE/TX-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STG/TX",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ANNUAL TREATMENT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO CASEFINDING REPORT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO CASEFINDING-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO CONTACT LIST-A",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO CONTACT LIST-T",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO DELINQUENT(LTF) LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-ADM/DIS",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-ADM/DIS-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP/TERMDIG",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP/TERMDIG-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO F/U HISTORY (NEW)",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO FOLLOW-UP STATUS LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO FOLLOWUP HISTORY",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO FOLLOWUP HISTORY-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO FOLLOWUP PATIENT RPT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO FOLLOWUP PATIENT RPT-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO FOLLOWUP STATUS RPT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ICDO PATIENT LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ICDO-SITE132",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ICDO-SITE132-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ICDO-SITE80",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO ICDO-SITE80-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO LAB-CASEFINDING REPORT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO LAB-CASEFINDING-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO NEG-REPORT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PATIENT INDX-ACOS",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PATIENT INDX-ACOS-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PATIENT INDX-EOVA132",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PATIENT INDX80",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PATIENT ONLY",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PATIENT ONLY-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PRIMARY EXTENT CODE AUDIT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PRIMARY INFORMATION132",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PRIMARY SURGERY AUDIT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PTF-CASEFINDING RPT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO PTF-CASEFINDING-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO RAD-CASEFINDING RPT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO RAD-CASEFINDING-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SITE HEADING",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SITE-QA REPORT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SITE/GP80",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SITE/GP80-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SITE80",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SITE80-HEADER",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SUSPENSE",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SUSPENSE-ALL/TERMDIG",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SUSPENSE-ALL/TERMDIG-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SUSPENSE-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SUSPENSE/TERMDIG",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO SUSPENSE/TERMDIG-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO TOPOG BY SITEGRP",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO TOPOG SITES",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO TOPOGRAPHY BY CODE",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO TREATMENT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO WORKSHEET",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XABSTRACT RECORD",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XADMISSION",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XCONTACT LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XDEATH INFO",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XINCIDENCE RPRT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XPATIENT CONTACTS",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XPATIENT DATA",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XPATIENT INFO",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XPATIENT STATUS",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCO XSITE PARAMETERS",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOLOGY INPUT TEMPLATE LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOLOGY OPTION LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOLOGY PRINT TEMPLATE LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOLOGY ROUTINE LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOLOGY SORT TEMPLATE LIST",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOS ANNUAL SUMMARY RPT",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOS ANNUAL SUMMARY RPT-HDR",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOW1",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX1",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX10",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX11",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX2",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX3",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX4",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX5",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX6",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX7",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX8",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX9",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOX99",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOXA1",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOXA2",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOXA3",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOXA4",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY49",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY50",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY51",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY52",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY53",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY54",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY55",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY56",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY57",0)) D PTRW
 S IEN=$O(^DIPT("B","ONCOY58",0)) D PTRW
 K IEN Q
PTRW ;Set print template READ ACCESS and WRITE ACCESS
 Q:IEN=""
 S $P(^DIPT(IEN,0),"^",3)="",$P(^DIPT(IEN,0),"^",6)="@"
 Q