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

PRC236P.m

Go to the documentation of this file.
  1. PRC236P ;MNTVBB/RD - IFCAP FEDERAL SUPPLY CLASSIFICATION FILE updates ; August 6, 2024 @13:20
  1. ;;5.1;IFCAP;**236**;21-MAR-94;Build 3
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; This routine is used as a post-init in a KIDS build to
  1. ; update the FEDERAL SUPPLY CLASSIFICATION file (#441.2).
  1. ;
  1. ; Reference to FILE^DICN supported by ICR # 10009
  1. ; Reference to $$FMADD^XLFDT in ICR #10103
  1. ; Reference to BMES^XPDUTL supported by ICR# 10141
  1. ; Reference to MES^XPDUTL supported by ICR# 10141
  1. ;
  1. Q
  1. EN ;
  1. ; Backup 441.2 FEDERAL SUPPLY CLASSIFICATION File
  1. N P236FILE,P236FILES,PRCCNT
  1. S P236FILE=""
  1. S P236FILES="441.2"
  1. S PRCCNT=0
  1. F PRCCNT=1:1:$L(P236FILES,"^") D
  1. . S P236FILE=$P(P236FILES,"^",PRCCNT)
  1. . D GLBBKUP
  1. . Q
  1. ; Begin Update
  1. D START,ADD,FINISH
  1. Q
  1. ;
  1. START D BMES^XPDUTL(" PRC*5.1*236 Post-Install Starting .....")
  1. Q
  1. ;
  1. FINISH D BMES^XPDUTL(" PRC*5.1*236 Post-Install Complete")
  1. Q
  1. ;
  1. ;
  1. ADD ;add a new FEDERAL SUPPLY CLASSIFICATION number
  1. N X,Y,PRCC,PRCCER,PRCT,PRCX,PRCNUM,PRCADES,PRCGRP,PRCCCD,PRCDLA,PRCDES,PRCDINUM,DINUM,DIC,DR,DLAYGO
  1. D BMES^XPDUTL(" Adding new numbers to file 441.2")
  1. S (PRCC,PRCCER)=0
  1. F PRCX=1:1 S PRCT=$P($T(NNUM+PRCX),";;",2) Q:PRCT="QUIT" D
  1. . S PRCNUM=$P(PRCT,U)
  1. . S PRCADES=$P(PRCT,U,2)
  1. . S PRCGRP=$P(PRCT,U,3)
  1. . S PRCCCD=$P(PRCT,U,4)
  1. . S PRCDLA=$P(PRCT,U,5)
  1. . S PRCDES=$P(PRCT,U,6)
  1. . I $D(^PRC(441.2,"B",PRCNUM)) D Q
  1. . . D BMES^XPDUTL(" Duplication of FEDERAL SUPPLY CLASSIFICATION number "_PRCNUM)
  1. . S X=PRCNUM
  1. . D ADD4412
  1. D BMES^XPDUTL(" >> "_PRCC_$S(PRCC<2:" entry",1:" entries")_" added to file 441.2")
  1. I PRCCER>0 D MES^XPDUTL(" Total "_PRCCER_" new codes have NOT been added.")
  1. Q
  1. ;
  1. ADD4412 ;File new entries
  1. ;add a new entry
  1. D BMES^XPDUTL(" "_PRCNUM_" "_PRCDES)
  1. N PRCIENS,PRCFDA,PRCER,PRCRET,PRCSTR
  1. S PRCRET=""
  1. S PRCIENS="+1,"
  1. S PRCFDA(441.2,PRCIENS,.01)=PRCNUM
  1. S PRCFDA(441.2,PRCIENS,1)=PRCADES
  1. S PRCFDA(441.2,PRCIENS,3)=PRCGRP
  1. S PRCFDA(441.2,PRCIENS,4)=PRCCCD
  1. S PRCFDA(441.2,PRCIENS,5)=PRCDLA
  1. S PRCFDA(441.2,PRCIENS,2)=PRCDES
  1. S PRCDINUM=$S(PRCNUM?4N:PRCNUM,PRCNUM?1A3N:$A(PRCNUM)_$E(PRCNUM,2,4),PRCNUM?2A2N:$A(PRCNUM)_$A(PRCNUM,2)_$E(PRCNUM,3,4),PRCNUM?1A1N2A:$A(PRCNUM)_$E(PRCNUM,2)_$A(PRCNUM,3)_$A(PRCNUM,4),1:$E(PRCNUM,1)_$A(PRCNUM,2)_$E(PRCNUM,3,4))
  1. S DINUM=PRCDINUM,DIC(0)="",DLAYGO=441.2,DIC="^PRC(441.2,"
  1. S DIC("DR")="1///^S X=PRCADES;3///^S X=PRCGRP;4///^S X=PRCCCD;5///^S X=PRCDLA;2///^S X=PRCDES"
  1. D FILE^DICN
  1. ;
  1. I +Y>0 D
  1. .S PRCC=PRCC+1
  1. .D MES^XPDUTL(" ")
  1. .S PRCSTR=PRCNUM_" "_PRCADES
  1. .D MES^XPDUTL(PRCSTR)
  1. .D MES^XPDUTL(" ...successfully added.")
  1. ;
  1. I Y=-1 D
  1. .S PRCCER=PRCCER+1
  1. .D MES^XPDUTL(" ")
  1. .D BMES^XPDUTL(" ERROR when attempting to add "_PRCNUM_" ("_PRCADES_")")
  1. Q
  1. ;
  1. ;
  1. GLBBKUP ; XTMP Backup of file(s)
  1. N PRCBKNDE
  1. S PRCBKNDE="PRC*5.1*236-FEDERAL SUPPLY CLASSIFICATION FILE updates (#441.2)"
  1. S ^XTMP("PRC236P",0)=$$FMADD^XLFDT(DT,120)_"^"_DT_"^"_PRCBKNDE
  1. M ^XTMP("PRC236P",P236FILE,$H)=^PRC(P236FILE)
  1. Q
  1. ;new codes - ADD
  1. NNUM ;;number^abbreviated description^group^commodity code^dla address^description
  1. ;;DA01^IT&Tel-Bus App/App Dev Supp Svc^115^3^7^IT and Telecom - Business Application/Application Development Support Services (Labor)
  1. ;;DA10^IT&Tel-Bus App/App Dev Sftwr^115^3^7^IT and Telecom - Business Application/Application Development Software As A Service
  1. ;;DB01^IT&Tel-High Perf Comp Supp Svc^115^3^7^IT and Telecom - High Performance Computing (HPC) Support Services (Labor)
  1. ;;DB02^IT&Tel-Comp Supp Svc, Non-HPC^115^3^7^IT and Telecom - Compute Support Services, Non-HPC (Labor)
  1. ;;DB10^IT&Tel-Comp As A Svc: M-frm/Srvr^115^3^7^IT and Telecom - Compute As A Service: Mainframe/Servers
  1. ;;DC01^IT&Tel-Data Cntr Support Svc^115^3^7^IT and Telecom - Data Center Support Services (Labor)
  1. ;;DC10^IT&Tel-Data Cntr As A Svc^115^3^7^IT and Telecom - Data Center As A Service
  1. ;;DD01^IT&Tel-Svc Del Supp Svc: ITSM, Op^115^3^7^IT and Telecom - Service Delivery Support Services: ITSM, Operations Center, Project/PM (Labor)
  1. ;;DE01^IT&Tel-End User: Help Desk; Wrks^115^3^7^IT and Telecom - End User: Help Desk; Tier1-2, Workspace, Print, Productivity Tools (Labor)
  1. ;;DE02^IT&Tel-Mobile Device Supp Svc^115^3^7^IT and Telecom - Mobile Device Support Services (Labor)
  1. ;;DE10^IT&Tel-End User Svc: Help Desk^115^3^7^IT and Telecom - End User As A Service: Help Desk; Tier 1-2, Workspace, Print, Productivity Tools
  1. ;;DE11^IT&Tel-Mobile Device As A Svc^115^3^7^IT and Telecom - Mobile Device As A Service
  1. ;;DF01^IT&Tel-IT Mgmt Support Svcs^115^3^7^IT and Telecom - IT Management Support Services (Labor)
  1. ;;DF10^IT&Tel-IT Mgmt As A Svc^115^3^7^IT and Telecom - IT Management As A Service
  1. ;;DG01^IT&Tel-Network Support Svcs^115^3^7^IT and Telecom - Network Support Services (Labor)
  1. ;;DG10^IT&Tel-Network As A Svc^115^3^7^IT and Telecom - Network As A Service
  1. ;;DG11^IT&Tel-Network: Tele Access Svc^115^3^7^IT and Telecom - Network: Telecom Access Services
  1. ;;DH01^IT&Tel-Pltfrm Supp Svcs: Dtbs^115^3^7^IT and Telecom - Platform Support Services: Database, Mainframe, Middleware (Labor)
  1. ;;DH10^IT&Tel-Pltfrm As A Svc: Dtbs^115^3^7^IT and Telecom - Platform As A Service: Database, Mainframe, Middleware
  1. ;;DJ01^IT&Tel-Scrty And Cmplnc Supp Svc^115^3^7^IT and Telecom - Security And Compliance Support Services (Labor)
  1. ;;DJ10^IT&Tel-Scrty And Cmplnc As A Svc^115^3^7^IT and Telecom - Security And Compliance As A Service
  1. ;;DK01^IT&Tel-Strg Supp Svcs (Labor)^115^3^7^IT and Telecom - Storage Support Services (Labor)
  1. ;;DK10^IT&Tel - Strg As A Svc^115^3^7^IT and Telecom - Storage As A Service
  1. ;;7A20^IT&Tel-App Dvlpmnt Sftwr (Prptl^115^3^7^IT and Telecom - Application Development Software (Perpetual License Software)
  1. ;;7A21^IT&Tel-Bus App Sftwr (Prptl Lcnsr^115^3^7^IT and Telecom - Business Application Software (Pepetual License Software)
  1. ;;7B20^IT&Tel-High Perf Cmptr (Hrdwr^115^3^7^IT and Telecom - High Performance Compute (Hardware and Perpetual License Software)
  1. ;;7B21^IT&Tel-Cmptr: M-frm (Hrdwr^115^3^7^IT and Telecom - Compute: Mainframe (Hardware and Perpetual License Software)
  1. ;;7B22^IT&Tel-Cmptr: Srvrs (Hrdwr/Prptl^115^3^7^IT and Telecom - Compute: Servers (Hardware and Perpetual License Software)
  1. ;;7C20^IT&Tel-Data Cntr Prdcts (Hrdwr/^115^3^7^IT and Telecom - Data Center Products (Hardware and Perpetual License Software)
  1. ;;7C21^IT&Tel-Other Data Cntr Fclts Prdct^115^3^7^IT and Telecom - Other Data Center Facilities Products (Hardware and Perpetual License Software)
  1. ;;7D20^IT&Tel-Svc Del Mgmt (Hrdwr/Prdc^115^3^7^IT and Telecom - Service Delivery Management (Hardware and Perpetual License Software)
  1. ;;7E20^IT&Tel - End User: Help Desk, Wrk^115^3^7^IT and Telecom - End User: Help Desk;Tier 1-2, Workspace, Print, Productivity Tool (HW/Perpetual SW)
  1. ;;7E21^IT&Tel-Mobile Device Prdcts (Hrd^115^3^7^IT and Telecom - Mobile Device Products (Hardware and Perpetual License Software)
  1. ;;7F20^IT&Tel-It Mgmt Tools/Prdcts (Hrd^115^3^7^IT and Telecom - It Management Tools/Products (Hardware and Perpetual License Software)
  1. ;;7G20^IT&Tel-Ntwrk: Analog Voice Prdct^115^3^7^IT and Telecom - Network: Analog Voice Products (Hardware and Perpetual License Software)
  1. ;;7G21^IT&Tel-Ntwrk: Dgtl Ntwrk Prdcts^115^3^7^IT and Telecom - Network: Digital Network Products (Hardware and Perpetual License Software)
  1. ;;7G22^IT&Tel-Ntwrk: Stllt/RF Comm^115^3^7^IT and Telecom - Network: Satellite And RF Communications Products (HW, Perpetual License Software)
  1. ;;7H20^IT&Tel-Pltfrm Prdcts: Dtbs, M-frm^115^3^7^IT and Telecom - Platform Products: Database, Mainframe, Middleware (HW, Perpetual License Software)
  1. ;;7J20^IT&Tel-Scrty And Cmplnc Prdcts^115^3^7^IT and Telecom - Security And Compliance Products (Hardware and Perpetual License Software)
  1. ;;7K20^IT&Tel-Strg Prdcts (Hrdwr/Prptl^115^3^7^IT and Telecom - Storage Products (Hardware and Perpetual License Software)
  1. ;;QUIT
  1. ;