Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRC216P

PRC216P.m

Go to the documentation of this file. 
  1. PRC216P ;BR/MNT - Post-Install to Update 410.9 entries ;11-22-19 8:24 am 
  1.  ;;5.1;IFCAP;**216**;Oct 20, 2000;Build 3
  1.  ;Per VA Directive 6402, this routine should not be modified.
  1.  Q
  1. START ;PRC*5.1*216 Updating file 410.9 [Authority of Request File] with new
  1.  ;            sub authority 'R', PC Patient-Centered Community Care
  1.  D UPDATE ;Update Descriptions
  1.  Q
  1. UPDATE ;Update Existing entries  
  1.  N DIE,DA,DR,PRCI,PRCX,PRCIEN,PRCCD,PRCSUB,PRCDESC
  1.  S DIE="^PRCS(410.9,"
  1.  F PRCI=1:1 S PRCX=$P($T(CHNG+PRCI),";;",2) Q:$P(PRCX,"^")="QUIT"  D
  1.  .S PRCCD=$P(PRCX,"^"),PRCSUB=$P(PRCX,"^",2),PRCDESC=$P(PRCX,"^",3) I PRCSUB="" D
  1.  ..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
  1.  ..S DA=PRCCD,DR=".02///^S X=PRCDESC" D ^DIE D MES^XPDUTL("Updating Authority of Request Code "_PRCCD)
  1.  .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
  1.  ..S DA=PRCIEN,DR=".02///^S X=PRCDESC" D ^DIE D MES^XPDUTL("Updating Authority of Request Code "_PRCCD_PRCSUB)
  1.  D BMES^XPDUTL("Update of Authority of Request File *completed*:")
  1.  Q
  1. CHNG ;Codes to update
  1.  ;;1^^NURSING HOME/ADULT DAY HEALTH CARE
  1.  ;;1^A^NURSING HOME
  1.  ;;1^B^ADULT DAY HEALTH CARE
  1.  ;;2^^NON-VA MEDICAL CARE PROGRAM
  1.  ;;2^A^NON-VA MEDICAL/DENTAL CARE (PRE-AUTHORIZED)
  1.  ;;2^B^NON-VA MEDICAL/DENTAL/EMERGENT TRANSPORTATION (NOT PRE-AUTHORIZED)
  1.  ;;2^C^HOMEMAKER/HOME HEALTH AID
  1.  ;;2^D^NON-VA HOSPITALIZATION (PRE-AUTHORIZED)
  1.  ;;2^E^NON-VA HOSPITALIZATION (NOT PRE-AUTHORIZED)
  1.  ;;2^F^NON-CONTRACT EMERGENCY TRAVEL
  1.  ;;3^^STANDARDIZED OBLIGATIONS
  1.  ;;3^A^FEDERAL TELECOMMUNICATIONS SERVICES
  1.  ;;3^B^COLLEGE OF AMERICAN PATHOLOGY/JOINT PATHOLOGY CENTER
  1.  ;;3^C^CONVENIENCE CHECK FEES
  1.  ;;3^D^DENVER ACQUISITION AND LOGISTICS CENTER SERVICES AND SUPPLIES
  1.  ;;3^E^SUPPLY FUND: STRATEGIC ACQUISITION CENTER
  1.  ;;3^F^NON VA MEDICAL CARE (US BANK)   & PC3 CENTRALIZED ADMIN FEES
  1.  ;;3^G^FEDERAL EMPLOYEES COMPENSATION PROGRAM
  1.  ;;3^H^SHPS
  1.  ;;3^I^STANDARD LEVEL USER CHARGES/GSA/NARA
  1.  ;;3^J^TRANSIT BENEFITS
  1.  ;;3^K^FRANCHISE FUND: SECURITY AND INVESTIGATIONS CENTER
  1.  ;;3^L^FRANCHISE FUND: LAW ENFORCEMENT TRAINING CENTER
  1.  ;;3^M^FRANCHISE FUND: FINANCIAL SERVICES CENTER
  1.  ;;3^N^FRANCHISE FUND: DEBT MANAGEMENT CENTER
  1.  ;;3^O^FRANCHISE FUND: CORPORATE DATA CENTER OPERATIONS
  1.  ;;3^P^FRANCHISE FUND: RECORDS CENTER AND VAULT
  1.  ;;3^R^SUPPLY FUND: TECHNOLOGY ACQUISITION CENTER
  1.  ;;4^^STANDARDIZED OBLIGATIONS SUPPLY FUND: NATIONAL ACQUISITION CENTER
  1.  ;;5^^RESEARCH STUDIES
  1.  ;;6^^DISABLED: NOT A VALID CODE
  1.  ;;7^^AFFILIATED AGREEMENTS FOR INTERNS/RESIDENTS
  1.  ;;8^^TORT CLAIMS/EEO SETTLEMENTS/OIG CONFIDENTIAL SERV/INVESTIGATIVE PURC
  1.  ;;9^^VOLUNTEER AND RES MEAL TICKETS/REIMBURSEMENT, HONORARIUM AND STIPEND
  1.  ;;10^^INCENTIVE THERAPY/COMPENSATED WORK THERAPY
  1.  ;;11^^BENE TRAVEL AND DIRECT PAYMENTS TO VETERANS FROM GENERAL POST FUND
  1.  ;;12^^HOME IMPROVEMENT STRUCTURAL ALTERATIONS
  1.  ;;13^^DISABLED: NOT A VALID CODE
  1.  ;;13^A^OUTER BURIAL RECEPTACLES
  1.  ;;13^B^DIGNIFIED BURIAL CASKET/URN
  1.  ;;14^^VBA LEASE AGREEMENT OVERTIME CHARGES
  1.  ;;15^^HOME OXYGEN BILLS
  1.  ;;16^^PROSTHETICS - NEW OR REPAIRED ITEMS
  1.  ;;17^^PHARMACY AND SUBSISTENCE PRIME VENDOR
  1.  ;;18^^DISABLED: NOT A VALID CODE
  1.  ;;19^^REIMBURSEMENTS TO VA EMPLOYEES OR STUDENTS
  1.  ;;20^^NON-PROCUREMENT OBLIGATIONS
  1.  ;;20^A^ONE VA PLUS FUND AND AGENT CASHIER BANK SERVICE CHARGES
  1.  ;;20^B^COMPENSATED WORK THERAPY PROGRAM
  1.  ;;20^C^INTERNAL VA PROGRAMS AND AGREEMENTS
  1.  ;;20^D^VA HOMELESS PROVIDERS GRANT AND PER DIEM PROGRAM
  1.  ;;20^E^CEMETERY GRANTS, STATE HOME PROGRAM, AND OTHER VA GRANT PROGRAMS
  1.  ;;20^F^GSA ACTIVITIES AND TOP FEES
  1.  ;;20^G^GOVERNMENT PRINTING OFFICE
  1.  ;;20^H^VA/DOD SHARING AGREEMENTS AND INTERAGENCY AGREEMENTS
  1.  ;;20^I^INTRA-AGENCY SHARING AGREEMENTS (VHA, VBA, NCA,OIT)
  1.  ;;20^J^INTERGOVERNMENTAL PERSONNEL AGREEMENTS AND SERVICES,INCLUDING CASUS
  1.  ;;21^^CHIEF BUSINESS OFFICE PURCHASED CARE(CBOPC)PROGRAMS
  1.  ;;21^A^CHAMPVA
  1.  ;;21^B^SPINA BIFIDA HEALTH
  1.  ;;21^C^CHILDREN OF WOMEN VIETNAM VETERANS
  1.  ;;21^D^FOREIGN MEDICAL PROGRAM
  1.  ;;21^E^OTHER CBOPC CARE PROGRAMS
  1.  ;;22^^SPECIAL ADAPTIVE HOUSING INSPECTIONS
  1.  ;;23^^STATE APPROVING AGENCY (SAA)
  1.  ;;QUIT