- PRC236P ;MNTVBB/RD - IFCAP FEDERAL SUPPLY CLASSIFICATION FILE updates ; August 6, 2024 @13:20
- ;;5.1;IFCAP;**236**;21-MAR-94;Build 3
- ;;Per VA Directive 6402, this routine should not be modified.
- ;
- ; This routine is used as a post-init in a KIDS build to
- ; update the FEDERAL SUPPLY CLASSIFICATION file (#441.2).
- ;
- ; Reference to FILE^DICN supported by ICR # 10009
- ; Reference to $$FMADD^XLFDT in ICR #10103
- ; Reference to BMES^XPDUTL supported by ICR# 10141
- ; Reference to MES^XPDUTL supported by ICR# 10141
- ;
- Q
- EN ;
- ; Backup 441.2 FEDERAL SUPPLY CLASSIFICATION File
- N P236FILE,P236FILES,PRCCNT
- S P236FILE=""
- S P236FILES="441.2"
- S PRCCNT=0
- F PRCCNT=1:1:$L(P236FILES,"^") D
- . S P236FILE=$P(P236FILES,"^",PRCCNT)
- . D GLBBKUP
- . Q
- ; Begin Update
- D START,ADD,FINISH
- Q
- ;
- START D BMES^XPDUTL(" PRC*5.1*236 Post-Install Starting .....")
- Q
- ;
- FINISH D BMES^XPDUTL(" PRC*5.1*236 Post-Install Complete")
- Q
- ;
- ;
- ADD ;add a new FEDERAL SUPPLY CLASSIFICATION number
- N X,Y,PRCC,PRCCER,PRCT,PRCX,PRCNUM,PRCADES,PRCGRP,PRCCCD,PRCDLA,PRCDES,PRCDINUM,DINUM,DIC,DR,DLAYGO
- D BMES^XPDUTL(" Adding new numbers to file 441.2")
- S (PRCC,PRCCER)=0
- F PRCX=1:1 S PRCT=$P($T(NNUM+PRCX),";;",2) Q:PRCT="QUIT" D
- . S PRCNUM=$P(PRCT,U)
- . S PRCADES=$P(PRCT,U,2)
- . S PRCGRP=$P(PRCT,U,3)
- . S PRCCCD=$P(PRCT,U,4)
- . S PRCDLA=$P(PRCT,U,5)
- . S PRCDES=$P(PRCT,U,6)
- . I $D(^PRC(441.2,"B",PRCNUM)) D Q
- . . D BMES^XPDUTL(" Duplication of FEDERAL SUPPLY CLASSIFICATION number "_PRCNUM)
- . S X=PRCNUM
- . D ADD4412
- D BMES^XPDUTL(" >> "_PRCC_$S(PRCC<2:" entry",1:" entries")_" added to file 441.2")
- I PRCCER>0 D MES^XPDUTL(" Total "_PRCCER_" new codes have NOT been added.")
- Q
- ;
- ADD4412 ;File new entries
- ;add a new entry
- D BMES^XPDUTL(" "_PRCNUM_" "_PRCDES)
- N PRCIENS,PRCFDA,PRCER,PRCRET,PRCSTR
- S PRCRET=""
- S PRCIENS="+1,"
- S PRCFDA(441.2,PRCIENS,.01)=PRCNUM
- S PRCFDA(441.2,PRCIENS,1)=PRCADES
- S PRCFDA(441.2,PRCIENS,3)=PRCGRP
- S PRCFDA(441.2,PRCIENS,4)=PRCCCD
- S PRCFDA(441.2,PRCIENS,5)=PRCDLA
- S PRCFDA(441.2,PRCIENS,2)=PRCDES
- 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))
- S DINUM=PRCDINUM,DIC(0)="",DLAYGO=441.2,DIC="^PRC(441.2,"
- S DIC("DR")="1///^S X=PRCADES;3///^S X=PRCGRP;4///^S X=PRCCCD;5///^S X=PRCDLA;2///^S X=PRCDES"
- D FILE^DICN
- ;
- I +Y>0 D
- .S PRCC=PRCC+1
- .D MES^XPDUTL(" ")
- .S PRCSTR=PRCNUM_" "_PRCADES
- .D MES^XPDUTL(PRCSTR)
- .D MES^XPDUTL(" ...successfully added.")
- ;
- I Y=-1 D
- .S PRCCER=PRCCER+1
- .D MES^XPDUTL(" ")
- .D BMES^XPDUTL(" ERROR when attempting to add "_PRCNUM_" ("_PRCADES_")")
- Q
- ;
- ;
- GLBBKUP ; XTMP Backup of file(s)
- N PRCBKNDE
- S PRCBKNDE="PRC*5.1*236-FEDERAL SUPPLY CLASSIFICATION FILE updates (#441.2)"
- S ^XTMP("PRC236P",0)=$$FMADD^XLFDT(DT,120)_"^"_DT_"^"_PRCBKNDE
- M ^XTMP("PRC236P",P236FILE,$H)=^PRC(P236FILE)
- Q
- ;new codes - ADD
- NNUM ;;number^abbreviated description^group^commodity code^dla address^description
- ;;DA01^IT&Tel-Bus App/App Dev Supp Svc^115^3^7^IT and Telecom - Business Application/Application Development Support Services (Labor)
- ;;DA10^IT&Tel-Bus App/App Dev Sftwr^115^3^7^IT and Telecom - Business Application/Application Development Software As A Service
- ;;DB01^IT&Tel-High Perf Comp Supp Svc^115^3^7^IT and Telecom - High Performance Computing (HPC) Support Services (Labor)
- ;;DB02^IT&Tel-Comp Supp Svc, Non-HPC^115^3^7^IT and Telecom - Compute Support Services, Non-HPC (Labor)
- ;;DB10^IT&Tel-Comp As A Svc: M-frm/Srvr^115^3^7^IT and Telecom - Compute As A Service: Mainframe/Servers
- ;;DC01^IT&Tel-Data Cntr Support Svc^115^3^7^IT and Telecom - Data Center Support Services (Labor)
- ;;DC10^IT&Tel-Data Cntr As A Svc^115^3^7^IT and Telecom - Data Center As A Service
- ;;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)
- ;;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)
- ;;DE02^IT&Tel-Mobile Device Supp Svc^115^3^7^IT and Telecom - Mobile Device Support Services (Labor)
- ;;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
- ;;DE11^IT&Tel-Mobile Device As A Svc^115^3^7^IT and Telecom - Mobile Device As A Service
- ;;DF01^IT&Tel-IT Mgmt Support Svcs^115^3^7^IT and Telecom - IT Management Support Services (Labor)
- ;;DF10^IT&Tel-IT Mgmt As A Svc^115^3^7^IT and Telecom - IT Management As A Service
- ;;DG01^IT&Tel-Network Support Svcs^115^3^7^IT and Telecom - Network Support Services (Labor)
- ;;DG10^IT&Tel-Network As A Svc^115^3^7^IT and Telecom - Network As A Service
- ;;DG11^IT&Tel-Network: Tele Access Svc^115^3^7^IT and Telecom - Network: Telecom Access Services
- ;;DH01^IT&Tel-Pltfrm Supp Svcs: Dtbs^115^3^7^IT and Telecom - Platform Support Services: Database, Mainframe, Middleware (Labor)
- ;;DH10^IT&Tel-Pltfrm As A Svc: Dtbs^115^3^7^IT and Telecom - Platform As A Service: Database, Mainframe, Middleware
- ;;DJ01^IT&Tel-Scrty And Cmplnc Supp Svc^115^3^7^IT and Telecom - Security And Compliance Support Services (Labor)
- ;;DJ10^IT&Tel-Scrty And Cmplnc As A Svc^115^3^7^IT and Telecom - Security And Compliance As A Service
- ;;DK01^IT&Tel-Strg Supp Svcs (Labor)^115^3^7^IT and Telecom - Storage Support Services (Labor)
- ;;DK10^IT&Tel - Strg As A Svc^115^3^7^IT and Telecom - Storage As A Service
- ;;7A20^IT&Tel-App Dvlpmnt Sftwr (Prptl^115^3^7^IT and Telecom - Application Development Software (Perpetual License Software)
- ;;7A21^IT&Tel-Bus App Sftwr (Prptl Lcnsr^115^3^7^IT and Telecom - Business Application Software (Pepetual License Software)
- ;;7B20^IT&Tel-High Perf Cmptr (Hrdwr^115^3^7^IT and Telecom - High Performance Compute (Hardware and Perpetual License Software)
- ;;7B21^IT&Tel-Cmptr: M-frm (Hrdwr^115^3^7^IT and Telecom - Compute: Mainframe (Hardware and Perpetual License Software)
- ;;7B22^IT&Tel-Cmptr: Srvrs (Hrdwr/Prptl^115^3^7^IT and Telecom - Compute: Servers (Hardware and Perpetual License Software)
- ;;7C20^IT&Tel-Data Cntr Prdcts (Hrdwr/^115^3^7^IT and Telecom - Data Center Products (Hardware and Perpetual License Software)
- ;;7C21^IT&Tel-Other Data Cntr Fclts Prdct^115^3^7^IT and Telecom - Other Data Center Facilities Products (Hardware and Perpetual License Software)
- ;;7D20^IT&Tel-Svc Del Mgmt (Hrdwr/Prdc^115^3^7^IT and Telecom - Service Delivery Management (Hardware and Perpetual License Software)
- ;;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)
- ;;7E21^IT&Tel-Mobile Device Prdcts (Hrd^115^3^7^IT and Telecom - Mobile Device Products (Hardware and Perpetual License Software)
- ;;7F20^IT&Tel-It Mgmt Tools/Prdcts (Hrd^115^3^7^IT and Telecom - It Management Tools/Products (Hardware and Perpetual License Software)
- ;;7G20^IT&Tel-Ntwrk: Analog Voice Prdct^115^3^7^IT and Telecom - Network: Analog Voice Products (Hardware and Perpetual License Software)
- ;;7G21^IT&Tel-Ntwrk: Dgtl Ntwrk Prdcts^115^3^7^IT and Telecom - Network: Digital Network Products (Hardware and Perpetual License Software)
- ;;7G22^IT&Tel-Ntwrk: Stllt/RF Comm^115^3^7^IT and Telecom - Network: Satellite And RF Communications Products (HW, Perpetual License Software)
- ;;7H20^IT&Tel-Pltfrm Prdcts: Dtbs, M-frm^115^3^7^IT and Telecom - Platform Products: Database, Mainframe, Middleware (HW, Perpetual License Software)
- ;;7J20^IT&Tel-Scrty And Cmplnc Prdcts^115^3^7^IT and Telecom - Security And Compliance Products (Hardware and Perpetual License Software)
- ;;7K20^IT&Tel-Strg Prdcts (Hrdwr/Prptl^115^3^7^IT and Telecom - Storage Products (Hardware and Perpetual License Software)
- ;;QUIT
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRC236P 8012 printed Dec 13, 2024@01:59:33 Page 2
- PRC236P ;MNTVBB/RD - IFCAP FEDERAL SUPPLY CLASSIFICATION FILE updates ; August 6, 2024 @13:20
- +1 ;;5.1;IFCAP;**236**;21-MAR-94;Build 3
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ; This routine is used as a post-init in a KIDS build to
- +5 ; update the FEDERAL SUPPLY CLASSIFICATION file (#441.2).
- +6 ;
- +7 ; Reference to FILE^DICN supported by ICR # 10009
- +8 ; Reference to $$FMADD^XLFDT in ICR #10103
- +9 ; Reference to BMES^XPDUTL supported by ICR# 10141
- +10 ; Reference to MES^XPDUTL supported by ICR# 10141
- +11 ;
- +12 QUIT
- EN ;
- +1 ; Backup 441.2 FEDERAL SUPPLY CLASSIFICATION File
- +2 NEW P236FILE,P236FILES,PRCCNT
- +3 SET P236FILE=""
- +4 SET P236FILES="441.2"
- +5 SET PRCCNT=0
- +6 FOR PRCCNT=1:1:$LENGTH(P236FILES,"^")
- Begin DoDot:1
- +7 SET P236FILE=$PIECE(P236FILES,"^",PRCCNT)
- +8 DO GLBBKUP
- +9 QUIT
- End DoDot:1
- +10 ; Begin Update
- +11 DO START
- DO ADD
- DO FINISH
- +12 QUIT
- +13 ;
- START DO BMES^XPDUTL(" PRC*5.1*236 Post-Install Starting .....")
- +1 QUIT
- +2 ;
- FINISH DO BMES^XPDUTL(" PRC*5.1*236 Post-Install Complete")
- +1 QUIT
- +2 ;
- +3 ;
- ADD ;add a new FEDERAL SUPPLY CLASSIFICATION number
- +1 NEW X,Y,PRCC,PRCCER,PRCT,PRCX,PRCNUM,PRCADES,PRCGRP,PRCCCD,PRCDLA,PRCDES,PRCDINUM,DINUM,DIC,DR,DLAYGO
- +2 DO BMES^XPDUTL(" Adding new numbers to file 441.2")
- +3 SET (PRCC,PRCCER)=0
- +4 FOR PRCX=1:1
- SET PRCT=$PIECE($TEXT(NNUM+PRCX),";;",2)
- if PRCT="QUIT"
- QUIT
- Begin DoDot:1
- +5 SET PRCNUM=$PIECE(PRCT,U)
- +6 SET PRCADES=$PIECE(PRCT,U,2)
- +7 SET PRCGRP=$PIECE(PRCT,U,3)
- +8 SET PRCCCD=$PIECE(PRCT,U,4)
- +9 SET PRCDLA=$PIECE(PRCT,U,5)
- +10 SET PRCDES=$PIECE(PRCT,U,6)
- +11 IF $DATA(^PRC(441.2,"B",PRCNUM))
- Begin DoDot:2
- +12 DO BMES^XPDUTL(" Duplication of FEDERAL SUPPLY CLASSIFICATION number "_PRCNUM)
- End DoDot:2
- QUIT
- +13 SET X=PRCNUM
- +14 DO ADD4412
- End DoDot:1
- +15 DO BMES^XPDUTL(" >> "_PRCC_$SELECT(PRCC<2:" entry",1:" entries")_" added to file 441.2")
- +16 IF PRCCER>0
- DO MES^XPDUTL(" Total "_PRCCER_" new codes have NOT been added.")
- +17 QUIT
- +18 ;
- ADD4412 ;File new entries
- +1 ;add a new entry
- +2 DO BMES^XPDUTL(" "_PRCNUM_" "_PRCDES)
- +3 NEW PRCIENS,PRCFDA,PRCER,PRCRET,PRCSTR
- +4 SET PRCRET=""
- +5 SET PRCIENS="+1,"
- +6 SET PRCFDA(441.2,PRCIENS,.01)=PRCNUM
- +7 SET PRCFDA(441.2,PRCIENS,1)=PRCADES
- +8 SET PRCFDA(441.2,PRCIENS,3)=PRCGRP
- +9 SET PRCFDA(441.2,PRCIENS,4)=PRCCCD
- +10 SET PRCFDA(441.2,PRCIENS,5)=PRCDLA
- +11 SET PRCFDA(441.2,PRCIENS,2)=PRCDES
- +12 SET PRCDINUM=$SELECT(PRCNUM?4N:PRCNUM,PRCNUM?1A3N:$ASCII(PRCNUM)_$EXTRACT(PRCNUM,2,4),PRCNUM?2A2N:$ASCII(PRCNUM)_$ASCII(PRCNUM,2)_...
- ... $EXTRACT(PRCNUM,3,4),PRCNUM?1A1N2A:$ASCII(PRCNUM)_$EXTRACT(PRCNUM,2)_$ASCII(PRCNUM,3)_$ASCII(PRCNUM,4),1:$EXTRACT(PRCNUM,1)_$ASCII(PRCNUM,2)_$EXTRACT(PRCNUM,3,4))
- +13 SET DINUM=PRCDINUM
- SET DIC(0)=""
- SET DLAYGO=441.2
- SET DIC="^PRC(441.2,"
- +14 SET DIC("DR")="1///^S X=PRCADES;3///^S X=PRCGRP;4///^S X=PRCCCD;5///^S X=PRCDLA;2///^S X=PRCDES"
- +15 DO FILE^DICN
- +16 ;
- +17 IF +Y>0
- Begin DoDot:1
- +18 SET PRCC=PRCC+1
- +19 DO MES^XPDUTL(" ")
- +20 SET PRCSTR=PRCNUM_" "_PRCADES
- +21 DO MES^XPDUTL(PRCSTR)
- +22 DO MES^XPDUTL(" ...successfully added.")
- End DoDot:1
- +23 ;
- +24 IF Y=-1
- Begin DoDot:1
- +25 SET PRCCER=PRCCER+1
- +26 DO MES^XPDUTL(" ")
- +27 DO BMES^XPDUTL(" ERROR when attempting to add "_PRCNUM_" ("_PRCADES_")")
- End DoDot:1
- +28 QUIT
- +29 ;
- +30 ;
- GLBBKUP ; XTMP Backup of file(s)
- +1 NEW PRCBKNDE
- +2 SET PRCBKNDE="PRC*5.1*236-FEDERAL SUPPLY CLASSIFICATION FILE updates (#441.2)"
- +3 SET ^XTMP("PRC236P",0)=$$FMADD^XLFDT(DT,120)_"^"_DT_"^"_PRCBKNDE
- +4 MERGE ^XTMP("PRC236P",P236FILE,$HOROLOG)=^PRC(P236FILE)
- +5 QUIT
- +6 ;new codes - ADD
- 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)
- +2 ;;DA10^IT&Tel-Bus App/App Dev Sftwr^115^3^7^IT and Telecom - Business Application/Application Development Software As A Service
- +3 ;;DB01^IT&Tel-High Perf Comp Supp Svc^115^3^7^IT and Telecom - High Performance Computing (HPC) Support Services (Labor)
- +4 ;;DB02^IT&Tel-Comp Supp Svc, Non-HPC^115^3^7^IT and Telecom - Compute Support Services, Non-HPC (Labor)
- +5 ;;DB10^IT&Tel-Comp As A Svc: M-frm/Srvr^115^3^7^IT and Telecom - Compute As A Service: Mainframe/Servers
- +6 ;;DC01^IT&Tel-Data Cntr Support Svc^115^3^7^IT and Telecom - Data Center Support Services (Labor)
- +7 ;;DC10^IT&Tel-Data Cntr As A Svc^115^3^7^IT and Telecom - Data Center As A Service
- +8 ;;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)
- +9 ;;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)
- +10 ;;DE02^IT&Tel-Mobile Device Supp Svc^115^3^7^IT and Telecom - Mobile Device Support Services (Labor)
- +11 ;;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
- +12 ;;DE11^IT&Tel-Mobile Device As A Svc^115^3^7^IT and Telecom - Mobile Device As A Service
- +13 ;;DF01^IT&Tel-IT Mgmt Support Svcs^115^3^7^IT and Telecom - IT Management Support Services (Labor)
- +14 ;;DF10^IT&Tel-IT Mgmt As A Svc^115^3^7^IT and Telecom - IT Management As A Service
- +15 ;;DG01^IT&Tel-Network Support Svcs^115^3^7^IT and Telecom - Network Support Services (Labor)
- +16 ;;DG10^IT&Tel-Network As A Svc^115^3^7^IT and Telecom - Network As A Service
- +17 ;;DG11^IT&Tel-Network: Tele Access Svc^115^3^7^IT and Telecom - Network: Telecom Access Services
- +18 ;;DH01^IT&Tel-Pltfrm Supp Svcs: Dtbs^115^3^7^IT and Telecom - Platform Support Services: Database, Mainframe, Middleware (Labor)
- +19 ;;DH10^IT&Tel-Pltfrm As A Svc: Dtbs^115^3^7^IT and Telecom - Platform As A Service: Database, Mainframe, Middleware
- +20 ;;DJ01^IT&Tel-Scrty And Cmplnc Supp Svc^115^3^7^IT and Telecom - Security And Compliance Support Services (Labor)
- +21 ;;DJ10^IT&Tel-Scrty And Cmplnc As A Svc^115^3^7^IT and Telecom - Security And Compliance As A Service
- +22 ;;DK01^IT&Tel-Strg Supp Svcs (Labor)^115^3^7^IT and Telecom - Storage Support Services (Labor)
- +23 ;;DK10^IT&Tel - Strg As A Svc^115^3^7^IT and Telecom - Storage As A Service
- +24 ;;7A20^IT&Tel-App Dvlpmnt Sftwr (Prptl^115^3^7^IT and Telecom - Application Development Software (Perpetual License Software)
- +25 ;;7A21^IT&Tel-Bus App Sftwr (Prptl Lcnsr^115^3^7^IT and Telecom - Business Application Software (Pepetual License Software)
- +26 ;;7B20^IT&Tel-High Perf Cmptr (Hrdwr^115^3^7^IT and Telecom - High Performance Compute (Hardware and Perpetual License Software)
- +27 ;;7B21^IT&Tel-Cmptr: M-frm (Hrdwr^115^3^7^IT and Telecom - Compute: Mainframe (Hardware and Perpetual License Software)
- +28 ;;7B22^IT&Tel-Cmptr: Srvrs (Hrdwr/Prptl^115^3^7^IT and Telecom - Compute: Servers (Hardware and Perpetual License Software)
- +29 ;;7C20^IT&Tel-Data Cntr Prdcts (Hrdwr/^115^3^7^IT and Telecom - Data Center Products (Hardware and Perpetual License Software)
- +30 ;;7C21^IT&Tel-Other Data Cntr Fclts Prdct^115^3^7^IT and Telecom - Other Data Center Facilities Products (Hardware and Perpetual License Software)
- +31 ;;7D20^IT&Tel-Svc Del Mgmt (Hrdwr/Prdc^115^3^7^IT and Telecom - Service Delivery Management (Hardware and Perpetual License Software)
- +32 ;;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)
- +33 ;;7E21^IT&Tel-Mobile Device Prdcts (Hrd^115^3^7^IT and Telecom - Mobile Device Products (Hardware and Perpetual License Software)
- +34 ;;7F20^IT&Tel-It Mgmt Tools/Prdcts (Hrd^115^3^7^IT and Telecom - It Management Tools/Products (Hardware and Perpetual License Software)
- +35 ;;7G20^IT&Tel-Ntwrk: Analog Voice Prdct^115^3^7^IT and Telecom - Network: Analog Voice Products (Hardware and Perpetual License Software)
- +36 ;;7G21^IT&Tel-Ntwrk: Dgtl Ntwrk Prdcts^115^3^7^IT and Telecom - Network: Digital Network Products (Hardware and Perpetual License Software)
- +37 ;;7G22^IT&Tel-Ntwrk: Stllt/RF Comm^115^3^7^IT and Telecom - Network: Satellite And RF Communications Products (HW, Perpetual License Software)
- +38 ;;7H20^IT&Tel-Pltfrm Prdcts: Dtbs, M-frm^115^3^7^IT and Telecom - Platform Products: Database, Mainframe, Middleware (HW, Perpetual License Software)
- +39 ;;7J20^IT&Tel-Scrty And Cmplnc Prdcts^115^3^7^IT and Telecom - Security And Compliance Products (Hardware and Perpetual License Software)
- +40 ;;7K20^IT&Tel-Strg Prdcts (Hrdwr/Prptl^115^3^7^IT and Telecom - Storage Products (Hardware and Perpetual License Software)
- +41 ;;QUIT
- +42 ;