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