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 Aug 26, 2025@22:15:21 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 ;
