| 1 | ONCOPOS1 ;HIRMFO/GWB-POST-INSTALL ROUTINE FOR PATCH ONC*2.11*5 05/06/96
|
---|
| 2 | ;;2.11;ONCOLOGY;**5**;Mar 07, 1995
|
---|
| 3 | ;
|
---|
| 4 | S IEN=$O(^DIPT("B","ONCO ABSTRACT NOT-COMPLETE",0)) D PTRW
|
---|
| 5 | S IEN=$O(^DIPT("B","ONCO ACCREG-ACOS80",0)) D PTRW
|
---|
| 6 | S IEN=$O(^DIPT("B","ONCO ACCREG-EOVA132",0)) D PTRW
|
---|
| 7 | S IEN=$O(^DIPT("B","ONCO ACCREG-SITE/GP80",0)) D PTRW
|
---|
| 8 | S IEN=$O(^DIPT("B","ONCO ACOS DOCUMENTATION",0)) D PTRW
|
---|
| 9 | S IEN=$O(^DIPT("B","ONCO AJCC SUMMARY STAGE GPS",0)) D PTRW
|
---|
| 10 | S IEN=$O(^DIPT("B","ONCO ANNUAL ACCREG80",0)) D PTRW
|
---|
| 11 | S IEN=$O(^DIPT("B","ONCO ANNUAL ACCREG80-HDR",0)) D PTRW
|
---|
| 12 | S IEN=$O(^DIPT("B","ONCO ANNUAL CLASS/PATIENT",0)) D PTRW
|
---|
| 13 | S IEN=$O(^DIPT("B","ONCO ANNUAL CLASS/PATIENT-HDR",0)) D PTRW
|
---|
| 14 | S IEN=$O(^DIPT("B","ONCO ANNUAL HIST/SITE/ICDO",0)) D PTRW
|
---|
| 15 | S IEN=$O(^DIPT("B","ONCO ANNUAL ICDO/STAGE/TX",0)) D PTRW
|
---|
| 16 | S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INDX",0)) D PTRW
|
---|
| 17 | S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INDX-HDR",0)) D PTRW
|
---|
| 18 | S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INFO",0)) D PTRW
|
---|
| 19 | S IEN=$O(^DIPT("B","ONCO ANNUAL PATIENT INFO-HDR",0)) D PTRW
|
---|
| 20 | S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/GP",0)) D PTRW
|
---|
| 21 | S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/GP-HDR",0)) D PTRW
|
---|
| 22 | S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/ICDT/ICDM",0)) D PTRW
|
---|
| 23 | S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STAGE/TX",0)) D PTRW
|
---|
| 24 | S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STAGE/TX-HDR",0)) D PTRW
|
---|
| 25 | S IEN=$O(^DIPT("B","ONCO ANNUAL SITE/STG/TX",0)) D PTRW
|
---|
| 26 | S IEN=$O(^DIPT("B","ONCO ANNUAL TREATMENT",0)) D PTRW
|
---|
| 27 | S IEN=$O(^DIPT("B","ONCO CASEFINDING REPORT",0)) D PTRW
|
---|
| 28 | S IEN=$O(^DIPT("B","ONCO CASEFINDING-HDR",0)) D PTRW
|
---|
| 29 | S IEN=$O(^DIPT("B","ONCO CONTACT LIST-A",0)) D PTRW
|
---|
| 30 | S IEN=$O(^DIPT("B","ONCO CONTACT LIST-T",0)) D PTRW
|
---|
| 31 | S IEN=$O(^DIPT("B","ONCO DELINQUENT(LTF) LIST",0)) D PTRW
|
---|
| 32 | S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP",0)) D PTRW
|
---|
| 33 | S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-ADM/DIS",0)) D PTRW
|
---|
| 34 | S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-ADM/DIS-HDR",0)) D PTRW
|
---|
| 35 | S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP-HDR",0)) D PTRW
|
---|
| 36 | S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP/TERMDIG",0)) D PTRW
|
---|
| 37 | S IEN=$O(^DIPT("B","ONCO DUE FOLLOWUP/TERMDIG-HDR",0)) D PTRW
|
---|
| 38 | S IEN=$O(^DIPT("B","ONCO F/U HISTORY (NEW)",0)) D PTRW
|
---|
| 39 | S IEN=$O(^DIPT("B","ONCO FOLLOW-UP STATUS LIST",0)) D PTRW
|
---|
| 40 | S IEN=$O(^DIPT("B","ONCO FOLLOWUP HISTORY",0)) D PTRW
|
---|
| 41 | S IEN=$O(^DIPT("B","ONCO FOLLOWUP HISTORY-HDR",0)) D PTRW
|
---|
| 42 | S IEN=$O(^DIPT("B","ONCO FOLLOWUP PATIENT RPT",0)) D PTRW
|
---|
| 43 | S IEN=$O(^DIPT("B","ONCO FOLLOWUP PATIENT RPT-HDR",0)) D PTRW
|
---|
| 44 | S IEN=$O(^DIPT("B","ONCO FOLLOWUP STATUS RPT",0)) D PTRW
|
---|
| 45 | S IEN=$O(^DIPT("B","ONCO ICDO PATIENT LIST",0)) D PTRW
|
---|
| 46 | S IEN=$O(^DIPT("B","ONCO ICDO-SITE132",0)) D PTRW
|
---|
| 47 | S IEN=$O(^DIPT("B","ONCO ICDO-SITE132-HDR",0)) D PTRW
|
---|
| 48 | S IEN=$O(^DIPT("B","ONCO ICDO-SITE80",0)) D PTRW
|
---|
| 49 | S IEN=$O(^DIPT("B","ONCO ICDO-SITE80-HDR",0)) D PTRW
|
---|
| 50 | S IEN=$O(^DIPT("B","ONCO LAB-CASEFINDING REPORT",0)) D PTRW
|
---|
| 51 | S IEN=$O(^DIPT("B","ONCO LAB-CASEFINDING-HDR",0)) D PTRW
|
---|
| 52 | S IEN=$O(^DIPT("B","ONCO NEG-REPORT",0)) D PTRW
|
---|
| 53 | S IEN=$O(^DIPT("B","ONCO PATIENT INDX-ACOS",0)) D PTRW
|
---|
| 54 | S IEN=$O(^DIPT("B","ONCO PATIENT INDX-ACOS-HDR",0)) D PTRW
|
---|
| 55 | S IEN=$O(^DIPT("B","ONCO PATIENT INDX-EOVA132",0)) D PTRW
|
---|
| 56 | S IEN=$O(^DIPT("B","ONCO PATIENT INDX80",0)) D PTRW
|
---|
| 57 | S IEN=$O(^DIPT("B","ONCO PATIENT ONLY",0)) D PTRW
|
---|
| 58 | S IEN=$O(^DIPT("B","ONCO PATIENT ONLY-HDR",0)) D PTRW
|
---|
| 59 | S IEN=$O(^DIPT("B","ONCO PRIMARY EXTENT CODE AUDIT",0)) D PTRW
|
---|
| 60 | S IEN=$O(^DIPT("B","ONCO PRIMARY INFORMATION132",0)) D PTRW
|
---|
| 61 | S IEN=$O(^DIPT("B","ONCO PRIMARY SURGERY AUDIT",0)) D PTRW
|
---|
| 62 | S IEN=$O(^DIPT("B","ONCO PTF-CASEFINDING RPT",0)) D PTRW
|
---|
| 63 | S IEN=$O(^DIPT("B","ONCO PTF-CASEFINDING-HDR",0)) D PTRW
|
---|
| 64 | S IEN=$O(^DIPT("B","ONCO RAD-CASEFINDING RPT",0)) D PTRW
|
---|
| 65 | S IEN=$O(^DIPT("B","ONCO RAD-CASEFINDING-HDR",0)) D PTRW
|
---|
| 66 | S IEN=$O(^DIPT("B","ONCO SITE HEADING",0)) D PTRW
|
---|
| 67 | S IEN=$O(^DIPT("B","ONCO SITE-QA REPORT",0)) D PTRW
|
---|
| 68 | S IEN=$O(^DIPT("B","ONCO SITE/GP80",0)) D PTRW
|
---|
| 69 | S IEN=$O(^DIPT("B","ONCO SITE/GP80-HDR",0)) D PTRW
|
---|
| 70 | S IEN=$O(^DIPT("B","ONCO SITE80",0)) D PTRW
|
---|
| 71 | S IEN=$O(^DIPT("B","ONCO SITE80-HEADER",0)) D PTRW
|
---|
| 72 | S IEN=$O(^DIPT("B","ONCO SUSPENSE",0)) D PTRW
|
---|
| 73 | S IEN=$O(^DIPT("B","ONCO SUSPENSE-ALL/TERMDIG",0)) D PTRW
|
---|
| 74 | S IEN=$O(^DIPT("B","ONCO SUSPENSE-ALL/TERMDIG-HDR",0)) D PTRW
|
---|
| 75 | S IEN=$O(^DIPT("B","ONCO SUSPENSE-HDR",0)) D PTRW
|
---|
| 76 | S IEN=$O(^DIPT("B","ONCO SUSPENSE/TERMDIG",0)) D PTRW
|
---|
| 77 | S IEN=$O(^DIPT("B","ONCO SUSPENSE/TERMDIG-HDR",0)) D PTRW
|
---|
| 78 | S IEN=$O(^DIPT("B","ONCO TOPOG BY SITEGRP",0)) D PTRW
|
---|
| 79 | S IEN=$O(^DIPT("B","ONCO TOPOG SITES",0)) D PTRW
|
---|
| 80 | S IEN=$O(^DIPT("B","ONCO TOPOGRAPHY BY CODE",0)) D PTRW
|
---|
| 81 | S IEN=$O(^DIPT("B","ONCO TREATMENT",0)) D PTRW
|
---|
| 82 | S IEN=$O(^DIPT("B","ONCO WORKSHEET",0)) D PTRW
|
---|
| 83 | S IEN=$O(^DIPT("B","ONCO XABSTRACT RECORD",0)) D PTRW
|
---|
| 84 | S IEN=$O(^DIPT("B","ONCO XADMISSION",0)) D PTRW
|
---|
| 85 | S IEN=$O(^DIPT("B","ONCO XCONTACT LIST",0)) D PTRW
|
---|
| 86 | S IEN=$O(^DIPT("B","ONCO XDEATH INFO",0)) D PTRW
|
---|
| 87 | S IEN=$O(^DIPT("B","ONCO XINCIDENCE RPRT",0)) D PTRW
|
---|
| 88 | S IEN=$O(^DIPT("B","ONCO XPATIENT CONTACTS",0)) D PTRW
|
---|
| 89 | S IEN=$O(^DIPT("B","ONCO XPATIENT DATA",0)) D PTRW
|
---|
| 90 | S IEN=$O(^DIPT("B","ONCO XPATIENT INFO",0)) D PTRW
|
---|
| 91 | S IEN=$O(^DIPT("B","ONCO XPATIENT STATUS",0)) D PTRW
|
---|
| 92 | S IEN=$O(^DIPT("B","ONCO XSITE PARAMETERS",0)) D PTRW
|
---|
| 93 | S IEN=$O(^DIPT("B","ONCOLOGY INPUT TEMPLATE LIST",0)) D PTRW
|
---|
| 94 | S IEN=$O(^DIPT("B","ONCOLOGY OPTION LIST",0)) D PTRW
|
---|
| 95 | S IEN=$O(^DIPT("B","ONCOLOGY PRINT TEMPLATE LIST",0)) D PTRW
|
---|
| 96 | S IEN=$O(^DIPT("B","ONCOLOGY ROUTINE LIST",0)) D PTRW
|
---|
| 97 | S IEN=$O(^DIPT("B","ONCOLOGY SORT TEMPLATE LIST",0)) D PTRW
|
---|
| 98 | S IEN=$O(^DIPT("B","ONCOS ANNUAL SUMMARY RPT",0)) D PTRW
|
---|
| 99 | S IEN=$O(^DIPT("B","ONCOS ANNUAL SUMMARY RPT-HDR",0)) D PTRW
|
---|
| 100 | S IEN=$O(^DIPT("B","ONCOW1",0)) D PTRW
|
---|
| 101 | S IEN=$O(^DIPT("B","ONCOX1",0)) D PTRW
|
---|
| 102 | S IEN=$O(^DIPT("B","ONCOX10",0)) D PTRW
|
---|
| 103 | S IEN=$O(^DIPT("B","ONCOX11",0)) D PTRW
|
---|
| 104 | S IEN=$O(^DIPT("B","ONCOX2",0)) D PTRW
|
---|
| 105 | S IEN=$O(^DIPT("B","ONCOX3",0)) D PTRW
|
---|
| 106 | S IEN=$O(^DIPT("B","ONCOX4",0)) D PTRW
|
---|
| 107 | S IEN=$O(^DIPT("B","ONCOX5",0)) D PTRW
|
---|
| 108 | S IEN=$O(^DIPT("B","ONCOX6",0)) D PTRW
|
---|
| 109 | S IEN=$O(^DIPT("B","ONCOX7",0)) D PTRW
|
---|
| 110 | S IEN=$O(^DIPT("B","ONCOX8",0)) D PTRW
|
---|
| 111 | S IEN=$O(^DIPT("B","ONCOX9",0)) D PTRW
|
---|
| 112 | S IEN=$O(^DIPT("B","ONCOX99",0)) D PTRW
|
---|
| 113 | S IEN=$O(^DIPT("B","ONCOXA1",0)) D PTRW
|
---|
| 114 | S IEN=$O(^DIPT("B","ONCOXA2",0)) D PTRW
|
---|
| 115 | S IEN=$O(^DIPT("B","ONCOXA3",0)) D PTRW
|
---|
| 116 | S IEN=$O(^DIPT("B","ONCOXA4",0)) D PTRW
|
---|
| 117 | S IEN=$O(^DIPT("B","ONCOY49",0)) D PTRW
|
---|
| 118 | S IEN=$O(^DIPT("B","ONCOY50",0)) D PTRW
|
---|
| 119 | S IEN=$O(^DIPT("B","ONCOY51",0)) D PTRW
|
---|
| 120 | S IEN=$O(^DIPT("B","ONCOY52",0)) D PTRW
|
---|
| 121 | S IEN=$O(^DIPT("B","ONCOY53",0)) D PTRW
|
---|
| 122 | S IEN=$O(^DIPT("B","ONCOY54",0)) D PTRW
|
---|
| 123 | S IEN=$O(^DIPT("B","ONCOY55",0)) D PTRW
|
---|
| 124 | S IEN=$O(^DIPT("B","ONCOY56",0)) D PTRW
|
---|
| 125 | S IEN=$O(^DIPT("B","ONCOY57",0)) D PTRW
|
---|
| 126 | S IEN=$O(^DIPT("B","ONCOY58",0)) D PTRW
|
---|
| 127 | K IEN Q
|
---|
| 128 | PTRW ;Set print template READ ACCESS and WRITE ACCESS
|
---|
| 129 | Q:IEN=""
|
---|
| 130 | S $P(^DIPT(IEN,0),"^",3)="",$P(^DIPT(IEN,0),"^",6)="@"
|
---|
| 131 | Q
|
---|