Released PRC*5.1*216 SEQ #189 Extracted from mail message **KIDS**:PRC*5.1*216^ **INSTALL NAME** PRC*5.1*216 "BLD",11670,0) PRC*5.1*216^IFCAP^0^3191231^y "BLD",11670,1,0) ^^1^1^3191231^^ "BLD",11670,1,1,0) 1) This patch updates the AUTHORITY OF REQUEST (#410.9) file. "BLD",11670,4,0) ^9.64PA^^ "BLD",11670,6.3) 3 "BLD",11670,"INID") ^n "BLD",11670,"INIT") START^PRC216P "BLD",11670,"KRN",0) ^9.67PA^1.5^25 "BLD",11670,"KRN",.4,0) .4 "BLD",11670,"KRN",.401,0) .401 "BLD",11670,"KRN",.402,0) .402 "BLD",11670,"KRN",.403,0) .403 "BLD",11670,"KRN",.5,0) .5 "BLD",11670,"KRN",.84,0) .84 "BLD",11670,"KRN",1.5,0) 1.5 "BLD",11670,"KRN",1.6,0) 1.6 "BLD",11670,"KRN",1.61,0) 1.61 "BLD",11670,"KRN",1.62,0) 1.62 "BLD",11670,"KRN",3.6,0) 3.6 "BLD",11670,"KRN",3.8,0) 3.8 "BLD",11670,"KRN",9.2,0) 9.2 "BLD",11670,"KRN",9.8,0) 9.8 "BLD",11670,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",11670,"KRN",9.8,"NM",1,0) PRC216P^^0^B19565523 "BLD",11670,"KRN",9.8,"NM","B","PRC216P",1) "BLD",11670,"KRN",19,0) 19 "BLD",11670,"KRN",19.1,0) 19.1 "BLD",11670,"KRN",101,0) 101 "BLD",11670,"KRN",409.61,0) 409.61 "BLD",11670,"KRN",771,0) 771 "BLD",11670,"KRN",779.2,0) 779.2 "BLD",11670,"KRN",870,0) 870 "BLD",11670,"KRN",8989.51,0) 8989.51 "BLD",11670,"KRN",8989.52,0) 8989.52 "BLD",11670,"KRN",8993,0) 8993 "BLD",11670,"KRN",8994,0) 8994 "BLD",11670,"KRN","B",.4,.4) "BLD",11670,"KRN","B",.401,.401) "BLD",11670,"KRN","B",.402,.402) "BLD",11670,"KRN","B",.403,.403) "BLD",11670,"KRN","B",.5,.5) "BLD",11670,"KRN","B",.84,.84) "BLD",11670,"KRN","B",1.5,1.5) "BLD",11670,"KRN","B",1.6,1.6) "BLD",11670,"KRN","B",1.61,1.61) "BLD",11670,"KRN","B",1.62,1.62) "BLD",11670,"KRN","B",3.6,3.6) "BLD",11670,"KRN","B",3.8,3.8) "BLD",11670,"KRN","B",9.2,9.2) "BLD",11670,"KRN","B",9.8,9.8) "BLD",11670,"KRN","B",19,19) "BLD",11670,"KRN","B",19.1,19.1) "BLD",11670,"KRN","B",101,101) "BLD",11670,"KRN","B",409.61,409.61) "BLD",11670,"KRN","B",771,771) "BLD",11670,"KRN","B",779.2,779.2) "BLD",11670,"KRN","B",870,870) "BLD",11670,"KRN","B",8989.51,8989.51) "BLD",11670,"KRN","B",8989.52,8989.52) "BLD",11670,"KRN","B",8993,8993) "BLD",11670,"KRN","B",8994,8994) "BLD",11670,"QUES",0) ^9.62^^ "INIT") START^PRC216P "MBREQ") 0 "PKG",455,-1) 1^1 "PKG",455,0) IFCAP^PRC^IFCAP System Files "PKG",455,22,0) ^9.49I^1^1 "PKG",455,22,1,0) 5.1 "PKG",455,22,1,"PAH",1,0) 216^3191231 "PKG",455,22,1,"PAH",1,1,0) ^^1^1^3191231 "PKG",455,22,1,"PAH",1,1,1,0) 1) This patch updates the AUTHORITY OF REQUEST (#410.9) file. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","PRC216P") 0^1^B19565523^n/a "RTN","PRC216P",1,0) PRC216P ;BR/MNT - Post-Install to Update 410.9 entries ;11-22-19 8:24 am "RTN","PRC216P",2,0) ;;5.1;IFCAP;**216**;Oct 20, 2000;Build 3 "RTN","PRC216P",3,0) ;Per VA Directive 6402, this routine should not be modified. "RTN","PRC216P",4,0) Q "RTN","PRC216P",5,0) START ;PRC*5.1*216 Updating file 410.9 [Authority of Request File] with new "RTN","PRC216P",6,0) ; sub authority 'R', PC Patient-Centered Community Care "RTN","PRC216P",7,0) D UPDATE ;Update Descriptions "RTN","PRC216P",8,0) Q "RTN","PRC216P",9,0) UPDATE ;Update Existing entries "RTN","PRC216P",10,0) N DIE,DA,DR,PRCI,PRCX,PRCIEN,PRCCD,PRCSUB,PRCDESC "RTN","PRC216P",11,0) S DIE="^PRCS(410.9," "RTN","PRC216P",12,0) F PRCI=1:1 S PRCX=$P($T(CHNG+PRCI),";;",2) Q:$P(PRCX,"^")="QUIT" D "RTN","PRC216P",13,0) .S PRCCD=$P(PRCX,"^"),PRCSUB=$P(PRCX,"^",2),PRCDESC=$P(PRCX,"^",3) I PRCSUB="" D "RTN","PRC216P",14,0) ..I PRCDESC="DISABLED: NOT A VALID CODE" S DA=PRCCD,DR=".04///3180731" D ^DIE D MES^XPDUTL("Inactivating Authority of Request Code "_PRCCD) Q "RTN","PRC216P",15,0) ..S DA=PRCCD,DR=".02///^S X=PRCDESC" D ^DIE D MES^XPDUTL("Updating Authority of Request Code "_PRCCD) "RTN","PRC216P",16,0) .I PRCSUB'="" S PRCIEN=0 F S PRCIEN=$O(^PRCS(410.9,"AC",PRCCD,PRCIEN)) Q:'PRCIEN I $P(^PRCS(410.9,PRCIEN,0),U)=PRCSUB D "RTN","PRC216P",17,0) ..S DA=PRCIEN,DR=".02///^S X=PRCDESC" D ^DIE D MES^XPDUTL("Updating Authority of Request Code "_PRCCD_PRCSUB) "RTN","PRC216P",18,0) D BMES^XPDUTL("Update of Authority of Request File *completed*:") "RTN","PRC216P",19,0) Q "RTN","PRC216P",20,0) CHNG ;Codes to update "RTN","PRC216P",21,0) ;;1^^NURSING HOME/ADULT DAY HEALTH CARE "RTN","PRC216P",22,0) ;;1^A^NURSING HOME "RTN","PRC216P",23,0) ;;1^B^ADULT DAY HEALTH CARE "RTN","PRC216P",24,0) ;;2^^NON-VA MEDICAL CARE PROGRAM "RTN","PRC216P",25,0) ;;2^A^NON-VA MEDICAL/DENTAL CARE (PRE-AUTHORIZED) "RTN","PRC216P",26,0) ;;2^B^NON-VA MEDICAL/DENTAL/EMERGENT TRANSPORTATION (NOT PRE-AUTHORIZED) "RTN","PRC216P",27,0) ;;2^C^HOMEMAKER/HOME HEALTH AID "RTN","PRC216P",28,0) ;;2^D^NON-VA HOSPITALIZATION (PRE-AUTHORIZED) "RTN","PRC216P",29,0) ;;2^E^NON-VA HOSPITALIZATION (NOT PRE-AUTHORIZED) "RTN","PRC216P",30,0) ;;2^F^NON-CONTRACT EMERGENCY TRAVEL "RTN","PRC216P",31,0) ;;3^^STANDARDIZED OBLIGATIONS "RTN","PRC216P",32,0) ;;3^A^FEDERAL TELECOMMUNICATIONS SERVICES "RTN","PRC216P",33,0) ;;3^B^COLLEGE OF AMERICAN PATHOLOGY/JOINT PATHOLOGY CENTER "RTN","PRC216P",34,0) ;;3^C^CONVENIENCE CHECK FEES "RTN","PRC216P",35,0) ;;3^D^DENVER ACQUISITION AND LOGISTICS CENTER SERVICES AND SUPPLIES "RTN","PRC216P",36,0) ;;3^E^SUPPLY FUND: STRATEGIC ACQUISITION CENTER "RTN","PRC216P",37,0) ;;3^F^NON VA MEDICAL CARE (US BANK) & PC3 CENTRALIZED ADMIN FEES "RTN","PRC216P",38,0) ;;3^G^FEDERAL EMPLOYEES COMPENSATION PROGRAM "RTN","PRC216P",39,0) ;;3^H^SHPS "RTN","PRC216P",40,0) ;;3^I^STANDARD LEVEL USER CHARGES/GSA/NARA "RTN","PRC216P",41,0) ;;3^J^TRANSIT BENEFITS "RTN","PRC216P",42,0) ;;3^K^FRANCHISE FUND: SECURITY AND INVESTIGATIONS CENTER "RTN","PRC216P",43,0) ;;3^L^FRANCHISE FUND: LAW ENFORCEMENT TRAINING CENTER "RTN","PRC216P",44,0) ;;3^M^FRANCHISE FUND: FINANCIAL SERVICES CENTER "RTN","PRC216P",45,0) ;;3^N^FRANCHISE FUND: DEBT MANAGEMENT CENTER "RTN","PRC216P",46,0) ;;3^O^FRANCHISE FUND: CORPORATE DATA CENTER OPERATIONS "RTN","PRC216P",47,0) ;;3^P^FRANCHISE FUND: RECORDS CENTER AND VAULT "RTN","PRC216P",48,0) ;;3^R^SUPPLY FUND: TECHNOLOGY ACQUISITION CENTER "RTN","PRC216P",49,0) ;;4^^STANDARDIZED OBLIGATIONS SUPPLY FUND: NATIONAL ACQUISITION CENTER "RTN","PRC216P",50,0) ;;5^^RESEARCH STUDIES "RTN","PRC216P",51,0) ;;6^^DISABLED: NOT A VALID CODE "RTN","PRC216P",52,0) ;;7^^AFFILIATED AGREEMENTS FOR INTERNS/RESIDENTS "RTN","PRC216P",53,0) ;;8^^TORT CLAIMS/EEO SETTLEMENTS/OIG CONFIDENTIAL SERV/INVESTIGATIVE PURC "RTN","PRC216P",54,0) ;;9^^VOLUNTEER AND RES MEAL TICKETS/REIMBURSEMENT, HONORARIUM AND STIPEND "RTN","PRC216P",55,0) ;;10^^INCENTIVE THERAPY/COMPENSATED WORK THERAPY "RTN","PRC216P",56,0) ;;11^^BENE TRAVEL AND DIRECT PAYMENTS TO VETERANS FROM GENERAL POST FUND "RTN","PRC216P",57,0) ;;12^^HOME IMPROVEMENT STRUCTURAL ALTERATIONS "RTN","PRC216P",58,0) ;;13^^DISABLED: NOT A VALID CODE "RTN","PRC216P",59,0) ;;13^A^OUTER BURIAL RECEPTACLES "RTN","PRC216P",60,0) ;;13^B^DIGNIFIED BURIAL CASKET/URN "RTN","PRC216P",61,0) ;;14^^VBA LEASE AGREEMENT OVERTIME CHARGES "RTN","PRC216P",62,0) ;;15^^HOME OXYGEN BILLS "RTN","PRC216P",63,0) ;;16^^PROSTHETICS - NEW OR REPAIRED ITEMS "RTN","PRC216P",64,0) ;;17^^PHARMACY AND SUBSISTENCE PRIME VENDOR "RTN","PRC216P",65,0) ;;18^^DISABLED: NOT A VALID CODE "RTN","PRC216P",66,0) ;;19^^REIMBURSEMENTS TO VA EMPLOYEES OR STUDENTS "RTN","PRC216P",67,0) ;;20^^NON-PROCUREMENT OBLIGATIONS "RTN","PRC216P",68,0) ;;20^A^ONE VA PLUS FUND AND AGENT CASHIER BANK SERVICE CHARGES "RTN","PRC216P",69,0) ;;20^B^COMPENSATED WORK THERAPY PROGRAM "RTN","PRC216P",70,0) ;;20^C^INTERNAL VA PROGRAMS AND AGREEMENTS "RTN","PRC216P",71,0) ;;20^D^VA HOMELESS PROVIDERS GRANT AND PER DIEM PROGRAM "RTN","PRC216P",72,0) ;;20^E^CEMETERY GRANTS, STATE HOME PROGRAM, AND OTHER VA GRANT PROGRAMS "RTN","PRC216P",73,0) ;;20^F^GSA ACTIVITIES AND TOP FEES "RTN","PRC216P",74,0) ;;20^G^GOVERNMENT PRINTING OFFICE "RTN","PRC216P",75,0) ;;20^H^VA/DOD SHARING AGREEMENTS AND INTERAGENCY AGREEMENTS "RTN","PRC216P",76,0) ;;20^I^INTRA-AGENCY SHARING AGREEMENTS (VHA, VBA, NCA,OIT) "RTN","PRC216P",77,0) ;;20^J^INTERGOVERNMENTAL PERSONNEL AGREEMENTS AND SERVICES,INCLUDING CASUS "RTN","PRC216P",78,0) ;;21^^CHIEF BUSINESS OFFICE PURCHASED CARE(CBOPC)PROGRAMS "RTN","PRC216P",79,0) ;;21^A^CHAMPVA "RTN","PRC216P",80,0) ;;21^B^SPINA BIFIDA HEALTH "RTN","PRC216P",81,0) ;;21^C^CHILDREN OF WOMEN VIETNAM VETERANS "RTN","PRC216P",82,0) ;;21^D^FOREIGN MEDICAL PROGRAM "RTN","PRC216P",83,0) ;;21^E^OTHER CBOPC CARE PROGRAMS "RTN","PRC216P",84,0) ;;22^^SPECIAL ADAPTIVE HOUSING INSPECTIONS "RTN","PRC216P",85,0) ;;23^^STATE APPROVING AGENCY (SAA) "RTN","PRC216P",86,0) ;;QUIT "VER") 8.0^22.2 "BLD",11670,6) ^189 **END** **END**